|
version 1.231, 2007/11/09 20:57:29
|
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) { |
|
Line 1398 sub hidden_button_check {
|
Line 1400 sub hidden_button_check {
|
| if ($env{'request.role.adv'}) { |
if ($env{'request.role.adv'}) { |
| return; |
return; |
| } |
} |
| return &Apache::lonnet::EXT('resource.0.buttonshide'); |
my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide'); |
| |
return $buttonshide; |
| } |
} |
| |
|
| # ================================================================ Main Program |
# ================================================================ Main Program |
![[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