version 1.19, 2002/07/10 17:47:01
|
version 1.20, 2002/08/26 12:47:28
|
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> |