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.15 -r1.15.2.1
--- openacs-4/packages/dotlrn/www/admin/users.tcl	9 Aug 2002 18:39:27 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	17 Oct 2002 13:00:38 -0000	1.15.2.1
@@ -21,7 +21,7 @@
     @creation-date 2002-01-30
     @version $Id$
 } -query {
-    {type "admin"}
+    {type "pending"}
 } -properties {
     context_bar:onevalue
     control_bar:onevalue
@@ -46,7 +46,7 @@
 set n_deactivated_users [db_string select_deactivated_users_count {}]
 lappend dotlrn_roles [list deactivated "Deactivated ($n_deactivated_users)" {}]
 
-set control_bar [ad_dimensional [list [list type {User Type:} admin $dotlrn_roles]]]
+set control_bar [ad_dimensional [list [list type {User Type:} $type $dotlrn_roles]]]
 
 if {[string equal $type "deactivated"] == 1} {
     set n_users $n_deactivated_users