Index: openacs-4/packages/dotlrn/www/admin/users-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/users-chunk.tcl	8 Aug 2006 21:26:28 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/users-chunk.tcl	15 May 2007 20:14:25 -0000	1.11
@@ -25,11 +25,22 @@
 }
 
 set oacs_site_wide_admin_p [acs_user::site_wide_admin_p]
-set user_id [ad_conn user_id]
 
 if {![exists_and_not_null referer]} {
     set referer "[dotlrn::get_admin_url]/users"
 }
 
+template::multirow extend users state_change_url nuke_url swa_grant_url swa_revoke_url
+
+template::multirow foreach users {
+    set return_url "[dotlrn::get_admin_url]/user-new-2?user_id=$user_id&referer=$referer"
+    set state_change_url [export_vars -base "/acs-admin/users/member-state-change" {{member_state approved} user_id return_url}] 
+    set nuke_url [export_vars -base user-nuke {user_id referer}]
+    set swa_grant_url [export_vars -base site-wide-admin-toggle {{value grant} user_id referer}]
+    set swa_revoke_url [export_vars -base site-wide-admin-toggle {{value revoke} user_id referer}]
+}
+
+set user_id [ad_conn user_id]
+
 ad_return_template