version 1.92, 2003/03/28 01:53:55
|
version 1.94, 2003/04/03 21:32:23
|
Line 1715 sub bodytag {
|
Line 1715 sub bodytag {
|
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
$addentries> |
$addentries> |
END |
END |
|
my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'. |
|
$lonhttpdPort.$img.'" />'; |
if ($bodyonly) { |
if ($bodyonly) { |
return $bodytag; |
return $bodytag; |
} elsif ($ENV{'browser.interface'} eq 'textual') { |
} elsif ($ENV{'browser.interface'} eq 'textual') { |
|
# |
|
# Accessibility rendering |
|
# |
return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', |
return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', |
$forcereg). |
$forcereg). |
'<h1>LON-CAPA: '.$title.'</h1>'; |
'<h1>LON-CAPA: '.$title.'</h1>'; |
} else { |
} elsif ($ENV{'environment.remote'} eq 'off') { |
return(<<ENDBODY); |
# |
|
# No-Remote rendering |
|
# |
|
$upperleft=&Apache::lonmenu::menubuttons($forcereg,'web', |
|
$forcereg); |
|
} |
|
# |
|
# Top frame rendering |
|
# |
|
return(<<ENDBODY); |
$bodytag |
$bodytag |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<tr><td bgcolor="$font"> |
<tr><td bgcolor="$font"> |
<img src="http://$ENV{'HTTP_HOST'}:$lonhttpdPort$img" /></td> |
$upperleft</td> |
<td bgcolor="$font"><font color='$sidebg'>$messages</font></td> |
<td bgcolor="$font"><font color='$sidebg'>$messages</font></td> |
</tr> |
</tr> |
<tr> |
<tr> |
Line 1748 $bodytag
|
Line 1762 $bodytag
|
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr> |
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr> |
</table><br> |
</table><br> |
ENDBODY |
ENDBODY |
} |
|
} |
} |
############################################### |
############################################### |
|
|