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

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.7 and 1.9

version 1.7, 2002/08/14 16:18:55 version 1.9, 2002/08/14 21:51:51
Line 115  sub BuildAnalyzePage { Line 115  sub BuildAnalyzePage {
             splice(@$students, $studentIndex, 1);              splice(@$students, $studentIndex, 1);
         }          }
     }      }
     untie(%cache);      unless(untie(%cache)) {
           $r->print('Can not untie hash.');
           $r->rflush();
       }
   
     if(&Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,       my $error = 
                                                                  'true',           &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,
                                                                  $cacheDB,                                                                     'true',
                                                                  'true',                                                                     $cacheDB,
                                                                  'true',                                                                     'true', 
                                                                  $courseID,                                                                     'true',
                                                                  $r,                                                                     $courseID,
                                                                  $c) ne 'OK') {                                                                    $r, $c);
         $r->print($Str);      if($error ne 'OK') {
           $r->print($error.'<br>Error downloading course data<br>');
         return;          return;
     }      }
   
Line 231  sub OptionResponseTable { Line 235  sub OptionResponseTable {
     my @optionResponses=split(':::', $optionResponses);      my @optionResponses=split(':::', $optionResponses);
     my %partCount;      my %partCount;
     my %sequences;      my %sequences;
       my @orderedSequences=();
     foreach(@optionResponses) {      foreach(@optionResponses) {
         my ($sequence, $problemId, $part, undef)=split(':',$_);          my ($sequence, $problemId, $part, undef)=split(':',$_);
         $partCount{$problemId.':'.$part}++;          $partCount{$problemId.':'.$part}++;
         if(!defined($sequences{$sequence})) {          if(!defined($sequences{$sequence})) {
               push(@orderedSequences, $sequence);
             $sequences{$sequence} = $_;              $sequences{$sequence} = $_;
         } else {          } else {
             $sequences{$sequence} .= ':::'.$_;              $sequences{$sequence} .= ':::'.$_;
Line 243  sub OptionResponseTable { Line 249  sub OptionResponseTable {
   
     my $Str = '';      my $Str = '';
   
     foreach my $sequence (sort(keys(%sequences))) {      foreach my $sequence (@orderedSequences) {
         my @optionProblems = split(':::', $sequences{$sequence});          my @optionProblems = split(':::', $sequences{$sequence});
   
         $Str .= '<b>'.$cache->{$sequence.':title'}.'</b>'."\n";          $Str .= '<b>'.$cache->{$sequence.':title'}.'</b>'."\n";
Removed from v.1.7  
changed lines
  Added in v.1.9

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