--- loncom/interface/lonmenu.pm 2010/01/06 22:40:34 1.309.2.10 +++ loncom/interface/lonmenu.pm 2010/08/09 23:39:43 1.309.2.14 @@ -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.14 2010/08/09 23:39:43 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=''. ''; } 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 {