Index: openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl	29 May 2002 04:45:23 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl	2 Jun 2002 00:05:56 -0000	1.9
@@ -26,7 +26,7 @@
 }
 
 if {![exists_and_not_null type]} {
-    set type "admin"
+    set type admin
 }
 
 if {![exists_and_not_null referer]} {
@@ -60,14 +60,28 @@
 
     set user_id [ad_conn user_id]
     set dotlrn_package_id [dotlrn::get_package_id]
-    set root_object_id [acs_magic_object "security_context_root"]
+    set root_object_id [acs_magic_object security_context_root]
+    set i 1
 
-    if {[string equal $type "deactivated"] == 1} {
-        db_multirow users select_deactivated_users {}
-    } elseif {[string equal $type "pending"] == 1} {
-        db_multirow users select_non_dotlrn_users {}
+    if {[string equal $type deactivated] == 1} {
+        db_multirow users select_deactivated_users {} {
+            set users:${i}(access_level) Limited
+            incr i
+        }
+    } elseif {[string equal $type pending] == 1} {
+        db_multirow users select_non_dotlrn_users {} {
+            set users:${i}(access_level) Limited
+            incr i
+        }
     } else {
-        db_multirow users select_dotlrn_users {}
+        db_multirow users select_dotlrn_users {} {
+            if {[dotlrn::user_can_browse_p -user_id $user_id]} {
+                set users:${i}(access_level) Full
+            } else {
+                set users:${i}(access_level) Limited
+            }
+            incr i
+        }
     }
 } else {
     multirow create users dummy