Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-subsite/www/permissions/one.tcl 31 Aug 2003 13:09:52 -0000 1.7 +++ openacs-4/packages/acs-subsite/www/permissions/one.tcl 21 Sep 2003 22:20:01 -0000 1.8 @@ -30,16 +30,14 @@ set extra_where_clause "AND grantee_id <> -1" } -set name [ad_quotehtml [db_string name {}]] +set name [db_string name {}] set context [list [list "./" [_ acs-subsite.Permissions]] [_ acs-subsite.Permissions_for_name]] db_multirow inherited inherited_permissions { *SQL* } { - set grantee_name [ad_quotehtml $grantee_name] } db_multirow acl acl { *SQL* } { - set grantee_name [ad_quotehtml $grantee_name] } set controls [list] @@ -63,7 +61,6 @@ if [string equal $children_p "t"] { db_multirow children children { *SQL* } { - set c_name [ad_quotehtml $c_name] } } else { db_1row children_count { *SQL* }