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.5.2.1 -r1.5.2.2 --- openacs-4/packages/faq/www/admin/faq-delete.tcl 14 Feb 2019 16:15:01 -0000 1.5.2.1 +++ openacs-4/packages/faq/www/admin/faq-delete.tcl 10 Mar 2021 13:45:20 -0000 1.5.2.2 @@ -1,8 +1,6 @@ -#/faq/admin/faq-delete.tcl - ad_page_contract { - - delete an FAQ, also deletes entries in acs_named_objects for categories + + Delete a FAQ @author Elizabeth Wirth (wirth@ybos.net) @author Jennie Housman (jennie@ybos.net) @creation-date 2000-10-24 Index: openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl,v diff -u -r1.12.2.2 -r1.12.2.3 --- openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl 10 Mar 2021 13:41:12 -0000 1.12.2.2 +++ openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl 10 Mar 2021 13:45:20 -0000 1.12.2.3 @@ -100,11 +100,9 @@ db_transaction { db_exec_plsql create_q_and_a { *SQL* } category::map_object -remove_old -object_id $entry_id $category_ids - db_dml insert_asc_named_object "insert into acs_named_objects (object_id, object_name, package_id) values ( :entry_id, 'FAQ', :package_id)" } } -edit_data { db_dml q_and_a_edit "update faq_q_and_as set question = :question, answer = :answer where entry_id = :entry_id" - db_dml insert_asc_named_object "update acs_named_objects set object_name = 'FAQ', package_id = :package_id where object_id = :entry_id" category::map_object -remove_old -object_id $entry_id $category_ids } -after_submit { ad_returnredirect "one-faq?faq_id=$faq_id"