loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.59, 2003/04/12 15:57:30
+version 1.61, 2003/04/17 14:51:31
  Line 203  sub innerregister {
      my $reopen=&Apache::lonmenu::reopenmenu();
      my $newmail='';
+     if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
+ 	my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});
+         $newmail=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+         my $maptitle=&Apache::lonnet::gettitle($mapurl);
+ 	my $restitle=&Apache::lonnet::gettitle($resurl);
+         if ($maptitle) {
+ 	    $newmail.=', '.$maptitle;
+         }
+         if ($restitle) {
+ 	    $newmail.=': '.$restitle;
+         }
+         $newmail.='&nbsp;&nbsp;&nbsp;';
+     }
      if (&Apache::lonmsg::newmail()) {
         $newmail=($textual?
   '<b><a href="/adm/communicate">You have new messages</a></b><br />':