Index: openacs-4/packages/acs-subsite/www/register/email-for-password-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/email-for-password-2.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/register/email-for-password-2.tcl	16 Mar 2002 21:08:37 -0000	1.1
@@ -0,0 +1,11 @@
+
+ad_page_contract {
+    Check a user's ID
+} {
+    email:notnull
+}
+
+set user_id [cc_lookup_email_user $email]
+
+ad_returnredirect "email-password?user_id=$user_id"
+
Index: openacs-4/packages/acs-subsite/www/register/email-for-password.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/email-for-password.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/register/email-for-password.adp	16 Mar 2002 21:08:37 -0000	1.1
@@ -0,0 +1,9 @@
+<master>
+<property name=title>Forgotten Password / Enter Your Email</property>
+
+<h2>Forgotten Password - Enter Your Email</h2>
+<hr><p>
+
+<FORM METHOD=GET ACTION=email-for-password-2>
+Your email: <INPUT TYPE=text name=email> <INPUT TYPE=submit value=send>
+</FORM>
Index: openacs-4/packages/acs-subsite/www/register/email-for-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/email-for-password.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/register/email-for-password.tcl	16 Mar 2002 21:08:37 -0000	1.1
@@ -0,0 +1,3 @@
+
+ad_return_template
+
Index: openacs-4/packages/acs-subsite/www/register/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/register/index.adp	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/register/index.adp	16 Mar 2002 21:08:37 -0000	1.2
@@ -47,7 +47,10 @@
 </FORM>
 
 <p>
-
+<if @email_forgotten_password_p@ eq 1>
+Have you <a href=email-for-password>forgotten your password?</a>
+<p>
+</if>
 If you keep getting thrown back here, it is probably because your
 browser does not accept cookies.  We're sorry for the inconvenience
 but it really is impossible to program a system like this without
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.1 -r1.2
--- openacs-4/packages/acs-subsite/www/register/index.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/register/index.tcl	16 Mar 2002 21:08:37 -0000	1.2
@@ -17,6 +17,8 @@
 set allow_persistent_login_p [ad_parameter AllowPersistentLoginP security 1]
 set persistent_login_p [ad_parameter AllowPersistentLoginP security 1]
 
+set email_forgotten_password_p [ad_parameter EmailForgottenPasswordP security 1]
+
 if {![info exists return_url]} {
     set return_url [ad_pvt_home]
 }
@@ -35,4 +37,4 @@
 
 set export_vars [export_form_vars return_url time token_id hash]
 
-ad_return_template
\ No newline at end of file
+ad_return_template