|
version 1.852, 2009/07/08 18:36:26
|
version 1.853, 2009/07/09 08:53:39
|
|
Line 4394 sub bodytag {
|
Line 4394 sub bodytag {
|
| $dc_info = '('.$dc_info.')'; |
$dc_info = '('.$dc_info.')'; |
| } |
} |
| |
|
| |
$role = "($role)" if $role; |
| |
&get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']); |
| |
|
| if ($env{'environment.remote'} eq 'off') { |
if ($env{'environment.remote'} eq 'off') { |
| # No Remote |
# No Remote |
| if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
|
Line 4411 sub bodytag {
|
Line 4414 sub bodytag {
|
| if ($no_nav_bar) { |
if ($no_nav_bar) { |
| $bodytag .= $titletable; |
$bodytag .= $titletable; |
| } else { |
} else { |
| $role = "($role)" if $role; |
|
| &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']); |
|
| $bodytag .= qq|<div id="LC_nav_bar">$name $role<br /> |
$bodytag .= qq|<div id="LC_nav_bar">$name $role<br /> |
| <em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'}; |
<em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'}; |
| |
|
|
Line 4439 sub bodytag {
|
Line 4440 sub bodytag {
|
| |
|
| # Explicit link to get inline menu |
# Explicit link to get inline menu |
| my $menu= ($no_inline_link?'' |
my $menu= ($no_inline_link?'' |
| :'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>'); |
:'<a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>'); |
| |
$bodytag .= qq|<div id="LC_nav_bar">$name $role |
| |
<em>$realm</em> $dc_info </div> |
| |
<ol class="LC_smallMenu LC_right"> |
| |
<li>$menu</li> |
| |
</ol>| unless $env{'form.inhibitmenu'}; |
| # |
# |
| return(<<ENDBODY); |
return(<<ENDBODY); |
| $bodytag |
$bodytag |
![[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