version 1.175, 2006/04/20 04:22:38
|
version 1.176, 2006/04/21 20:45:42
|
Line 101 sub menubuttons {
|
Line 101 sub menubuttons {
|
my $showgroups=0; |
my $showgroups=0; |
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); |
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); |
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
my $face= 'face="Arial,Helvetica,sans-serif"'; |
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
my $returnurl = $env{'request.filename'}; |
my $returnurl = $env{'request.filename'}; |
Line 121 sub menubuttons {
|
Line 121 sub menubuttons {
|
} |
} |
} |
} |
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
|
if ($env{'browser.interface'} eq 'textual') { |
if ($env{'browser.interface'} eq 'textual') { |
# Textual display only |
# Textual display only |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
Line 134 ENDNAV
|
Line 132 ENDNAV
|
($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { |
($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&Apache::lonnet::escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a> |
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> |
ENDRELOAD |
ENDRELOAD |
} |
} |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a> |
<a href="/adm/coursedocs" target="_top">$lt{'docs'}</a> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
$groups =(<<ENDGROUPS); |
$groups =(<<ENDGROUPS); |
<td bgcolor="$tabbg"> |
<a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> |
<a href="/adm/coursegroups" target="_top"><font $face color="$font">$lt{'groups'}</font></a></td> |
|
ENDGROUPS |
ENDGROUPS |
} |
} |
} |
} |
Line 156 ENDGROUPS
|
Line 153 ENDGROUPS
|
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
$utility |
$utility |
</script> |
</script> |
|
<div id="LC_top_nav"> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
$reloadlink $navmaps $docs $groups |
$reloadlink $navmaps $docs $groups |
<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a> |
<a href="/adm/roles" target="_top">$lt{'roles'}</a> |
<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a> |
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
|
</div> |
<br /> |
<br /> |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
Line 182 ENDMAINMENU
|
Line 181 ENDMAINMENU
|
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<font face="Arial,Helvetica,sans-serif"> |
<table id="LC_top_nav"> |
<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
|
<tr> |
<tr> |
<td bgcolor="$tabbg"> |
<td> |
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
</td> |
</td> |
<td align="right" bgcolor="$tabbg"> |
<td align="right"> |
<img align="right" src="$logo" alt="Logo" /> |
<img align="right" src="$logo" alt="Logo" /> |
<b>LON-CAPA</b> |
<b>LON-CAPA</b> |
</td> |
</td> |
Line 205 ENDINLINEMENU
|
Line 203 ENDINLINEMENU
|
$link="javascript:gonav('".$link."')"; |
$link="javascript:gonav('".$link."')"; |
} |
} |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td bgcolor="$tabbg"> |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
<a href="$link" target="_top"><font $face color="$font">$lt{'nav'}</font></a></td> |
|
ENDNAV |
ENDNAV |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<td bgcolor="$tabbg"> |
<td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td> |
<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a></td> |
|
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
$groups =(<<ENDGROUPS); |
$groups =(<<ENDGROUPS); |
<td bgcolor="$tabbg"> |
<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> |
<a href="/adm/coursegroups" target="_top"><font $face color="$font">$lt{'groups'}</font></a></td> |
|
ENDGROUPS |
ENDGROUPS |
} |
} |
if ( |
if ( |
Line 232 ENDGROUPS
|
Line 227 ENDGROUPS
|
) { |
) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&Apache::lonnet::escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<td bgcolor="$tabbg"> |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td> |
|
ENDRELOAD |
ENDRELOAD |
} |
} |
} |
} |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&Apache::lonnet::escape('return:'); |
$reloadlink=(<<ENDCRELOAD); |
$reloadlink=(<<ENDCRELOAD); |
<td bgcolor="$tabbg"> |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td> |
|
ENDCRELOAD |
ENDCRELOAD |
} |
} |
my $reg=''; |
my $reg=''; |
Line 259 ENDCRELOAD
|
Line 252 ENDCRELOAD
|
$utility |
$utility |
// ]]> |
// ]]> |
</script> |
</script> |
<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
<table id="LC_top_nav"> |
<tr> |
<tr> |
<td bgcolor="$tabbg"> |
<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td> |
<a href="/adm/menu" target="_top"><font $face color="$font">$lt{'main'}</font></a> |
|
</td> |
|
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
<td bgcolor="$tabbg"> |
<td><a href="/adm/remote?action=launch&url=$escurl" target="_top">$lt{'launch'}</td> |
<a href="/adm/remote?action=launch&url=$escurl" target="_top"> |
<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td> |
<font $face color="$font">$lt{'launch'}</font></a></td> |
<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
<td bgcolor="$tabbg"> |
<td><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td> |
<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a> |
|
</td> |
|
<td bgcolor="$tabbg"> |
|
<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a> |
|
</td> |
|
<td bgcolor="$tabbg"> |
|
<img align="right" src="$logo" alt="Logo" /> |
|
<b>LON-CAPA</b></td> |
|
</tr> |
</tr> |
</table> |
</table> |
$form |
$form |
Line 510 s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&
|
Line 493 s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&
|
ENDREALRES |
ENDREALRES |
} |
} |
} |
} |
&Apache::lonnet::logthis("menuitems $menuitems"); |
|
my $buttons=''; |
my $buttons=''; |
foreach (split(/\n/,$menuitems)) { |
foreach (split(/\n/,$menuitems)) { |
my ($command,@rest)=split(/\&/,$_); |
my ($command,@rest)=split(/\&/,$_); |