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 -N -r1.14.2.4 -r1.14.2.5 --- openacs-4/packages/acs-subsite/www/register/index.tcl 27 May 2016 16:08:37 -0000 1.14.2.4 +++ openacs-4/packages/acs-subsite/www/register/index.tcl 27 May 2016 22:26:49 -0000 1.14.2.5 @@ -7,7 +7,7 @@ {email ""} {return_url:localurl ""} } -validate { - valid_email -require email { + valid_email -requires email { if {![regexp {^[\w.@+/=$%!*~-]+$} $email]} { ad_complain "invalid email address" } 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 -N -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/acs-subsite/www/register/recover-password.tcl 10 Sep 2015 08:21:52 -0000 1.13.2.1 +++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl 27 May 2016 22:26:49 -0000 1.13.2.2 @@ -8,6 +8,12 @@ {authority_id:naturalnum ""} {username ""} {email ""} +} -validate { + valid_email -requires email { + if {![regexp {^[\w.@+/=$%!*~-]+$} $email]} { + ad_complain "invalid email address" + } + } } set page_title [_ acs-subsite.Reset_Password]