Index: openacs-4/packages/faq/www/admin/q-and-a-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/Attic/q-and-a-delete.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq/www/admin/q-and-a-delete.tcl	27 Jul 2021 09:32:55 -0000	1.1.2.1
@@ -0,0 +1,28 @@
+#faq/www/admin/q-and-a-delete.tcl
+
+ad_page_contract {
+    
+    delete a QandA
+    @author peterv@ybos.net
+    @creation-date 2000-10-25
+
+} {
+    entry_id:naturalnum,notnull
+}
+
+# We need to rethink the q-and-a permissioning.
+
+permission::require_permission -object_id [ad_conn package_id] -privilege faq_delete_faq
+
+db_1row get_faq_id "select faq_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
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: