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.4 -r1.5 --- openacs-4/packages/acs-subsite/www/pvt/toggle-dont-spam-me-p.tcl 7 Aug 2017 23:47:59 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/pvt/toggle-dont-spam-me-p.tcl 19 Jan 2018 14:09:48 -0000 1.5 @@ -1,13 +1,12 @@ # $Id$ 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" ad_returnredirect "home" +ad_script_abort + # Local variables: # mode: tcl # tcl-indent-level: 4