loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17.10.3, 2009/11/19 16:08:25	version 1.22.2.1, 2009/12/07 03:53:17
Line 39 Handles resetting of forgotten passwords	Line 39 Handles resetting of forgotten passwords

This is part of the LearningOnline Network with CAPA project	This is part of the LearningOnline Network with CAPA project
described at http://www.lon-capa.org.	described at http://www.lon-capa.org.

=head1 OVERVIEW	=head1 OVERVIEW

A user with an e-mail address associated with his/her LON-CAPA username	A user with an e-mail address associated with his/her LON-CAPA username
Line 109 sub handler {	Line 109 sub handler {
}	}
foreach my $item (@items) {	foreach my $item (@items) {
if ($item =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {	if ($item =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {
unless(grep(/^\Q$item\E$/,@allemails)) {	unless(grep(/^\Q$item\E$/,@allemails)) {
push(@allemails,$item);	push(@allemails,$item);
}	}
}	}
Line 163 sub get_uname {	Line 163 sub get_uname {
<form name="forgotpw" method="post">	<form name="forgotpw" method="post">
<table>	<table>
<tr><td>	<tr><td>
<tr><td align="left">$lt{'unam'}:</td>	<tr><td align="left">$lt{'unam'}: </td>
<td><input type="text" name="uname" size="15" /></td></tr>	<td><input type="text" name="uname" size="15" /></td></tr>
<tr><td align="left">$lt{'udom'}:</td>	<tr><td align="left">$lt{'udom'}: </td>
<td>\|;	<td>\|;
$msg .= &Apache::loncommon::select_dom_form($defdom,'udom');	$msg .= &Apache::loncommon::select_dom_form($defdom,'udom');
$msg .= qq\|</td></tr>	$msg .= qq\|</td></tr>