Index: openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	17 May 2003 09:40:20 -0000	1.4
+++ openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	25 Sep 2003 09:58:57 -0000	1.5
@@ -65,3 +65,16 @@
     return $files
 }
 
+namespace eval auth {}
+namespace eval auth::authority {}
+
+ad_proc -public auth::authority::local {} {
+    Returns the authority_id of the local authority.
+} {
+    # LARS: This is a simply implemtation which we need for creating an administrator
+    # during bootstrap install.
+    # Even though bootstrap-installer loads the acs-authentication/tcl/authenticaion-procs.tcl, 
+    # where this is defined, it might get loaded in a different interpreter from the
+    # one serving the create-administrator-2 page.
+    return [db_string local_auth { select authority_id from auth_authorities where short_name = 'local' }]
+}