loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.152, 2005/04/07 06:56:23	version 1.153, 2005/06/06 02:29:46
Line 304 sub innerregister {	Line 304 sub innerregister {
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';	$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';
}	}
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) {	if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) {
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});	my ($mapurl,$rid,$resurl)=
	&Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'};	$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'};
my $maptitle=&Apache::lonnet::gettitle($mapurl);	my $maptitle=&Apache::lonnet::gettitle($mapurl);
my $restitle=&Apache::lonnet::gettitle($resurl);	my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread());
if ($maptitle && $maptitle ne 'default.sequence') {	if ($maptitle && $maptitle ne 'default.sequence') {
$newmail.=', '.$maptitle;	$newmail.=', '.$maptitle;
}	}