Index: openacs-4/packages/faq/www/admin/faq-delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-delete-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq/www/admin/faq-delete-oracle.xql	31 Jan 2019 10:02:04 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+<queryset>
+  <rdbms>
+    <type>oracle</type>
+    <version>8.1.6</version>
+  </rdbms>
+
+  <fullquery name="delete_faq">
+    <querytext>
+      begin;
+      select acs_object.delete(faq_id)
+      from faqs where faq_id = :faq_id;
+      end;
+    </querytext>
+  </fullquery>
+
+</queryset>
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/faq/www/admin/faq-delete-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/faq/www/admin/faq-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-delete.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/faq/www/admin/faq-delete.tcl	31 Jan 2019 08:49:26 -0000	1.7
+++ openacs-4/packages/faq/www/admin/faq-delete.tcl	31 Jan 2019 10:02:04 -0000	1.8
@@ -16,10 +16,7 @@
 
 permission::require_permission -object_id  $package_id -privilege faq_delete_faq
 
-db_dml delete_faq {
-    delete from acs_objects where object_id =
-    (select faq_id from faqs where faq_id = :faq_id)
-}
+db_exec_plsql delete_faq {}
 
 ad_returnredirect "index"
 ad_script_abort
Index: openacs-4/packages/faq/www/admin/q_and_a-delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/Attic/q_and_a-delete-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq/www/admin/q_and_a-delete-oracle.xql	31 Jan 2019 10:02:04 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+<queryset>
+  <rdbms>
+    <type>oracle</type>
+    <version>8.1.6</version>
+  </rdbms>
+
+  <fullquery name="delete_faq">
+    <querytext>
+      begin;
+      select acs_object.delete(entry_id)
+      from faq_q_and_as where entry_id = :entry_id;
+      end;
+    </querytext>
+  </fullquery>
+
+</queryset>
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/faq/www/admin/q_and_a-delete-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/faq/www/admin/q_and_a-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/q_and_a-delete.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/faq/www/admin/q_and_a-delete.tcl	31 Jan 2019 08:49:26 -0000	1.8
+++ openacs-4/packages/faq/www/admin/q_and_a-delete.tcl	31 Jan 2019 10:02:04 -0000	1.9
@@ -16,10 +16,7 @@
 
 db_1row get_faq_id "select faq_id from faq_q_and_as where entry_id=:entry_id"
 
-db_dml delete_entry {
-    delete from acs_objects where object_id =
-    (select entry_id from faq_q_and_as where entry_id = :entry_id)
-}
+db_exec_plsql delete_entry {}
 
 ad_returnredirect "one-faq?faq_id=$faq_id"
 ad_script_abort