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> |