Index: openacs-4/packages/acs-subsite/www/pvt/toggle-dont-spam-me-p.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/toggle-dont-spam-me-p.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-subsite/www/pvt/toggle-dont-spam-me-p.tcl	29 Mar 2018 21:51:20 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/pvt/toggle-dont-spam-me-p.tcl	2 Jan 2020 14:10:03 -0000	1.6.2.1
@@ -1,6 +1,11 @@
+ad_page_contract {
+    Toggle the 'Don't SPAM me' user preference.
 
+    Note: this page is apparently not referenced anywhere.
+}
+
 set user_id [ad_conn user_id]
-db_dml unused "update user_preferences set dont_spam_me_p = util.logical_negation(dont_spam_me_p) where user_id = :user_id"
+db_dml unused {}
 
 ad_returnredirect "home"
 ad_script_abort