Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v diff -u -r1.35 -r1.36 --- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 25 Jul 2018 18:27:52 -0000 1.35 +++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 4 Oct 2018 10:07:02 -0000 1.36 @@ -553,8 +553,13 @@ } { Get authority_id by short_name. Not cached. } { - return [db_string select_authority_id {} -default {}] + return [db_string select_authority_id { + select authority_id + from auth_authorities + where short_name = :short_name + } -default {}] } + ad_proc -public auth::authority::local {} { Returns the authority_id of the local authority. } { 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.6 -r1.7 --- openacs-4/packages/acs-authentication/tcl/authority-procs.xql 12 Mar 2004 18:48:45 -0000 1.6 +++ openacs-4/packages/acs-authentication/tcl/authority-procs.xql 4 Oct 2018 10:07:02 -0000 1.7 @@ -20,12 +20,5 @@ - - - select authority_id - from auth_authorities - where short_name = :short_name - -