|
version 1.94, 2003/04/03 21:32:23
|
version 1.95, 2003/04/05 22:14:40
|
|
Line 1720 END
|
Line 1720 END
|
| if ($bodyonly) { |
if ($bodyonly) { |
| return $bodytag; |
return $bodytag; |
| } elsif ($ENV{'browser.interface'} eq 'textual') { |
} elsif ($ENV{'browser.interface'} eq 'textual') { |
| # |
# Accessibility |
| # 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>'; |
| } elsif ($ENV{'environment.remote'} eq 'off') { |
} elsif ($ENV{'environment.remote'} eq 'off') { |
| # |
# No Remote |
| # No-Remote rendering |
return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', |
| # |
$forcereg). |
| $upperleft=&Apache::lonmenu::menubuttons($forcereg,'web', |
'<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td bgcolor="'.$tabbg.'"><font size="+3" color="'.$font.'"><b>'.$title. |
| $forcereg); |
'</b></font></td></tr></table>'; |
| } |
} |
| |
|
| # |
# |
| # Top frame rendering |
# Top frame rendering, Remote is up |
| # |
# |
| return(<<ENDBODY); |
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="$sidebg"> |
| $upperleft</td> |
$upperleft</td> |
| <td bgcolor="$font"><font color='$sidebg'>$messages</font></td> |
<td bgcolor="$sidebg" align="right">$messages </td> |
| </tr> |
</tr> |
| <tr> |
<tr> |
| <td rowspan="3" bgcolor="$tabbg"> |
<td rowspan="3" bgcolor="$tabbg"> |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface