version 1.59, 2003/04/12 15:57:30
|
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'}) && ($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()) { |
if (&Apache::lonmsg::newmail()) { |
$newmail=($textual? |
$newmail=($textual? |
'<b><a href="/adm/communicate">You have new messages</a></b><br />': |
'<b><a href="/adm/communicate">You have new messages</a></b><br />': |