loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17.10.2, 2009/10/01 21:05:12	version 1.19, 2009/10/01 17:22:13
Line 87 sub handler {	Line 87 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 126 sub handler {	Line 126 sub handler {
sub get_uname {	sub get_uname {
my ($defdom) = @_;	my ($defdom) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
unam => 'LON-CAPA username',	unam => 'username',
udom => 'LON-CAPA domain',	udom => 'domain',
uemail => 'E-mail address in LON-CAPA',	uemail => 'E-mail address in LON-CAPA',
proc => 'Proceed');	proc => 'Proceed');

Line 141 sub get_uname {	Line 141 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">LON-CAPA $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">LON-CAPA $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>