--- loncom/interface/lonmenu.pm 2009/12/24 18:28:58 1.309.2.5 +++ loncom/interface/lonmenu.pm 2010/01/06 18:19:59 1.309.2.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.309.2.5 2009/12/24 18:28:58 raeburn Exp $ +# $Id: lonmenu.pm,v 1.309.2.9 2010/01/06 18:19:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1380,29 +1380,42 @@ sub inlinemenu { undef(@inlineremote); undef(%category_members); my $output; - if ($context eq 'gcicustom') { - my $createtext = &mt('Create Concept Test'); - if ($switcher) { - $createtext = &mt('Create New Test'); - } + if (($context eq 'gcicustom') || ($context eq 'gcistudent')) { $output=''. ''; - if (($env{'request.course.id'}) && - (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { - $output.= ''; + $output .= ''. +''; + if ($env{'request.course.id'}) { + if (($context eq 'gcicustom') && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { + $output.= '
'. '
'. '

'.&mt('Utilities').'

'. - ''; + '
choose role'.$createtext.'
'; + if ($context eq 'gcicustom') { + my $createtext = &mt('Create Concept Test'); + if ($switcher) { + $createtext = &mt('Create New Test'); + } + $output .= ''; + } if ($switcher) { $output .= ''; } - $output .= '
choose role'.$createtext.'
choose role'.$switcher.'
communication'.&mt('Send/Display Messages').'
'. - '
'. - '

'.&mt('Test Management').'

'. - ''."\n". - ''."\n". - ''."\n". - '
course contentsConcept Test Contents
assemble testAssemble Concept Test
user privs'.&mt('Manage Enrollment').'
what is new'.&mt("What's New?").'
communication'.&mt('Send/Display Messages').'
user preferences'.&mt('Set my user preferences').'
'. + ''. + '
'. + '

'.&mt('Test Management').'

'. + ''."\n". + ''."\n". + ''."\n". + ''. + '
course contentsConcept Test Contents
assemble testAssemble Concept Test
user privs'.&mt('Manage Enrollment').'
what is new'.&mt("What's New?").'
Test Statistics'.&mt("Concept Test Statistics").'
'; + } else { + my $navtext = &mt('Table of Contents'); + if ($env{'request.role.domain'} eq 'gcitest') { + $navtext = &mt('Display Test Contents'); + } + $output .= 'course contents'.$navtext.''; + } } $output.=''; } else { @@ -2013,7 +2026,9 @@ sub hidden_button_check { return; } if ($env{'request.role.adv'}) { - return; + unless (&Apache::loncommon::needs_gci_custom()) { + return; + } } my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide'); return $buttonshide;