Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl	22 Sep 2003 16:51:02 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl	29 Sep 2003 11:52:55 -0000	1.4
@@ -15,10 +15,13 @@
 
 set user_id [ad_conn user_id]
 
-db_multirow users users_who_dont_have_any_permissions {}
-
 set perm_url "[site_node_closest_ancestor_package_url]permissions/"
 
+db_multirow -extend { add_url } users users_who_dont_have_any_permissions {} {
+    set add_url [export_vars -base "${perm_url}perm-user-add-2" { return_url object_id user_id }]
+}
+
+
 list::create \
     -name users \
     -multirow users \
@@ -36,6 +39,12 @@
             label "Email"
             link_url_eval {mailto:$email}
         }
+        add {
+            label "Add"
+            link_url_col add_url
+            link_html { title "Add this user" }
+            display_template "Add"
+        }
     }
 
 set img_path "[ad_conn package_url]images"