Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	15 Oct 2003 12:31:50 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	2 Jan 2004 17:16:13 -0000	1.10.2.1
@@ -146,20 +146,14 @@
 
 
 if { [form is_valid grant] } {
-    # A valid submission, grant and revoke accordingly.
+    # A valid submission - grant accordingly.
 
     form get_values grant
     set privileges [element get_values grant privilege]
 
-    # loop through all privileges, grant checked and revoke un-checked
-    # (assuming that there are not too many privs in total, otherwise
-    # this would be slow)
-    foreach privilege $existing_privs {
-        if { [lsearch $privileges $privilege] > -1 } {
-            permission::grant -party_id $party_id -object_id $object_id -privilege $privilege
-        } else {
-            permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege
-        }
+    # grant all selected privs
+    foreach privilege $privileges {
+        permission::grant -party_id $party_id -object_id $object_id -privilege $privilege
     }
     
     ad_returnredirect "one?[export_vars [list object_id application_url]]"