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.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/users.tcl	18 Feb 2002 17:48:12 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	6 Mar 2002 00:08:02 -0000	1.11
@@ -23,10 +23,13 @@
 }]
 
 lappend dotlrn_roles {pending Pending {}}
+lappend dotlrn_roles {deactivated Deactivated {}}
 
 set control_bar [ad_dimensional [list [list type {User Type:} admin $dotlrn_roles]]]
 
-if {[string equal $type "pending"] == 1} {
+if {[string equal $type "deactivated"] == 1} {
+    set n_users [db_string select_deactivated_users_count {}]
+} elseif {[string equal $type "pending"] == 1} {
     set n_users [db_string select_non_dotlrn_users_count {}]
 } else {
     set n_users [db_string select_dotlrn_users_count {}]