|
version 1.232, 2008/01/14 14:32:30
|
version 1.233, 2008/01/15 16:53:27
|
|
Line 349 sub innerregister {
|
Line 349 sub innerregister {
|
| } else { |
} else { |
| $newmail= 'swmenu.setstatus("you have","messages");'; |
$newmail= 'swmenu.setstatus("you have","messages");'; |
| } |
} |
| } elsif (($textual) |
} |
| |
if (($textual) |
| && ($env{'request.symb'}) |
&& ($env{'request.symb'}) |
| && ($env{'request.course.id'})) { |
&& ($env{'request.course.id'})) { |
| $newmail.= '<td class="LC_current_location">'; |
$newmail.= '<td class="LC_current_location">'; |
| my ($mapurl,$rid,$resurl)= |
my ($mapurl,$rid,$resurl)= |
| &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
| $newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
my $coursetitle=$env{'course.'.$env{'request.course.id'}.'.description'}; |
| |
$newmail.=$coursetitle; |
| my $maptitle=&Apache::lonnet::gettitle($mapurl); |
my $maptitle=&Apache::lonnet::gettitle($mapurl); |
| my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
| if ($maptitle && $maptitle ne 'default.sequence') { |
if ($maptitle && ($maptitle ne 'default.sequence') && ($maptitle ne $coursetitle)) { |
| $newmail.=', '.$maptitle; |
$newmail.=', '.$maptitle; |
| } |
} |
| if ($restitle) { |
if ($restitle) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface