--- loncom/interface/lonmenu.pm 2005/02/21 00:32:04 1.149
+++ loncom/interface/lonmenu.pm 2005/03/10 15:32:03 1.151
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.149 2005/02/21 00:32:04 www Exp $
+# $Id: lonmenu.pm,v 1.151 2005/03/10 15:32:03 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -62,6 +62,7 @@ sub initlittle {
'main' => 'Main Menu',
'roles' => ($ENV{'user.adv'}?
'Roles':'Courses'),
+ 'docs' => 'Course Documents',
'exit' => 'Exit',
'launch' => 'Launch Remote Control');
}
@@ -80,6 +81,7 @@ sub menubuttons {
my $navmaps='';
my $reloadlink='';
+ my $docs='';
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));
if ($ENV{'request.state'} eq 'construct') {
@@ -107,17 +109,21 @@ ENDNAV
$lt{'ret'}
ENDRELOAD
}
+ if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
+ $docs=(<$lt{'docs'}
+ENDDOCS
+ }
}
my $form=&serverform();
my $utility=&utilityfunctions();
my $output=(<
-
$lt{'main'}
-$reloadlink $navmaps
+$reloadlink $navmaps $docs
$lt{'roles'}
$lt{'exit'}
@@ -162,6 +168,12 @@ ENDMAINMENU
$lt{'nav'} |
ENDNAV
+ if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
+ $docs=(<
+$lt{'docs'}
+ENDDOCS
+ }
if (
($ENV{'request.noversionuri'}=~m[^/(res|public)/] &&
$ENV{'request.symb'} eq '')
@@ -188,9 +200,10 @@ ENDRELOAD
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
return (<
-
+// ]]>
@@ -199,6 +212,7 @@ $utility
$reloadlink
$navmaps
+$docs
$lt{'launch'} |
@@ -309,9 +323,10 @@ sub innerregister {
}
if ($ENV{'request.state'} eq 'construct') {
$newmail = $titletable;
- }
- if ($noremote) {
- $newmail.='
';
+ } else {
+ if ($noremote) {
+ $newmail.='';
+ }
}
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
my $tablestart=($noremote?'':'').($textinter?'
'.&mt('Skip to Content').'
':'');
@@ -503,7 +518,7 @@ ENDREGTEXT
$result = (<
-//
+// END LON-CAPA Internal
ENDREGTHIS
}