Index: openacs-4/packages/acs-authentication/tcl/authority-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-authentication/tcl/authority-procs.xql 3 Sep 2003 12:37:40 -0000 1.2 +++ openacs-4/packages/acs-authentication/tcl/authority-procs.xql 4 Sep 2003 08:55:14 -0000 1.3 @@ -2,14 +2,22 @@ - - - select pretty_name, authority_id - from auth_authorities - where enabled_p = 't' - and auth_impl_id is not null - order by sort_order - - + + + select pretty_name, authority_id + from auth_authorities + where enabled_p = 't' + and auth_impl_id is not null + order by sort_order + + + + + select authority_id + from auth_authorities + where short_name = :short_name + + +