Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	8 Sep 2008 20:14:58 -0000	1.34
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	9 Sep 2008 14:50:05 -0000	1.35
@@ -29,7 +29,6 @@
         set row(auth_impl_id) [auth::local::authentication::register_impl]
         set row(pwd_impl_id) [auth::local::password::register_impl]
         set row(register_impl_id) [auth::local::registration::register_impl]
-	set row(search_impl_id) [auth::local::search::register_impl]
 	set row(user_info_impl_id) [auth::local::user_info::register_impl]
 
         # Set the authority pretty-name to be the system name
@@ -609,57 +608,3 @@
     return [list]
 }
 
-#####
-#
-# The 'auth_search' service contract implementation
-#
-
-ad_proc -private auth::local::search::register_impl {} {
-    Register the 'local' implementation of the 'auth_search' service contract. Returns
-    a list of user_ids suitable for user with the 'local' 'user_info' implementation.
-    
-    @return impl_id of the newly created implementation.
-} {
-    set spec {
-        contract_name "auth_search"
-        owner "acs-authentication"
-        name "local"
-        pretty_name "Local"
-        aliases {
-            Search auth::local::search::Search
-            GetParameters auth::local::search::GetParameters
-        }
-    }
-    return [acs_sc::impl::new_from_spec -spec $spec]
-}
-
-ad_proc -private auth::local::search::unregister_impl {} {
-    Unregister the 'local' implementation of the 'auth_search' service contract.
-} {
-    acs_sc::impl::delete -contract_name "auth_search" -impl_name "local"
-}
-
-ad_proc -private auth::local::search::Search {
-    search_text
-    {parameters ""}
-} {
-    Implements the Search operation of the auth_search
-    service contract for the local account implementation.
-} {
-
-    set results [list]
-    db_foreach user_search {} {
-	lappend results $user_id
-    }
-
-    return $results
-
-}
-
-ad_proc -private auth::local::search::GetParameters {} {
-    Implements the GetParameters operation of the auth_search
-    service contract for the local account implementation.
-} {
-    # No parameters
-    return [list]
-}