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 -N -r1.6 -r1.7
--- openacs-4/packages/faq/www/admin/q_and_a-delete.tcl	19 Jan 2018 14:44:17 -0000	1.6
+++ openacs-4/packages/faq/www/admin/q_and_a-delete.tcl	30 Jan 2019 12:17:54 -0000	1.7
@@ -16,16 +16,7 @@
 
 db_1row get_faq_id "select faq_id from faq_q_and_as where entry_id=:entry_id"
 
-db_transaction {
-    db_exec_plsql delete_q_and_a {
-	begin
-	   faq.delete_q_and_a (
-		    entry_id => :entry_id
-	        );
-	end;
-    }
-    db_dml delete_named_object "delete from acs_named_objects where object_id = :entry_id"
-}
+db_dml delete_entry {delete from faq_q_and_as where entry_id = :entry_id}
 
 ad_returnredirect "one-faq?faq_id=$faq_id"
 ad_script_abort