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
--- openacs-4/packages/faq/www/admin/q_and_a-delete.tcl	14 Feb 2019 16:15:01 -0000	1.6.2.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,28 +0,0 @@
-#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: