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 -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/register/recover-password.tcl	2 Oct 2003 12:18:07 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl	13 Jan 2005 13:55:50 -0000	1.10
@@ -17,6 +17,20 @@
     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]
+
+set email_forgotten_password_p [parameter::get \
+                                    -parameter EmailForgottenPasswordP \
+                                    -package_id $subsite_id \
+                                    -default 1]
+
+if {[string is false $email_forgotten_password_p]} {
+    ad_return_forbidden Forbidden "Emailing passwords is not allowed"
+    ad_script_abort
+}
+
+
 # Display form to collect username and authority
 set authority_options [auth::authority::get_authority_options]
 
@@ -75,3 +89,4 @@
     set login_url [ad_get_login_url -authority_id $authority_id -username $username]
 }
 
+set system_owner [ad_system_owner]