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.19.2.1 and 1.20

version 1.19.2.1, 2002/09/17 20:05:39	version 1.20, 2002/08/26 12:47:28
Line 78 sub handler {	Line 78 sub handler {
my $firsturl=$ENV{'request.firsturl'};	my $firsturl=$ENV{'request.firsturl'};
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------- Are we access server and overloaded?
if (($role eq 'access') && ($loadpercent>100.0)) {	if (($role eq 'access') && ($loadpercent>100.0)) {
$otherserver=Apache::lonnet::spareserver($loadpercent);	$otherserver=Apache::lonnet::spareserver();
}	}

# -------------------------------------------------------- Set login parameters	# -------------------------------------------------------- Set login parameters
Line 104 sub handler {	Line 104 sub handler {
my $logtoken=Apache::lonnet::reply(	my $logtoken=Apache::lonnet::reply(
'tmpput:'.$ukey.$lkey.'&'.$firsturl,	'tmpput:'.$ukey.$lkey.'&'.$firsturl,
$lonhost);	$lonhost);
	my $domainlogo=&Apache::loncommon::domainlogo();
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
Line 299 ENDLOGIN	Line 299 ENDLOGIN
<td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>	<td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>

<!-- Row 5 Column 3 -->	<!-- Row 5 Column 3 -->
<td width="100%" valign="bottom" bgcolor="#ffffff"><img src="$iconpath/litetext.gif" alt="Laboratory for Instructional Technology in Education" /><img src="$iconpath/lite.gif" alt="" /></td>	<td width="100%" valign="bottom" bgcolor="#ffffff">
	$domainlogo
	</td>

<!-- Row 5 Column 4 -->	<!-- Row 5 Column 4 -->
<td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>	<td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>

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

Removed from v.1.19.2.1
changed lines
	Added in v.1.20