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

Diff for /loncom/interface/loncommon.pm between versions 1.365 and 1.366

version 1.365, 2006/05/09 14:38:09 version 1.366, 2006/05/09 15:09:27
Line 3751  Returns number of sections. Line 3751  Returns number of sections.
   
 ###############################################  ###############################################
 sub get_sections {  sub get_sections {
     my ($cdom,$cnum,$sectioncount,$possible_roles) = @_;      my ($cdom,$cnum,$possible_roles) = @_;
     if (!($cdom && $cnum)) { return 0; }      if (!defined($cdom) || !defined($cnum)) {
     my $numsections = 0;          my $cid =  $env{'request.course.id'};
   
     if (!defined($possible_roles) || (grep/^st$/,@$possible_roles)) {   return if (!defined($cid));
   
           $cdom = $env{'course.'.$cid.'.domain'};
           $cnum = $env{'course.'.$cid.'.num'};
       }
   
       my %sectioncount;
   
       if (!defined($possible_roles) || (grep(/^st$/,@$possible_roles))) {
  my ($classlist) = &Apache::loncoursedata::get_classlist($cdom,$cnum);   my ($classlist) = &Apache::loncoursedata::get_classlist($cdom,$cnum);
  my $sec_index = &Apache::loncoursedata::CL_SECTION();   my $sec_index = &Apache::loncoursedata::CL_SECTION();
  my $status_index = &Apache::loncoursedata::CL_STATUS();   my $status_index = &Apache::loncoursedata::CL_STATUS();
  while (my ($student,$data) = each %$classlist) {   while (my ($student,$data) = each(%$classlist)) {
     my ($section,$status) = ($data->[$sec_index],      my ($section,$status) = ($data->[$sec_index],
      $data->[$status_index]);       $data->[$status_index]);
     unless ($section eq '-1' || $section =~ /^\s*$/) {      unless ($section eq '-1' || $section =~ /^\s*$/) {
  if (!defined($$sectioncount{$section})) { $numsections++; }   $sectioncount{$section}++;
  $$sectioncount{$section}++;  
     }      }
  }   }
     }      }
Line 3780  sub get_sections { Line 3787  sub get_sections {
  }   }
  if ($user =~ /^$role:[^:]*:[^:]*:(\w+)/) { $section=$1; }   if ($user =~ /^$role:[^:]*:[^:]*:(\w+)/) { $section=$1; }
  if (!defined($section) || $section eq '-1') { next; }   if (!defined($section) || $section eq '-1') { next; }
  if (!defined($$sectioncount{$section})) { $numsections++; }    $sectioncount{$section}++;
  $$sectioncount{$section}++;  
     }      }
     return $numsections;      return %sectioncount;
 }  }
   
 ###############################################  ###############################################
Removed from v.1.365  
changed lines
  Added in v.1.366

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