|
version 1.8.4.6, 2010/01/05 15:27:31
|
version 1.8.4.7, 2010/01/15 04:12:54
|
|
Line 103 ENDSCRIPT
|
Line 103 ENDSCRIPT
|
| $r->print(&Apache::loncommon::start_page( 'Main Menu', |
$r->print(&Apache::loncommon::start_page( 'Main Menu', |
| $script_tag, |
$script_tag, |
| {'bread_crumbs' => 1})); |
{'bread_crumbs' => 1})); |
| |
my $rolecount = 0; |
| |
unless (($custommenu) || ($env{'user.domain'} eq 'gcitest')) { |
| |
foreach my $envkey (keys(%env)) { |
| |
next unless ($envkey =~ /^user\.role\./); |
| |
$rolecount ++; |
| |
} |
| |
} |
| if ($custommenu) { |
if ($custommenu) { |
| $r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher).$form); |
$r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher).$form); |
| } elsif ($env{'user.domain'} eq 'gcitest') { |
} elsif ($env{'user.domain'} eq 'gcitest') { |
| $r->print(&Apache::lonmenu::inlinemenu('gcistudent',$switcher).$form); |
$r->print(&Apache::lonmenu::inlinemenu('gcistudent',$switcher).$form); |
| |
} elsif (!$rolecount) { |
| |
$r->print(&Apache::lonmenu::inlinemenu('gcinorole').$form); |
| } else { |
} else { |
| $r->print(&Apache::lonmenu::inlinemenu().$form); |
$r->print(&Apache::lonmenu::inlinemenu().$form); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmainmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface