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.22 -r1.23
--- openacs-4/packages/dotlrn/www/admin/users.tcl	15 May 2007 20:14:25 -0000	1.22
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	1 Nov 2013 21:08:35 -0000	1.23
@@ -58,9 +58,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 {}]