--- loncom/interface/resetpw.pm 2009/11/19 16:08:25 1.17.10.3 +++ loncom/interface/resetpw.pm 2009/10/09 00:26:40 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network # Allow access to password changing via a token sent to user's e-mail. # -# $Id: resetpw.pm,v 1.17.10.3 2009/11/19 16:08:25 raeburn Exp $ +# $Id: resetpw.pm,v 1.22 2009/10/09 00:26:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,7 +39,7 @@ Handles resetting of forgotten passwords This is part of the LearningOnline Network with CAPA project described at http://www.lon-capa.org. - + =head1 OVERVIEW A user with an e-mail address associated with his/her LON-CAPA username @@ -109,7 +109,7 @@ sub handler { } foreach my $item (@items) { if ($item =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) { - unless(grep(/^\Q$item\E$/,@allemails)) { + unless(grep(/^\Q$item\E$/,@allemails)) { push(@allemails,$item); } } @@ -148,8 +148,8 @@ sub handler { sub get_uname { my ($defdom) = @_; my %lt = &Apache::lonlocal::texthash( - unam => 'LON-CAPA username', - udom => 'LON-CAPA domain', + unam => 'username', + udom => 'domain', uemail => 'E-mail address in LON-CAPA', proc => 'Proceed'); @@ -163,9 +163,9 @@ sub get_uname {
+ - +
-
$lt{'unam'}:
LON-CAPA $lt{'unam'}:
$lt{'udom'}:
LON-CAPA $lt{'udom'}: |; $msg .= &Apache::loncommon::select_dom_form($defdom,'udom'); $msg .= qq|