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.3 -r1.4
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	27 Aug 2003 13:10:15 -0000	1.3
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	29 Aug 2003 14:53:26 -0000	1.4
@@ -272,3 +272,11 @@
 } {
     db_exec_plsql delete_authority {}
 }
+
+ad_proc -public auth::authority::get_authority_options {} {
+    Returns options (value label pairs) for building the authority HTML select box.
+
+    @author Simon Carstensen
+} {
+    return [db_list_of_lists select_authorities {}]
+}