Index: openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl	1 Feb 2002 21:58:06 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl	5 Feb 2002 18:16:10 -0000	1.4
@@ -3,14 +3,20 @@
     @creation-date 2002-01-30
     @version $Id$
 } -query {
-    {type "admin"}
     {search_text ""}
-    {referer "users"}
 } -properties {
     user_id:onevalue
     users:multirow
 }
 
+if {![exists_and_not_null type]} {
+    set type "admin"
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "users"
+}
+
 set user_id [ad_conn user_id]
 
 form create user_search