Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/lib/login.tcl	5 Oct 2003 17:41:38 -0000	1.14
+++ openacs-4/packages/acs-subsite/lib/login.tcl	7 Oct 2003 13:00:45 -0000	1.15
@@ -67,7 +67,7 @@
 set forgotten_pwd_url [auth::password::get_forgotten_url -authority_id $authority_id -username $username -email $email]
 
 set register_url "[subsite::get_element -element url]register/user-new"
-if { [string equal $authority_id [auth::get_register_authority]] } {
+if { [string equal $authority_id [auth::get_register_authority]] || [auth::UseEmailForLoginP] } {
     set register_url [export_vars -no_empty -base $register_url { username email }]
 }