Index: openacs-4/packages/faq/www/admin/faq-enable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-enable.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/faq/www/admin/faq-enable.tcl	19 Jan 2018 14:44:17 -0000	1.6
+++ openacs-4/packages/faq/www/admin/faq-enable.tcl	3 Sep 2024 15:37:38 -0000	1.7
@@ -5,8 +5,8 @@
     @creation-date 2003-03-06
 
 } {
-    faq_id:naturalnum,notnull
-    referer:optional
+    faq_id:object_type(faq)
+    {referer:localurl "index"}
 }
 set package_id [ad_conn package_id]
 
@@ -16,10 +16,6 @@
     update faqs set disabled_p = 'f' where faq_id = :faq_id
 }
 
-if { ![info exists referer] } {
-    set referer "index"
-}
-
 ad_returnredirect $referer
 ad_script_abort