|
version 1.953, 2010/03/16 19:55:49
|
version 1.954, 2010/03/17 19:35:56
|
|
Line 4559 sub bodytag {
|
Line 4559 sub bodytag {
|
| my ($title,$function,$addentries,$bodyonly,$domain,$forcereg, |
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg, |
| $no_nav_bar,$bgcolor,$no_inline_link,$args)=@_; |
$no_nav_bar,$bgcolor,$no_inline_link,$args)=@_; |
| |
|
| |
my $public; |
| |
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
| |
|| ($env{'user.name'} eq '') && ($env{'user.domain'} eq '')) { |
| |
$public = 1; |
| |
} |
| if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); } |
if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); } |
| |
|
| $function = &get_users_function() if (!$function); |
$function = &get_users_function() if (!$function); |
|
Line 4608 sub bodytag {
|
Line 4613 sub bodytag {
|
| } |
} |
| |
|
| my $name = &plainname($env{'user.name'},$env{'user.domain'}); |
my $name = &plainname($env{'user.name'},$env{'user.domain'}); |
| if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
if ($public) { |
| undef($role); |
undef($role); |
| } else { |
} else { |
| $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'}); |
$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'}); |
|
Line 4666 sub bodytag {
|
Line 4671 sub bodytag {
|
| $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|; |
$bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|; |
| |
|
| #don't show menus for public users |
#don't show menus for public users |
| if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){ |
if (!$public){ |
| $bodytag .= Apache::lonmenu::secondary_menu(); |
$bodytag .= Apache::lonmenu::secondary_menu(); |
| $bodytag .= Apache::lonmenu::serverform(); |
$bodytag .= Apache::lonmenu::serverform(); |
| $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); |
$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); |
![[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