Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	22 Sep 2003 09:59:44 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	16 Oct 2003 21:33:32 -0000	1.4
@@ -18,12 +18,10 @@
 
 db_1row object_info {}
 
-multirow create privileges name label
-
 set elements [list]
 lappend elements grantee_name { 
     label "Name" 
-    link_url_eval {[ad_decode $object_type "user" [acs_community_member_url -user_id $grantee_id] ""]} 
+    link_url_col name_url
     display_template {
         <if @permissions.any_perm_p_@ true>
           @permissions.grantee_name@
@@ -88,7 +86,7 @@
 
 # TODO: Inherit/don't inherit
 
-list::create \
+template::list::create \
     -name permissions \
     -multirow permissions \
     -actions $actions \
@@ -118,7 +116,11 @@
 # NOTE:
 # We do not include site-wide admins in the list
 
-db_multirow permissions permissions {}
+db_multirow -extend { name_url } permissions permissions {} {
+    if { [string equal $object_type "user"] && $grantee_id != 0 } {
+        set name_url [acs_community_member_url -user_id $grantee_id]
+}
+}
 
 
 ad_return_template