--- loncom/interface/lonmenu.pm 2010/01/15 04:05:21 1.309.2.11 +++ loncom/interface/lonmenu.pm 2010/01/15 04:12:54 1.309.2.12 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.309.2.11 2010/01/15 04:05:21 raeburn Exp $ +# $Id: lonmenu.pm,v 1.309.2.12 2010/01/15 04:12:54 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=''. '
'. '
'. @@ -1419,6 +1421,16 @@ sub inlinemenu { } else { $output.='
'; } + if ($context eq 'gcinorole') { + my $queued = &Apache::loncoursequeueadmin::queued_selfenrollment('notitle'); + if ($queued) { + $output .= ''. + '
'. + '

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

'. + $queued. + '
'; + } + } $output.=''; } else { # calling rawconfig with "1" will evaluate mydesk.tab,