--- loncom/interface/lonmenu.pm 2009/12/07 21:48:37 1.309.2.2 +++ loncom/interface/lonmenu.pm 2009/12/14 23:03:27 1.309.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.309.2.2 2009/12/07 21:48:37 raeburn Exp $ +# $Id: lonmenu.pm,v 1.309.2.3 2009/12/14 23:03:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -290,32 +290,21 @@ 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'; 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,24 +1378,30 @@ sub inlinemenu { undef(%category_members); my $output; if ($context eq 'gcicustom') { - $output ='
'. - '
'. - ''.&mt('Utilities').''. - ''; + my $createtext = &mt('Create Concept Test'); + if ($switcher) { + $createtext = &mt('Create New Test'); + } + $output='
'. + '
'. + '
'. + '

'.&mt('Utilities').'

'. + ''; if ($switcher) { - $output .= ''; + $output .= ''; } - $output .= '
choose role'.$createtext.'
choose role'.$switcher.'
choose role'.$switcher.'
communication'.&mt('Send and display messages').'
'; + $output .= '
communication'.&mt('Send/Display Messages').'
'; if (($env{'request.course.id'}) && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { - $output.= '
'. - '
'. - ''.&mt('Test Management').''. - ''. - ''."\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.='