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

version 1.9, 2002/08/14 21:51:51 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 230  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 246  sub OptionResponseTable { Line 242  sub OptionResponseTable {
             $sequences{$sequence} .= ':::'.$_;              $sequences{$sequence} .= ':::'.$_;
         }          }
     }      }
       
     my $Str = '';      my $Str = '';
   
     foreach my $sequence (@orderedSequences) {      foreach my $sequence (@orderedSequences) {
Line 259  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.9  
changed lines
  Added in v.1.10

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