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.7 -r1.8
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	7 Oct 2003 16:55:37 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	10 Oct 2003 08:20:42 -0000	1.8
@@ -14,7 +14,7 @@
 ad_require_permission $object_id admin
 
 # The object name is used in various localized messages below
-set name [db_string name {select acs_object.name(:object_id) from dual}]
+set name [acs_object_name $object_id]
 
 set title [_ acs-subsite.lt_Grant_Permission_on_n]
 
@@ -163,13 +163,12 @@
     # this would be slow)
     foreach privilege $existing_privs {
         if { [lsearch $privileges $privilege] > -1 } {
-            db_exec_plsql grant { }
+            permission::grant -party_id $party_id -object_id $object_id -privilege $privilege
         } else {
-            db_exec_plsql revoke { }
+            permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege
         }
     }
     
     ad_returnredirect "one?[export_vars [list object_id application_url]]"
     ad_script_abort
 }
-