|
version 1.1075.2.21, 2012/12/22 15:53:00
|
version 1.1075.2.22, 2012/12/22 16:03:25
|
|
Line 5026 sub bodytag {
|
Line 5026 sub bodytag {
|
| } |
} |
| |
|
| if (!$realm) { $realm=' '; } |
if (!$realm) { $realm=' '; } |
| # Set messages |
|
| my $messages=&domainlogo($domain); |
|
| |
|
| my $extra_body_attr = &make_attr_string($forcereg,\%design); |
my $extra_body_attr = &make_attr_string($forcereg,\%design); |
| |
|
|
Line 5089 sub bodytag {
|
Line 5087 sub bodytag {
|
| |
|
| |
|
| if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { |
if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { |
| unless ($env{'request.noversionuri'} =~ m{/res/adm/pages/bookmarkmenu/}) { |
if ($dc_info) { |
| if ($dc_info) { |
$dc_info = qq|<span class="LC_cusr_subheading">$dc_info</span>|; |
| $dc_info = qq|<span class="LC_cusr_subheading">$dc_info</span>|; |
|
| } |
|
| $bodytag .= qq|<div id="LC_nav_bar">$name $role<br /> |
|
| <em>$realm</em> $dc_info</div>|; |
|
| } |
} |
| |
$bodytag .= qq|<div id="LC_nav_bar">$name $role<br /> |
| |
<em>$realm</em> $dc_info</div>|; |
| return $bodytag; |
return $bodytag; |
| } |
} |
| |
|
|
Line 5122 sub bodytag {
|
Line 5118 sub bodytag {
|
| $bodytag .= &Apache::lonmenu::innerregister($forcereg, |
$bodytag .= &Apache::lonmenu::innerregister($forcereg, |
| $args->{'bread_crumbs'}); |
$args->{'bread_crumbs'}); |
| } elsif ($forcereg) { |
} elsif ($forcereg) { |
| $bodytag .= &Apache::lonmenu::innerregister($forcereg); |
$bodytag .= &Apache::lonmenu::innerregister($forcereg,undef, |
| |
$args->{'group'}); |
| } else { |
} else { |
| my $forbodytag; |
my $forbodytag; |
| &Apache::lonmenu::prepare_functions($env{'request.noversionuri'}, |
&Apache::lonmenu::prepare_functions($env{'request.noversionuri'}, |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface