Index: openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl 27 Feb 2021 20:19:34 -0000 1.3.2.1 +++ openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl 16 Sep 2022 11:53:10 -0000 1.3.2.2 @@ -31,9 +31,9 @@ Authenticate { description { Validate this username/password combination, and return the result. - Valid auth_status codes are 'ok', 'no_account', 'bad_password', 'auth_error', 'failed_to_connect'. + Valid auth_status codes are 'ok', 'no_account', 'bad_password', 'auth_error', 'failed_to_connect'. The last, 'failed_to_connect', is reserved for communications or implementation errors. - auth_message is a human-readable explanation of what went wrong, may contain HTML. + auth_message is a human-readable explanation of what went wrong, may contain HTML. Only checked if auth_status is not ok. Valid account_status codes are 'ok' and 'closed'. account_message may be supplied regardless of account_status, and may contain HTML. @@ -73,7 +73,7 @@ GetParameters auth::local::authentication::GetParameters } } - + set impl_id [acs_sc::impl::new_from_spec -spec $spec] acs_sc::impl::get -impl_id $impl_id -array impl