Index: openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl	10 Jun 2004 01:13:57 -0000	1.1
+++ openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl	13 Jun 2004 18:44:22 -0000	1.2
@@ -39,12 +39,12 @@
     @param object_type
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        holder_id $holder_id \
-        privilege $privilege \
-        recepient_id $recepient_id \
-        is_recursive $is_recursive \
-        object_type $object_type \
+        [list object_id $object_id ] \
+        [list holder_id $holder_id ] \
+        [list privilege $privilege ] \
+        [list recepient_id $recepient_id ] \
+        [list is_recursive $is_recursive ] \
+        [list object_type $object_type ] \
     ] content_permission grant_permission]
 }
 
@@ -59,9 +59,9 @@
     @param privilege
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        grantee_id $grantee_id \
-        privilege $privilege \
+        [list object_id $object_id ] \
+        [list grantee_id $grantee_id ] \
+        [list privilege $privilege ] \
     ] content_permission grant_permission_h]
 }
 
@@ -78,9 +78,9 @@
     @return VARCHAR2
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        holder_id $holder_id \
-        privilege $privilege \
+        [list object_id $object_id ] \
+        [list holder_id $holder_id ] \
+        [list privilege $privilege ] \
     ] content_permission has_grant_authority]
 }
 
@@ -99,10 +99,10 @@
     @return VARCHAR2
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        holder_id $holder_id \
-        privilege $privilege \
-        revokee_id $revokee_id \
+        [list object_id $object_id ] \
+        [list holder_id $holder_id ] \
+        [list privilege $privilege ] \
+        [list revokee_id $revokee_id ] \
     ] content_permission has_revoke_authority]
 }
 
@@ -117,9 +117,9 @@
     @param child_creator_id
 } {
     return [package_exec_plsql -var_list [list \
-        parent_object_id $parent_object_id \
-        child_object_id $child_object_id \
-        child_creator_id $child_creator_id \
+        [list parent_object_id $parent_object_id ] \
+        [list child_object_id $child_object_id ] \
+        [list child_creator_id $child_creator_id ] \
     ] content_permission inherit_permissions]
 }
 
@@ -136,9 +136,9 @@
     @return VARCHAR2
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        holder_id $holder_id \
-        privilege $privilege \
+        [list object_id $object_id ] \
+        [list holder_id $holder_id ] \
+        [list privilege $privilege ] \
     ] content_permission permission_p]
 }
 
@@ -159,12 +159,12 @@
     @param object_type
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        holder_id $holder_id \
-        privilege $privilege \
-        revokee_id $revokee_id \
-        is_recursive $is_recursive \
-        object_type $object_type \
+        [list object_id $object_id ] \
+        [list holder_id $holder_id ] \
+        [list privilege $privilege ] \
+        [list revokee_id $revokee_id ] \
+        [list is_recursive $is_recursive ] \
+        [list object_type $object_type ] \
     ] content_permission revoke_permission]
 }
 
@@ -179,8 +179,8 @@
     @param privilege
 } {
     return [package_exec_plsql -var_list [list \
-        object_id $object_id \
-        revokee_id $revokee_id \
-        privilege $privilege \
+        [list object_id $object_id ] \
+        [list revokee_id $revokee_id ] \
+        [list privilege $privilege ] \
     ] content_premission revoke_permission_h]
 }