version 1.129, 2004/11/13 21:07:19
|
version 1.130, 2004/11/14 07:32:20
|
Line 96 ENDNAV
|
Line 96 ENDNAV
|
ENDRELOAD |
ENDRELOAD |
} |
} |
} |
} |
|
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
my $output=(<<ENDMAINMENU); |
my $output=(<<ENDMAINMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 107 $reloadlink $navmaps<br />
|
Line 108 $reloadlink $navmaps<br />
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
|
$form |
ENDMAINMENU |
ENDMAINMENU |
if ($registration) { $output.=&innerregister($forcereg,$target); } |
if ($registration) { $output.=&innerregister($forcereg,$target); } |
return $output."<hr />"; |
return $output."<hr />"; |
Line 153 ENDRELOAD
|
Line 155 ENDRELOAD
|
if ($registration) { |
if ($registration) { |
$reg=&innerregister($forcereg,$target); |
$reg=&innerregister($forcereg,$target); |
} |
} |
|
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 172 $navmaps
|
Line 175 $navmaps
|
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<img align="right" src="/adm/lonIcons/minilogo.gif" /> |
<img align="right" src="/adm/lonIcons/minilogo.gif" /> |
<b>LON-CAPA</b></td> |
<b>LON-CAPA</b></td> |
|
$form |
</tr> |
</tr> |
</table> |
</table> |
</font> |
</font> |
Line 406 ENDREALRES
|
Line 410 ENDREALRES
|
} |
} |
if ($textual) { |
if ($textual) { |
# Registered, textual output |
# Registered, textual output |
my $form=&serverform(); |
|
my $inlinebuttons=''; |
my $inlinebuttons=''; |
|
|
if ($ENV{'browser.interface'} eq 'textual') { |
if ($ENV{'browser.interface'} eq 'textual') { |
Line 430 $newmail
|
Line 433 $newmail
|
$tablestart |
$tablestart |
$inlinebuttons |
$inlinebuttons |
$tableend |
$tableend |
$form |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 1057 sub handler {
|
Line 1059 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $form=&serverform(); |
my $form; |
|
if ($ENV{'environment.remote'} ne 'off' && |
|
$ENV{'browser.interface'} ne 'textual') { |
|
$form=&serverform(); |
|
} |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
my $function='student'; |
my $function='student'; |
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |