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.16.2.1 -r1.16.2.2 --- openacs-4/packages/acs-subsite/www/permissions/grant.tcl 10 Sep 2015 08:21:49 -0000 1.16.2.1 +++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl 28 Oct 2015 09:38:39 -0000 1.16.2.2 @@ -26,7 +26,7 @@ # acs_privileges. Note that nodes can appear more than one time in the # tree. -set existing_privs [db_list select_privileges_list { }] +set existing_privs [db_list select_privileges_list {}] # The maximum level that has been reached within the hierarchy. set maxlevel 1 @@ -41,7 +41,7 @@ # Loop through each row in acs_privilege_hierarchy and shuffle the # $hierarchy list accordingly. -db_foreach select_privileges_hierarchy { } { +db_foreach select_privileges_hierarchy {} { if { [set start_pos [lsearch -regexp $hierarchy "\\m$child_privilege\\M"]] == -1 } { # child_privilege of this relation not in privileges - skip.