Index: openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl,v diff -u -N -r1.4.2.6 -r1.4.2.7 --- openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl 19 Aug 2016 14:25:19 -0000 1.4.2.6 +++ openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl 8 May 2017 10:31:31 -0000 1.4.2.7 @@ -37,7 +37,7 @@ set perm_array([ad_conn user_id],admin) add } - +set changes_p false db_transaction { db_foreach permissions_in_db {} { @@ -62,18 +62,22 @@ switch -- $perm_array($elm) { remove { permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege + set changes_p true } add { permission::grant -party_id $party_id -object_id $object_id -privilege $privilege + set changes_p true } } } } on_error { - ad_return_complaint 1 "Ooops, looks like we screwed up. Sorry. $errmsg
$::errorInfo" + ad_return_complaint 1 "[_ acs-tcl.The] $errmsg
$::errorInfo" + ad_script_abort } +set message [expr {$changes_p ? [_ acs-subsite.Information_Updated] : ""}] -ad_returnredirect $return_url +ad_returnredirect -message $message $return_url # Local variables: # mode: tcl