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.6 -r1.7 --- openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl 25 Sep 2003 10:32:19 -0000 1.6 +++ openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl 25 Sep 2003 11:37:32 -0000 1.7 @@ -64,24 +64,3 @@ } 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' }] -} - -ad_proc -public auth::UseEmailForLoginP {} { - Do we use email address for login? code wrapped in a catch, so the - proc will not break regardless of what the parameter value is. -} { - return 0 -}