Index: openacs-4/packages/calendar/www/admin/calendar-permissions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/admin/Attic/calendar-permissions.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/calendar/www/admin/calendar-permissions.tcl 23 Apr 2001 23:09:38 -0000 1.1 +++ openacs-4/packages/calendar/www/admin/calendar-permissions.tcl 18 Sep 2002 12:12:04 -0000 1.2 @@ -80,14 +80,16 @@ calendar_assign_permissions $calendar_id $party_id "calendar_show" } - set action view - ad_returnredirect "calendar-permissions?[export_url_vars calendar_id party_id action]" + set action view + ad_returnredirect "calendar-permissions?[export_url_vars calendar_id party_id action]" + ad_script_abort # revoke } elseif { [string equal $action "revoke"] } { calendar_assign_permissions $calendar_id $party_id $permission "revoke" ad_returnredirect "calendar-permissions?[export_url_vars calendar_id party_id]" + ad_script_abort # add user } elseif { [string equal $action "add" ] } {