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 -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/faq/tcl/faq-callback-procs.tcl 23 Sep 2005 14:38:28 -0000 1.1.2.2 +++ openacs-4/packages/faq/tcl/faq-callback-procs.tcl 10 Oct 2005 12:59:34 -0000 1.1.2.3 @@ -11,9 +11,27 @@ Move a faq to another class or community } { +db_1row get_faqs_package {} + +db_dml update_faqs_q_and_a {} db_dml update_faqs {} } + +ad_proc -public -callback datamanager::delete_faq -impl datamanager { + -object_id:required + -selected_community:required +} { + Move a faq to the trash +} { +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 {} +} + + ad_proc -public -callback datamanager::copy_faq -impl datamanager { -object_id:required -selected_community:required