--- loncom/interface/lonmenu.pm 2009/12/07 20:04:18 1.309.2.1 +++ loncom/interface/lonmenu.pm 2009/12/24 18:28:58 1.309.2.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.309.2.1 2009/12/07 20:04:18 raeburn Exp $ +# $Id: lonmenu.pm,v 1.309.2.5 2009/12/24 18:28:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -290,32 +290,24 @@ sub gci_secondary_menu { my %linktext = ( 'review' => 'Review Questions', 'submit' => 'Submit Questions', - 'createtest' => 'Create a Test', + 'managetest' => 'Manage Tests', ); - my (%links,$current); + my %links = ( + 'managetest' => '/adm/menu', + ); + my $current = 'managetest'; + if ($env{'form.destinationurl'} eq '/adm/gci_info') { + undef($current); + } foreach my $key (keys(%courses)) { $links{$key} = "javascript:switchpage('$key');"; if ($env{'request.course.id'} eq $courses{$key}) { $links{$key} = '/adm/navmaps'; $current = $key; + $links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; } } - $links{'createtest'} = "javascript:switchpage('createtest');"; - if (($ENV{'REQUEST_URI'} eq '/adm/requestcourse') || - ($env{'form.orgurl'} eq '/adm/requestcourse')) { - $current = 'createtest'; - } - my @menutabs = ('review','submit','createtest'); - if ($env{'user.adv'}) { - my $key = 'managetest'; - push(@menutabs,$key); - $linktext{$key} = 'Manage Tests'; - $links{$key} = "javascript:switchpage('$key');"; - if (($current eq '') && (($ENV{'REQUEST_URI'} eq '/adm/menu') || - ($env{'form.orgurl'} eq '/adm/menu'))) { - $current = $key; - } - } + my @menutabs = ('review','submit','managetest'); my $tabs; foreach my $item (@menutabs) { if ($item eq $current) { @@ -1389,29 +1381,35 @@ sub inlinemenu { undef(%category_members); my $output; if ($context eq 'gcicustom') { - $output.='
'. - '
'. - ''.&mt('Utilities').''. - ''; + my $createtext = &mt('Create Concept Test'); if ($switcher) { - $output .= ''; + $createtext = &mt('Create New Test'); } - $output .= '
choose role'.$switcher.'
communication'.&mt('Send and display messages').'
'; + $output=''. + ''; if (($env{'request.course.id'}) && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { - $output.= '
'. - '
'. - ''.&mt('Test Management').''. - '
'. + '
'. + '

'.&mt('Utilities').'

'. + ''; + if ($switcher) { + $output .= ''; + } + $output .= '
choose role'.$createtext.'
choose role'.$switcher.'
communication'.&mt('Send/Display Messages').'
'. - ''."\n". - '
user privs'.&mt('Manage Enrollment').'
what is new'.&mt("What's New?").'
'; + $output.= ''. + '
'. + '

'.&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?").'
'; } - $output.='