Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl	28 Jun 2015 12:09:34 -0000	1.3
@@ -28,22 +28,22 @@
 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_admin::get_admin_url]/users"
 }
 
 # Currently, just present a list of dotLRN users
 set i 1
-if {[string equal $type deactivated] == 1} {
+if {$type eq "deactivated"} {
     db_multirow users select_deactivated_users {} {
         set users:${i}(access_level) Limited
         incr i
     }
-} elseif {[string equal $type pending] == 1} {
+} elseif {$type eq "pending"} {
     db_multirow users select_non_dotlrn_users {} {
         set users:${i}(access_level) N/A
         incr i