--- 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
 <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>
 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 $utility=&utilityfunctions();
 	my $output=(<<ENDMAINMENU);
 <script type="text/javascript">
-<!-- // BEGIN LON-CAPA Internal
+// BEGIN LON-CAPA Internal
 $utility
--->
 </script>
 <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/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
 <br />
@@ -162,6 +168,12 @@ ENDMAINMENU
 <td bgcolor="$tabbg">
 <a href="$link"><font color="$font">$lt{'nav'}</font></a></td>
 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 (
 		($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 (<<ENDINLINEMENU);
 <script type="text/javascript">
-<!-- // BEGIN LON-CAPA Internal
+// BEGIN LON-CAPA Internal
+// <![CDATA[
 $utility
--->
+// ]]>
 </script>
 <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
 <tr>
@@ -199,6 +212,7 @@ $utility
 </td>
 $reloadlink
 $navmaps
+$docs
 <td bgcolor="$tabbg">
 <a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">
 <font color="$font">$lt{'launch'}</font></a></td>
@@ -309,9 +323,10 @@ sub innerregister {
     }
     if ($ENV{'request.state'} eq 'construct') {
         $newmail = $titletable;
-    }
-    if ($noremote) {
-	$newmail.='</td></tr></table></font>';
+    } else {
+	if ($noremote) {
+	    $newmail.='</td></tr></table></font>';
+	}
     }
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
     my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');
@@ -503,7 +518,7 @@ ENDREGTEXT
 	    $result = (<<ENDREGTHIS);
      
 <script type="text/javascript">
-// <!-- BEGIN LON-CAPA Internal
+// BEGIN LON-CAPA Internal
 var swmenu=null;
 
     function LONCAPAreg() {
@@ -538,7 +553,7 @@ var swmenu=null;
 			  2000);
       }
 
-// END LON-CAPA Internal -->
+// END LON-CAPA Internal 
 </script>
 ENDREGTHIS
         }