loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.129 and 1.130

version 1.129, 2009/10/23 16:14:36	version 1.130, 2009/12/01 14:23:49
Line 390 if (($showcoursecat eq '') \|\| ($showcour	Line 390 if (($showcoursecat eq '') \|\| ($showcour
}	}
my $newuserlink;	my $newuserlink;
if ($shownewuserlink) {	if ($shownewuserlink) {
$newuserlink = &newuser_link($lt{'newuser'}).'<br />';	$newuserlink = &newuser_link($lt{'newuser'});
}	}
my $logintitle;	my $logintitle;
if ($loginheader eq 'text') {	if ($loginheader eq 'text') {
Line 412 my $loginform=(<<LFORM);	Line 412 my $loginform=(<<LFORM);
<input type="hidden" name="lextkey" value="$lextkey" />	<input type="hidden" name="lextkey" value="$lextkey" />
<input type="hidden" name="uextkey" value="$uextkey" />	<input type="hidden" name="uextkey" value="$uextkey" />
<b><label for="uname">$lt{'un'}</label>:</b><br />	<b><label for="uname">$lt{'un'}</label>:</b><br />
<input type="text" name="uname" size="15" value="$authusername" /><br />	<input type="text" name="uname" id="uname" size="15" value="$authusername" /><br />
<b><label for="upass$now">$lt{'pw'}</label>:</b><br />	<b><label for="upass$now">$lt{'pw'}</label>:</b><br />
<input type="password" name="upass$now" size="15" /><br />	<input type="password" name="upass$now" id="upass$now" size="15" /><br />
<b><label for="udom">$lt{'dom'}</label>:</b><br />	<b><label for="udom">$lt{'dom'}</label>:</b><br />
<input type="text" name="udom" size="15" value="$authdomain" /><br />	<input type="text" name="udom" id="udom" size="15" value="$authdomain" /><br />
<input type="submit" value="$lt{'log'}" />	<input type="submit" value="$lt{'log'}" />
</form>	</form>
LFORM	LFORM
Line 449 HEADER	Line 449 HEADER
</div>	</div>

<div class="LC_loginpage_loginInfo">	<div class="LC_loginpage_loginInfo">
$loginhelp<br />	$loginhelp<br />
$forgotpw<br />	$forgotpw<br />
$contactblock<br />	<br />
$newuserlink	$contactblock<br />
$coursecatalog	<br />
	$newuserlink<br />
	$coursecatalog
</div>	</div>
</div>	</div>
ENDTOP	ENDTOP
Line 540 sub contactdisplay {	Line 542 sub contactdisplay {
$showhelpdesk = 1;	$showhelpdesk = 1;
}	}
if ($servadm && $showadminmail) {	if ($servadm && $showadminmail) {
$contactblock .= '<b>   '.$$lt{'servadm'}.':</b><br />'.	$contactblock .= $$lt{'servadm'}.':<br />'.
'<tt>      '.$servadm.'</tt><br /> <br />';	'<tt>'.$servadm.'</tt><br />';
}	}
if ($showhelpdesk) {	if ($showhelpdesk) {
$contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />';	$contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />';
Line 562 function helpdesk() {	Line 564 function helpdesk() {
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}
$contactblock .= <<"ENDBLOCK";	$contactblock .= $version;
$version
ENDBLOCK
return $contactblock;	return $contactblock;
}	}

Line 595 END	Line 595 END

sub newuser_link {	sub newuser_link {
my ($linkname) = @_;	my ($linkname) = @_;
return '   <a href="/adm/createaccount"><b>'.$linkname.'</b></a><br />';	return '<a href="/adm/createaccount">'.$linkname.'</a>';
}	}

1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.129
changed lines
	Added in v.1.130