--- loncom/interface/lonmenu.pm 2003/04/12 15:57:30 1.59 +++ loncom/interface/lonmenu.pm 2003/04/18 01:00:46 1.63 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.59 2003/04/12 15:57:30 www Exp $ +# $Id: lonmenu.pm,v 1.63 2003/04/18 01:00:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -203,6 +203,19 @@ 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.='   '; + } if (&Apache::lonmsg::newmail()) { $newmail=($textual? 'You have new messages
': @@ -577,7 +590,7 @@ sub switch { my $text=$top.' '.$bot; $text=~s/\- //; $inlineremote[10*$row+$col]="\n".($nobreak?' ':'
'). - ''.$text.' '. + ''.$text.' '. ($nobreak?'':$desc); } else { # Inline Remote @@ -587,7 +600,7 @@ sub switch { $inlineremote[10*$row+$col]="\n". ($nobreak==3?''.$text.''. ($nobreak?'':''.$desc.'').($nobreak!=1?'':''); @@ -789,7 +802,7 @@ ENDUTILITY sub serverform { return(< +