version 1.150, 2005/02/26 06:14:01
|
version 1.151, 2005/03/10 15:32:03
|
Line 62 sub initlittle {
|
Line 62 sub initlittle {
|
'main' => 'Main Menu', |
'main' => 'Main Menu', |
'roles' => ($ENV{'user.adv'}? |
'roles' => ($ENV{'user.adv'}? |
'Roles':'Courses'), |
'Roles':'Courses'), |
|
'docs' => 'Course Documents', |
'exit' => 'Exit', |
'exit' => 'Exit', |
'launch' => 'Launch Remote Control'); |
'launch' => 'Launch Remote Control'); |
} |
} |
Line 80 sub menubuttons {
|
Line 81 sub menubuttons {
|
|
|
my $navmaps=''; |
my $navmaps=''; |
my $reloadlink=''; |
my $reloadlink=''; |
|
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'})); |
if ($ENV{'request.state'} eq 'construct') { |
if ($ENV{'request.state'} eq 'construct') { |
Line 107 ENDNAV
|
Line 109 ENDNAV
|
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a> |
ENDRELOAD |
ENDRELOAD |
} |
} |
|
if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) { |
|
$docs=(<<ENDDOCS); |
|
<a href="/adm/coursedocs" target="_top"><font color="$font">$lt{'docs'}</font></a> |
|
ENDDOCS |
|
} |
} |
} |
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
Line 116 ENDRELOAD
|
Line 123 ENDRELOAD
|
$utility |
$utility |
</script> |
</script> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
$reloadlink $navmaps |
$reloadlink $navmaps $docs |
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a> |
<a href="/adm/roles" target="_top"><font 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 color="$font">$lt{'exit'}</font></a> |
<br /> |
<br /> |
Line 161 ENDMAINMENU
|
Line 168 ENDMAINMENU
|
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="$link"><font color="$font">$lt{'nav'}</font></a></td> |
<a href="$link"><font color="$font">$lt{'nav'}</font></a></td> |
ENDNAV |
ENDNAV |
|
if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) { |
|
$docs=(<<ENDDOCS); |
|
<td bgcolor="$tabbg"> |
|
<a href="/adm/coursedocs"><font color="$font">$lt{'docs'}</font></a></td> |
|
ENDDOCS |
|
} |
if ( |
if ( |
($ENV{'request.noversionuri'}=~m[^/(res|public)/] && |
($ENV{'request.noversionuri'}=~m[^/(res|public)/] && |
$ENV{'request.symb'} eq '') |
$ENV{'request.symb'} eq '') |
Line 199 $utility
|
Line 212 $utility
|
</td> |
</td> |
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
|
$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 color="$font">$lt{'launch'}</font></a></td> |