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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-developer-support/www/comments-toggle.tcl	30 Dec 2003 22:49:03 -0000	1.1
@@ -0,0 +1,13 @@
+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