Index: openacs-4/packages/acs-subsite/www/register/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/register/index.tcl	17 May 2003 10:02:25 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/register/index.tcl	15 Aug 2003 21:18:12 -0000	1.4
@@ -11,11 +11,13 @@
     old_login_process:onevalue
     allow_persistent_login_p:onevalue
     persistent_login_p:onevalue
+    subsite_url:onevalue
 }
 
 set old_login_process [parameter::get -parameter SeparateEmailPasswordPagesP -default 0]
 set allow_persistent_login_p [parameter::get -parameter AllowPersistentLoginP -default 1]
 set persistent_login_p [parameter::get -parameter AllowPersistentLoginP -default 1]
+set subsite_url [subsite::get_element -element url]
 
 set email_forgotten_password_p [parameter::get -parameter EmailForgottenPasswordP -default 1]