Index: openacs-4/packages/dotlrn/www/deregister.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/deregister.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/dotlrn/www/deregister.tcl 1 Nov 2013 21:08:31 -0000 1.10 +++ openacs-4/packages/dotlrn/www/deregister.tcl 7 Aug 2017 23:48:09 -0000 1.11 @@ -23,7 +23,7 @@ @version $Id$ } -query { {user_id:multiple,integer ""} - {community_id ""} + {community_id:integer ""} {referer "./"} } @@ -65,11 +65,17 @@ } else { ns_log Error "deregister.tcl failed: $errmsg" ReturnHeaders - ad_return_error "[_ dotlrn.lt_Error_removing_user_c]" "[_ dotlrn.lt_An_error_occured_whil_1]" + ad_return_error "[_ dotlrn.lt_Error_removing_user_c]" "[_ dotlrn.lt_An_error_occurred_whil_1]" } } } } ad_returnredirect $referer + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: