Index: openacs-4/packages/dotlrn/www/admin/users-chunk-small.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk-small.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/admin/users-chunk-small.tcl	8 Aug 2006 21:26:28 -0000	1.12
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-small.tcl	1 Nov 2013 21:08:35 -0000	1.13
@@ -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::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