Index: openacs-4/packages/acs-authentication/acs-authentication.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/acs-authentication.info,v diff -u -N -r1.28 -r1.29 --- openacs-4/packages/acs-authentication/acs-authentication.info 6 Jul 2008 15:46:14 -0000 1.28 +++ openacs-4/packages/acs-authentication/acs-authentication.info 9 Sep 2008 14:50:05 -0000 1.29 @@ -7,7 +7,7 @@ t t - + Lars Pind Authentication, account management, and related functionality. 2008-05-31 @@ -17,8 +17,8 @@ GPL version 2 Implements authentication-related security functions for OpenACS, including password, account and session management, bulk account creation etc. Provides a contract based interface for different authentication methods such as PAM or LDAP based authentication. - - + + Index: openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl,v diff -u -N -r1.17 -r1.18 --- openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl 8 Sep 2008 20:14:58 -0000 1.17 +++ openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl 9 Sep 2008 14:50:05 -0000 1.18 @@ -166,6 +166,9 @@ } } + 5.5.0d1-5.5.0d2 { + auth::search::create_contract + } } } 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 -N -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] -}