Index: openacs-4/packages/dotlrn/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/dotlrn/www/admin/users.tcl	12 Nov 2002 10:03:56 -0000	1.18
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	4 Dec 2002 09:51:04 -0000	1.19
@@ -21,7 +21,7 @@
     @creation-date 2002-01-30
     @version $Id$
 } -query {
-    {type "admin"}
+    {type "pending"}
 } -properties {
     context_bar:onevalue
     control_bar:onevalue
@@ -53,7 +53,7 @@
 set n_deactivated_users [db_string select_deactivated_users_count {}]
 lappend dotlrn_roles_localized [list deactivated "[_ dotlrn.Deactivated] ($n_deactivated_users)" {}]
 
-set control_bar [ad_dimensional [list [list type "[_ dotlrn.User_Type]:" admin $dotlrn_roles_localized]]]
+set control_bar [ad_dimensional [list [list type "[_ dotlrn.User_Type]:" $type $dotlrn_roles_localized]]]
 
 if {[string equal $type "deactivated"] == 1} {
     set n_users $n_deactivated_users