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

Diff for /loncom/interface/statistics/lonstathelpers.pm between versions 1.59.12.1 and 1.60

version 1.59.12.1, 2010/09/11 19:08:23 version 1.60, 2010/02/28 23:58:55
Line 262  END Line 262  END
         (' 'x4).          (' 'x4).
         '<a href="javascript:checkall(false)">'.&mt('Unselect All').'</a>';          '<a href="javascript:checkall(false)">'.&mt('Unselect All').'</a>';
     $Str .= $/.'<table>'.$/;      $Str .= $/.'<table>'.$/;
     my ($iterator,$sequence_string,@Accumulator);      my $iterator = $navmap->getIterator(undef, undef, undef, 1);
       my $sequence_string;
     my $seq_id = 0;      my $seq_id = 0;
     if (&Apache::loncommon::needs_gci_custom()) {      my @Accumulator = (&new_accumulator($env{'course.'.$cid.'.description'},
         my $cdom = $env{'course.'.$cid.'.domain'};                                          '',
         my $cnum = $env{'course.'.$cid.'.num'};                                          '',
         my $mapurl = "/uploaded/$cdom/$cnum/default_1261144274.sequence";                                          $seq_id++,
         my $map = $navmap->getResourceByUrl($mapurl);                                          $inputname));
         my $firstResource = $map->map_start();  
         my $lastResource = $map->map_finish();  
         $iterator = $navmap->getIterator($firstResource,$lastResource,undef,1);  
         @Accumulator = (&new_accumulator($map->compTitle,  
                                          $map->src,  
                                          $map->symb,  
                                          $seq_id++,  
                                          $inputname));  
     } else {  
         $iterator = $navmap->getIterator(undef, undef, undef, 1);  
         @Accumulator = (&new_accumulator($env{'course.'.$cid.'.description'},  
                                          '',  
                                          '',  
                                          $seq_id++,  
                                          $inputname));  
     }  
     my @Sequence_Data;      my @Sequence_Data;
     while (my $curRes = $iterator->next()) {      while (my $curRes = $iterator->next()) {
         if ($curRes == $iterator->END_MAP) {          if ($curRes == $iterator->END_MAP) {
Line 479  sub get_prev_curr_next { Line 464  sub get_prev_curr_next {
         my @resources = &get_resources($navmap,$seq);          my @resources = &get_resources($navmap,$seq);
         foreach my $res (@resources) {          foreach my $res (@resources) {
             foreach my $part (@{$res->parts}) {              foreach my $part (@{$res->parts}) {
                 if ($res->is_survey($part) && ($granularity eq 'part_survey')){                  if (($res->is_survey($part) || ($res->is_anonsurvey($part))) && 
                       ($granularity eq 'part_survey')) {
                     push (@Resource,                      push (@Resource,
                           { symb     => $res->symb,                            { symb     => $res->symb,
                             part     => $part,                              part     => $part,
Removed from v.1.59.12.1  
changed lines
  Added in v.1.60

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