--- loncom/interface/resetpw.pm 2009/11/19 16:08:25 1.17.10.3 +++ loncom/interface/resetpw.pm 2009/12/07 03:53:17 1.22.2.1 @@ -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.2.1 2009/12/07 03:53:17 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); } } @@ -163,9 +163,9 @@ sub get_uname {