Index: openacs-4/packages/acs-subsite/www/register/recover-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/recover-password.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/www/register/recover-password.tcl	10 Sep 2007 08:16:19 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl	20 Nov 2009 21:39:09 -0000	1.12
@@ -13,10 +13,6 @@
 set page_title [_ acs-subsite.Reset_Password]
 set context [list $page_title]
 
-if { ![exists_and_not_null authority_id] } {
-    set authority_id [auth::authority::local]
-}
-
 # display error if the subsite doesn't allow recovery of passwords
 set subsite_id [subsite::get_element -element object_id]
 
@@ -34,6 +30,10 @@
 # Display form to collect username and authority
 set authority_options [auth::authority::get_authority_options]
 
+if { ![exists_and_not_null authority_id] } {
+    set authority_id [lindex [lindex $authority_options 0] 1]
+}
+
 ad_form -name recover -edit_buttons [list [list [_ acs-kernel.common_continue] ok]] -form { {dummy:text(hidden),optional} }