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.4 -r1.5
--- openacs-4/packages/acs-subsite/lib/login.tcl	10 Sep 2003 16:45:49 -0000	1.4
+++ openacs-4/packages/acs-subsite/lib/login.tcl	12 Sep 2003 09:10:38 -0000	1.5
@@ -12,10 +12,6 @@
     set subsite_id [subsite::get_element -element object_id]
 }
 
-if { ![exists_and_not_null authority_id] } {
-    set authority_id [auth::authority::local]
-}
-
 if { ![info exists username] } {
     set username {}
 }
@@ -53,6 +49,10 @@
 
 set authority_options [auth::authority::get_authority_options]
 
+if { ![exists_and_not_null authority_id] } {
+    set authority_id [lindex $authority_options 0]
+}
+
 set forgotten_pwd_url [auth::password::get_forgotten_url -authority_id $authority_id -username $username]
 
 set register_url "[subsite::get_element -element url]register/user-new"