Index: openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl	8 Aug 2006 21:26:28 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl	1 Nov 2013 21:08:34 -0000	1.16
@@ -30,11 +30,11 @@
 set dotlrn_package_id [dotlrn::get_package_id]
 set root_object_id [acs_magic_object security_context_root]
 
-if {![exists_and_not_null type]} {
+if {(![info exists type] || $type eq "")} {
     set type admin
 }
 
-if {![exists_and_not_null referer]} {
+if {(![info exists referer] || $referer eq "")} {
     set referer "[dotlrn::get_admin_url]/users"
 }
 
@@ -47,18 +47,18 @@
 set control_bar [portal::dimensional -no_bars [list [list section {} $section $dimensions]]]
 
 set i 1
-if {[string equal $type deactivated] == 1} {
+if {$type eq "deactivated"} {
     set query select_deactivated_users
-    if {[string match Other $section]} {
+    if {"Other" eq $section} {
         append query "_other"
     }
     db_multirow users $query {} {
         set users:${i}(access_level) Limited
         incr i
     }
-} elseif {[string equal $type pending] == 1} {
+} elseif {$type eq "pending"} {
     set query select_non_dotlrn_users
-    if {[string match Other $section]} {
+    if {"Other" eq $section} {
         append query "_other"
     }
     db_multirow users $query {} {
@@ -67,7 +67,7 @@
     }
 } else {
     set query select_dotlrn_users
-    if {[string match Other $section]} {
+    if {"Other" eq $section} {
         append query "_other"
     }
     db_multirow users $query {} {