Index: openacs-4/packages/acs-developer-support/www/comments-toggle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/Attic/comments-toggle.tcl,v diff -u -N --- openacs-4/packages/acs-developer-support/www/comments-toggle.tcl 30 Dec 2003 22:49:03 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,13 +0,0 @@ -ad_page_contract { - Toggle comments on/off -} { - return_url -} - -if { [parameter::get -package_id [ds_instance_id] -parameter ShowCommentsInlineP -default 0] } { - parameter::set_value -package_id [ds_instance_id] -parameter ShowCommentsInlineP -value 0 -} else { - parameter::set_value -package_id [ds_instance_id] -parameter ShowCommentsInlineP -value 1 -} - -ad_returnredirect $return_url