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 -N -r1.3 -r1.4 --- openacs-4/packages/faq/www/admin/faq-enable.tcl 28 Nov 2003 16:55:15 -0000 1.3 +++ openacs-4/packages/faq/www/admin/faq-enable.tcl 9 Nov 2008 23:29:25 -0000 1.4 @@ -6,6 +6,7 @@ } { faq_id:naturalnum,notnull + referer:optional } set package_id [ad_conn package_id] @@ -15,4 +16,8 @@ update faqs set disabled_p = 'f' where faq_id = :faq_id } -ad_returnredirect "index" +if { ![info exists referer] } { + set referer "index" +} + +ad_returnredirect $referer