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

Diff for /loncom/interface/lonmenu.pm between versions 1.239.4.4 and 1.239.4.5

version 1.239.4.4, 2009/05/13 03:26:11 version 1.239.4.5, 2009/05/15 20:36:17
Line 1460  sub roles_selector { Line 1460  sub roles_selector {
     }      }
     if ($is_cc) {      if ($is_cc) {
         &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);          &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
         my %adv_roles =  
              &Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);  
         foreach my $role (keys(%adv_roles)) {  
             my ($urole,$usec) = split(/:/,$role);  
             if (!$gotnosection{$urole}) {  
                 $seccount{$urole} ++;  
                 $gotnosection{$urole} = 1;  
             }  
             if (ref($courseroles{$urole}) eq 'ARRAY') {  
                 if ($usec ne '') {  
                     if (!grep(/^Q$usec\E$/,@{$courseroles{$urole}})) {  
                         push(@{$courseroles{$urole}},$usec);  
                         $seccount{$urole} ++;  
                     }  
                 }  
             } else {  
                 @{$courseroles{$urole}} = ();  
                 if ($usec ne '') {  
                     $seccount{$urole} ++;  
                     push(@{$courseroles{$urole}},$usec);  
                 }  
             }  
         }  
         my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);  
         @{$courseroles{'st'}} = ();  
         if (keys(%sections_count) > 0) {  
             push(@{$courseroles{'st'}},keys(%sections_count));  
         }  
     } else {      } else {
         my %gotnosection;          my %gotnosection;
         foreach my $item (keys(%env)) {          foreach my $item (keys(%env)) {
Removed from v.1.239.4.4  
changed lines
  Added in v.1.239.4.5

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