Index: openacs-4/packages/acs-subsite/www/register/login-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/login-include.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/register/login-include.tcl	3 Sep 2003 09:51:58 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/register/login-include.tcl	3 Sep 2003 19:48:05 -0000	1.5
@@ -12,6 +12,14 @@
     set subsite_id [subsite::get_element -element object_id]
 }
 
+if { ![info exists authority_id] } {
+    set authority_id {}
+}
+
+if { ![info exists username] } {
+    set username {}
+}
+
 # Persistent login
 # The logic is: 
 #  1. Allowed if allowed both site-wide (on acs-kernel) and on the subsite
@@ -45,7 +53,7 @@
 
 set authority_options [auth::authority::get_authority_options]
 
-set forgotten_pwd_url [export_vars -base [auth::password::get_forgotten_url] { username authority_id }]
+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"