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.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl	30 Jan 2002 23:32:41 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-large.tcl	1 Feb 2002 21:58:06 -0000	1.3
@@ -3,18 +3,16 @@
     @creation-date 2002-01-30
     @version $Id$
 } -query {
+    {type "admin"}
     {search_text ""}
+    {referer "users"}
 } -properties {
     user_id:onevalue
     users:multirow
 }
 
 set user_id [ad_conn user_id]
 
-if {![exists_and_not_null type]} {
-    set type admin
-}
-
 form create user_search
 
 element create user_search search_text \
@@ -29,8 +27,14 @@
     -widget hidden \
     -value $type
 
+element create user_search referer \
+    -label Referer \
+    -datatype text \
+    -widget hidden \
+    -value $referer
+
 if {[form is_valid user_search]} {
-    form get_values user_search search_text
+    form get_values user_search search_text referer
 
     set user_id [ad_conn user_id]
     set dotlrn_package_id [dotlrn::get_package_id]
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.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl	30 Jan 2002 23:32:41 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl	1 Feb 2002 21:58:06 -0000	1.3
@@ -18,6 +18,10 @@
     set type admin
 }
 
+if {![exists_and_not_null referer]} {
+    set referer users
+}
+
 set default_section Z
 foreach dimension {A B C D E F G H I J K L M N O P Q R S T U V W X Y Z} {
     if {[string equal $type "pending"] == 1} {
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.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/users-chunk-small.tcl	30 Jan 2002 23:32:41 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-small.tcl	1 Feb 2002 21:58:06 -0000	1.3
@@ -16,6 +16,10 @@
     set type admin
 }
 
+if {![exists_and_not_null referer]} {
+    set referer users
+}
+
 # Currently, just present a list of dotLRN users
 if {[string equal $type "pending"] == 1} {
     db_multirow users select_non_dotlrn_users {}
Index: openacs-4/packages/dotlrn/www/admin/users-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/users-chunk.tcl	30 Jan 2002 23:32:41 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/users-chunk.tcl	1 Feb 2002 21:58:06 -0000	1.3
@@ -10,4 +10,8 @@
 
 set user_id [ad_conn user_id]
 
+if {![exists_and_not_null referer]} {
+    set referer users
+}
+
 ad_return_template