Index: openacs-4/packages/acs-developer-support/lib/footer.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/footer.adp,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-developer-support/lib/footer.adp	16 Apr 2004 15:06:13 -0000	1.4.2.1
+++ openacs-4/packages/acs-developer-support/lib/footer.adp	8 Dec 2004 03:19:50 -0000	1.4.2.2
@@ -17,11 +17,11 @@
         <else>
           Faked user: <i>Not faking.</i><br />
         </else>
-        Change faked user: <select name="user_id">
+        Change faked user: <if @search_p@ eq "0"><select name="user_id">
           <multiple name="users">
             <option value="@users.user_id@" <if @users.selected_p@>selected</if>>@users.name@ <if @users.email@ not nil>(@users.email@)</if></option>
           </multiple>
-        </select>
+        </select></if><else><input type="text" name="keyword"><input type="hidden" name="target" value="@target@"></else>
         <input type="submit" value="Go">
       </div>
     </form>
Index: openacs-4/packages/acs-developer-support/lib/footer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/footer.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-developer-support/lib/footer.tcl	3 Feb 2004 22:25:00 -0000	1.5
+++ openacs-4/packages/acs-developer-support/lib/footer.tcl	8 Dec 2004 03:19:50 -0000	1.5.2.1
@@ -39,7 +39,26 @@
         set fake_user_email {}
         set real_user_email {}
 
-        db_multirow -unclobber -extend { selected_p } users select_users { 
+        set set_user_url "${ds_url}set-user"
+        set export_vars [export_vars -form { { return_url [ad_return_url] } }]
+
+        set unfake_url [export_vars -base $set_user_url { { user_id $real_user_id } { return_url [ad_return_url] } }]
+
+        #Decide what to do based on how many users there are.
+        set n_users [util_memoize {db_string select_n_users "select count(user_id) from users" -default "unknown"} 300]
+
+        if { $n_users > 100 } {
+            set search_p 1
+            set size_restriction "and u.user_id in (:real_user_id, :fake_user_id)"
+            #Remap the set_user_url to the users search page
+            set target $set_user_url
+            set set_user_url /acs-admin/users/search
+        } else {
+            set search_p 0
+            set size_restriction ""
+        }
+
+        db_multirow -unclobber -extend { selected_p } users select_users "
             select u.user_id, 
                    pe.first_names || ' ' || pe.last_name as name,
                    pa.email 
@@ -48,8 +67,9 @@
                    parties pa
             where  pa.party_id = u.user_id
             and    pe.person_id = u.user_id
+            $size_restriction
             order  by lower(pe.first_names), lower(pe.last_name)
-        } {
+        " {
             if { $fake_user_id == $user_id } {
                 set selected_p 1
                 set fake_user_name $name
@@ -63,10 +83,6 @@
             }
         }
         
-        set set_user_url "${ds_url}/set-user"
-        set export_vars [export_vars -form { { return_url [ad_return_url] } }]
-
-        set unfake_url [export_vars -base $set_user_url { { user_id $real_user_id } { return_url [ad_return_url] } }]
     }
 
     # Profiling information