version 1.82, 2006/11/01 21:27:50
|
version 1.83, 2006/11/10 02:02:57
|
Line 308 my %lt=&Apache::lonlocal::texthash(
|
Line 308 my %lt=&Apache::lonlocal::texthash(
|
'log' => 'Log in', |
'log' => 'Log in', |
'help' => 'Help', |
'help' => 'Help', |
'serv' => 'Server', |
'serv' => 'Server', |
'helpdesk' => 'Contact Helpdesk'); |
'helpdesk' => 'Contact Helpdesk', |
|
'forgotpw' => 'Forgot password?'); |
# -------------------------------------------------- Change password field name |
# -------------------------------------------------- Change password field name |
my $now=time; |
my $now=time; |
|
my $forgotpw = &forgotpwdisplay(\%lt); |
# ---------------------------------------------------------- Serve rest of page |
# ---------------------------------------------------------- Serve rest of page |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
|
|
Line 493 ENDNOOPT
|
Line 495 ENDNOOPT
|
<input type="submit" value="$lt{'log'}" /> |
<input type="submit" value="$lt{'log'}" /> |
</td> |
</td> |
</tr> |
</tr> |
|
<tr> |
|
<td bgcolor="$mainbg" valign="bottom" align="left" colspan="2"> |
|
$forgotpw |
|
</td> |
|
</tr> |
</table> |
</table> |
<!-- End sub-table --> |
<!-- End sub-table --> |
</form> |
</form> |
Line 624 ENDSCRIPT
|
Line 631 ENDSCRIPT
|
ENDBLOCK |
ENDBLOCK |
return $contactblock; |
return $contactblock; |
} |
} |
|
|
|
sub forgotpwdisplay { |
|
my ($lt) = @_; |
|
my $prompt_for_resetpw = 1; |
|
if ($prompt_for_resetpw) { |
|
return '<br /> <a href="/adm/resetpw">'.$lt->{'forgotpw'}.'</a></b><br /><br />'; |
|
} |
|
return; |
|
} |
|
|
|
|
1; |
1; |