Index: openacs-4/packages/notifications/www/unsubscribe.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/unsubscribe.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/notifications/www/unsubscribe.tcl 27 Oct 2014 16:41:51 -0000 1.2 +++ openacs-4/packages/notifications/www/unsubscribe.tcl 7 Aug 2017 23:48:13 -0000 1.3 @@ -7,15 +7,21 @@ object_id:naturalnum,notnull request_id:naturalnum,multiple type_id:naturalnum,notnull - return_url + return_url:localurl } set request_count [llength $request_id] for { set i 0} { $i < $request_count } { incr i } { db_transaction { set r_id [lindex $request_id $i] - db_dml remove_notify { *SQL* } + db_dml remove_notify {} } } ad_returnredirect $return_url + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: