--- loncom/interface/lonmenu.pm 2010/01/06 22:40:34 1.309.2.10 +++ loncom/interface/lonmenu.pm 2010/02/25 04:21:01 1.309.2.13 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.309.2.10 2010/01/06 22:40:34 raeburn Exp $ +# $Id: lonmenu.pm,v 1.309.2.13 2010/02/25 04:21:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -131,6 +131,7 @@ use Apache::lonhtmlcommon(); use Apache::loncommon(); use Apache::lonenc(); use Apache::lonlocal; +use Apache::loncoursequeueadmin; use LONCAPA qw(:DEFAULT :match); use HTML::Entities(); @@ -1380,7 +1381,8 @@ sub inlinemenu { undef(@inlineremote); undef(%category_members); my $output; - if (($context eq 'gcicustom') || ($context eq 'gcistudent')) { + if (($context eq 'gcicustom') || ($context eq 'gcistudent') || + ($context eq 'gcinorole')) { $output=''. ''."\n". ''."\n". ''. + ''. '
'. '
'. @@ -1408,6 +1410,7 @@ sub inlinemenu { '
assemble testAssemble Concept Test
user privs'.&mt('Manage Enrollment').'
what is new'.&mt("What's New?").'
print concept test'.&mt("Prepare Printable Concept Test").'
Test Statistics'.&mt("Concept Test Statistics").'
'; } else { my $navtext = &mt('Table of Contents'); @@ -1416,6 +1419,18 @@ sub inlinemenu { } $output .= 'course contents'.$navtext.''; } + } else { + $output.=''; + } + if ($context eq 'gcinorole') { + my $queued = &Apache::loncoursequeueadmin::queued_selfenrollment('notitle'); + if ($queued) { + $output .= ''. + '
'. + '

'.&mt('Pending Enrollment Requests').'

'. + $queued. + '
'; + } } $output.=''; } else {