Index: openacs-4/packages/acs-subsite/www/register/bad-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/bad-password.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/register/bad-password.tcl	30 Nov 2002 17:23:11 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/register/bad-password.tcl	15 Aug 2003 21:18:12 -0000	1.4
@@ -10,12 +10,16 @@
     system_name:onevalue
     email_forgotten_password_p:onevalue
     user_id:onevalue
+    subsite_url:onevalue
 }
 
+set subsite_url [subsite::get_element -element url]
+
 set email_forgotten_password_p [ad_parameter EmailForgottenPasswordP security 1]
 
 set system_name [ad_system_name]
 
 set email_password_url "email-password?user_id=$user_id"
 
 ad_return_template
+