[BACK]Return to lonmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.309.2.11 and 1.309.2.12

version 1.309.2.11, 2010/01/15 04:05:21 version 1.309.2.12, 2010/01/15 04:12:54
Line 131  use Apache::lonhtmlcommon(); Line 131  use Apache::lonhtmlcommon();
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::loncoursequeueadmin;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities();  use HTML::Entities();
   
Line 1380  sub inlinemenu { Line 1381  sub inlinemenu {
     undef(@inlineremote);      undef(@inlineremote);
     undef(%category_members);      undef(%category_members);
     my $output;      my $output;
     if (($context eq 'gcicustom') || ($context eq 'gcistudent')) {      if (($context eq 'gcicustom') || ($context eq 'gcistudent') ||
           ($context eq 'gcinorole')) {
         $output='<table><tr>'.          $output='<table><tr>'.
                 '<td class="LC_mainmenu_col_fieldset">'.                  '<td class="LC_mainmenu_col_fieldset">'.
                 '<div class="LC_Box LC_400Box">'.                  '<div class="LC_Box LC_400Box">'.
Line 1419  sub inlinemenu { Line 1421  sub inlinemenu {
         } else {          } else {
             $output.='</td></tr></table></div></td>';              $output.='</td></tr></table></div></td>';
         }          }
           if ($context eq 'gcinorole') {
               my $queued =  &Apache::loncoursequeueadmin::queued_selfenrollment('notitle');
               if ($queued) {
                   $output .= '<td class="LC_mainmenu_col_fieldset">'.
                              '<div class="LC_Box LC_400Box">'.
                              '<h3 class="LC_hcell">'.&mt('Pending Enrollment Requests').'</h3>'.
                              $queued.
                              '</td></tr></table></div></td>';
               }
           }
         $output.='</tr></table>';          $output.='</tr></table>';
     } else {      } else {
         # calling rawconfig with "1" will evaluate mydesk.tab,           # calling rawconfig with "1" will evaluate mydesk.tab, 
Removed from v.1.309.2.11  
changed lines
  Added in v.1.309.2.12

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>