Index: openacs-4/packages/faq/tcl/faq-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/faq-callback-procs.tcl,v
diff -u -N -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/faq/tcl/faq-callback-procs.tcl	10 Oct 2005 12:59:34 -0000	1.1.2.3
+++ openacs-4/packages/faq/tcl/faq-callback-procs.tcl	26 Oct 2005 10:46:55 -0000	1.1.2.4
@@ -11,10 +11,14 @@
     Move a faq to another class or community
 } {
 
-db_1row get_faqs_package {}
-
-db_dml update_faqs_q_and_a {}
-db_dml update_faqs {}
+    db_1row get_faqs_package {}
+    
+    db_transaction {
+        db_dml update_faqs_q_and_a {}
+        db_dml update_faqs {}
+    } on_error {
+        ad_return_error "Database error" "A database error occured:<pre>$errmsg</pre>"
+    }
 }
 
 
@@ -26,9 +30,12 @@
 } {
 set trash_id [datamanager::get_trash_id]
 set trash_package_id [datamanager::get_trash_package_id]    
-    
-db_dml del_update_faqs_q_and_a {}
-db_dml del_update_faqs {}
+    db_transaction {
+        db_dml del_update_faqs_q_and_a {}
+        db_dml del_update_faqs {}
+    } on_error {
+        ad_return_error "Database error" "A database error occured:<pre>$errmsg</pre>"
+    }
 }