loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;