Index: openacs.org-dev/packages/cms/www/modules/users/user-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/users/user-search.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/users/user-search.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/users/user-search.tcl	8 Oct 2002 15:47:03 -0000	1.1.1.2
@@ -37,10 +37,10 @@
 
 if { [util::is_nil form_title] } {
   if { ![util::is_nil group_id] } {
-    template::query get_who who onevalue "select acs_object.name(:group_id) from dual"
-    set form_title "Search members of $who"
+      set who [db_string get_who ""]
+      set form_title "Search members of $who"
   } else {
-    set form_title "Search All Users"
+      set form_title "Search All Users"
   }
   element set_properties user_search form_title -value $form_title
 }
@@ -81,21 +81,8 @@
   }
 
   set clauses [join $clauses " or "]
-                           
-  template::query get_results results multirow "
-    select 
-      distinct u.user_id, u.screen_name,
-      p.first_names || ' ' || p.last_name as name,
-      pp.email
-    from
-      users u, persons p, parties pp $extra_table
-    where 
-      ($clauses)
-    and
-      p.person_id = u.user_id
-    and
-      pp.party_id = u.user_id
-      $where_clause"
+             
+  db_multirow results get_results ""              
 
   template::set_file "[file dir $__adp_stub]/search-results"
 }