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> |