loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2008/10/03 23:37:27	version 1.10, 2008/10/04 00:09:18
Line 41 sub handler {	Line 41 sub handler {
if ($r->header_only) {	if ($r->header_only) {
return OK;	return OK;
}	}
my $start_page =
&Apache::loncommon::start_page('Reset password','',
{
'no_inline_link' => 1,});
$r->print($start_page);
my $contact_name = &mt('LON-CAPA helpdesk');	my $contact_name = &mt('LON-CAPA helpdesk');
my $contact_email = $r->dir_config('lonSupportEMail');	my $contact_email = $r->dir_config('lonSupportEMail');
my $server = $r->dir_config('lonHostID');	my $server = $r->dir_config('lonHostID');
Line 58 sub handler {	Line 53 sub handler {
my $uname = &unescape($env{'form.uname'});	my $uname = &unescape($env{'form.uname'});
my $udom = $env{'form.udom'};	my $udom = $env{'form.udom'};
my $token = $env{'form.token'};	my $token = $env{'form.token'};
	my $start_page =
	&Apache::loncommon::start_page('Reset password','',
	{
	'no_inline_link' => 1,});
	$r->print($start_page);
$r->print(&mt('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>'));	$r->print(&mt('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>'));
my $output;	my $output;
if ($token) {	if ($token) {