Index: openacs-4/packages/dotlrn-admin/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-admin/www/admin/users.tcl	20 Aug 2004 14:44:22 -0000	1.1
+++ openacs-4/packages/dotlrn-admin/www/admin/users.tcl	28 Jun 2015 12:09:34 -0000	1.2
@@ -55,9 +55,9 @@
 
 set control_bar [ad_dimensional [list [list type "[_ dotlrn.User_Type]:" $type $dotlrn_roles_localized]]]
 
-if {[string equal $type "deactivated"] == 1} {
+if {$type eq "deactivated"} {
     set n_users $n_deactivated_users
-} elseif {[string equal $type "pending"] == 1} {
+} elseif {$type eq "pending"} {
     set n_users $n_pending_users
 } else {
     set n_users [db_string select_dotlrn_users_count {}]