loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60, 2003/04/17 13:21:36	version 1.61, 2003/04/17 14:51:31
Line 203 sub innerregister {	Line 203 sub innerregister {
my $reopen=&Apache::lonmenu::reopenmenu();	my $reopen=&Apache::lonmenu::reopenmenu();

my $newmail='';	my $newmail='';
if (($textual) && ($ENV{'request.symb'})) {	if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});	my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});
$newmail=&Apache::lonnet::gettitle($mapurl).': '.	$newmail=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
&Apache::lonnet::gettitle($resurl).'   ';	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()) {	if (&Apache::lonmsg::newmail()) {
$newmail=($textual?	$newmail=($textual?