[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.8 and 1.10

version 1.8, 2002/08/14 20:42:49 version 1.10, 2002/09/07 23:07:38
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Navigate problems for statistical reports  # (Navigate problems for statistical reports
 # YEAR=2001  
 # 5/5,7/9,7/25/1,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei  
 # 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei  
 # YEAR=2002  # YEAR=2002
 # 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei  # 5/12,7/26  Behrouz Minaei
 # 5/12,5/14,5/15,5/19,5/26,7/16  Behrouz Minaei  
 #  #
 ###  ###
   
Line 70  sub BuildProblemAnalysisPage { Line 66  sub BuildProblemAnalysisPage {
     $Ptr .= '</td></tr></table><br>';      $Ptr .= '</td></tr></table><br>';
     $r->print($Ptr);      $r->print($Ptr);
     $r->rflush();      $r->rflush();
     $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache));      $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r));
   
     untie(%cache);      untie(%cache);
   
Line 115  sub BuildAnalyzePage { Line 111  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 226  sub IntervalOptions { Line 226  sub IntervalOptions {
 }  }
   
 sub OptionResponseTable {  sub OptionResponseTable {
     my ($optionResponses,$cache)=@_;      my ($optionResponses,$cache,$r)=@_;
   
     my @optionResponses=split(':::', $optionResponses);      my @optionResponses=split(':::', $optionResponses);
     my %partCount;      my %partCount;
Line 242  sub OptionResponseTable { Line 242  sub OptionResponseTable {
             $sequences{$sequence} .= ':::'.$_;              $sequences{$sequence} .= ':::'.$_;
         }          }
     }      }
       
     my $Str = '';      my $Str = '';
   
     foreach my $sequence (@orderedSequences) {      foreach my $sequence (@orderedSequences) {
Line 255  sub OptionResponseTable { Line 255  sub OptionResponseTable {
         my $count = 1;          my $count = 1;
         foreach(@optionProblems) {          foreach(@optionProblems) {
             my (undef, $problemId, $part, $response)=              my (undef, $problemId, $part, $response)=
                 split(':',$sequences{$sequence});                  split(':',$optionProblems[$count-1]);
   #                split(':',$sequences{$sequence});
             my $uri = $cache->{$problemId.':source'};              my $uri = $cache->{$problemId.':source'};
             my $title = $cache->{$problemId.':title'};              my $title = $cache->{$problemId.':title'};
   
Removed from v.1.8  
changed lines
  Added in v.1.10

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