version 1.155, 2005/06/08 02:27:21
|
version 1.160, 2005/08/26 18:44:21
|
Line 84 sub menubuttons {
|
Line 84 sub menubuttons {
|
my $docs=''; |
my $docs=''; |
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 106 ENDNAV
|
Line 107 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 color="$font">$lt{'ret'}</font></a> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></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 color="$font">$lt{'docs'}</font></a> |
<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a> |
ENDDOCS |
ENDDOCS |
} |
} |
} |
} |
Line 124 $utility
|
Line 125 $utility
|
</script> |
</script> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
$reloadlink $navmaps $docs |
$reloadlink $navmaps $docs |
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a> |
<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a> |
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a> |
<br /> |
<br /> |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
Line 157 ENDMAINMENU
|
Line 158 ENDMAINMENU
|
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); |
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); |
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); |
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); |
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
|
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
|
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
|
return (<<ENDINLINEMENU); |
|
<font face="Arial,Helvetica,sans-serif"> |
|
<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
|
<tr> |
|
<td bgcolor="$tabbg"> |
|
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
|
</td> |
|
<td align="right" bgcolor="$tabbg"> |
|
<img align="right" src="$logo" alt="Logo" /> |
|
<b>LON-CAPA</b> |
|
</td> |
|
</tr> |
|
</table> |
|
</font> |
|
ENDINLINEMENU |
|
} |
# Do we have a NAV link? |
# Do we have a NAV link? |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
Line 166 ENDMAINMENU
|
Line 185 ENDMAINMENU
|
} |
} |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="$link"><font color="$font">$lt{'nav'}</font></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 bgcolor="$tabbg"> |
<a href="/adm/coursedocs"><font color="$font">$lt{'docs'}</font></a></td> |
<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a></td> |
ENDDOCS |
ENDDOCS |
} |
} |
if ( |
if ( |
Line 187 ENDDOCS
|
Line 206 ENDDOCS
|
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&Apache::lonnet::escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a></td> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td> |
ENDRELOAD |
ENDRELOAD |
} |
} |
} |
} |
Line 198 ENDRELOAD
|
Line 217 ENDRELOAD
|
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
|
|
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
Line 205 ENDRELOAD
|
Line 225 ENDRELOAD
|
$utility |
$utility |
// ]]> |
// ]]> |
</script> |
</script> |
<font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
<tr> |
<tr> |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a> |
<a href="/adm/menu" target="_top"><font $face color="$font">$lt{'main'}</font></a> |
</td> |
</td> |
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
$docs |
$docs |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="/adm/remote?action=launch&url=$escurl" target="_top"> |
<a href="/adm/remote?action=launch&url=$escurl" target="_top"> |
<font color="$font">$lt{'launch'}</font></a></td> |
<font $face color="$font">$lt{'launch'}</font></a></td> |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a> |
<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a> |
</td> |
</td> |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a> |
</td> |
</td> |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" alt="Logo" /> |
<b>LON-CAPA</b></td> |
<b>LON-CAPA</b></td> |
$form |
$form |
</tr> |
</tr> |
</table> |
</table> |
</font> |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 301 sub innerregister {
|
Line 320 sub innerregister {
|
|
|
my $newmail=''; |
my $newmail=''; |
if ($noremote) { |
if ($noremote) { |
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">'; |
$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'"><font face="Arial,Helvetica,sans-serif">'; |
} |
} |
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { |
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { |
my ($mapurl,$rid,$resurl)= |
my ($mapurl,$rid,$resurl)= |
Line 326 sub innerregister {
|
Line 345 sub innerregister {
|
$newmail = $titletable; |
$newmail = $titletable; |
} else { |
} else { |
if ($noremote) { |
if ($noremote) { |
$newmail.='</td></tr></table></font>'; |
$newmail.='</font></td></tr></table>'; |
} |
} |
} |
} |
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
Line 1124 ENDUTILITY
|
Line 1143 ENDUTILITY
|
|
|
sub serverform { |
sub serverform { |
return(<<ENDSERVERFORM); |
return(<<ENDSERVERFORM); |
|
|
<form name="server" action="/adm/logout" method="post" target="_top"> |
<form name="server" action="/adm/logout" method="post" target="_top"> |
<input type="hidden" name="postdata" value="none" /> |
<input type="hidden" name="postdata" value="none" /> |
<input type="hidden" name="command" value="none" /> |
<input type="hidden" name="command" value="none" /> |