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.5 -r1.6
--- openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	25 Sep 2003 09:58:57 -0000	1.5
+++ openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	25 Sep 2003 10:32:19 -0000	1.6
@@ -78,3 +78,10 @@
     # 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
+}