[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.99 and 1.101

version 1.99, 2004/10/29 16:10:30 version 1.101, 2004/10/29 16:39:42
Line 635  sub RR_create_percent_selected_plot { Line 635  sub RR_create_percent_selected_plot {
     my %correct_selections;      my %correct_selections;
     my %incorrect_selections;      my %incorrect_selections;
     foreach my $foil (@$foils) {      foreach my $foil (@$foils) {
         # foil_data has format $foil_data->{true_foil}->{selected foil}          # foil_data has format $foil_data->{true_foil}->{selected foil}=count
         next if (! exists($foil_data->{$foil}));          next if (! exists($foil_data->{$foil}));
         while (my ($f,$count)= each(%{$foil_data->{$foil}})) {          while (my ($f,$count)= each(%{$foil_data->{$foil}})) {
             if ($f eq $foil) {              if ($f eq $foil) {
                 $correct_selections{$foil} += $count;                  $correct_selections{$foil} += $count;
             } else {              } else {
                 $incorrect_selections{$foil} += $count;                  $incorrect_selections{$f} += $count;
             }              }
         }          }
     }      }
Line 658  sub RR_create_percent_selected_plot { Line 658  sub RR_create_percent_selected_plot {
         $incorrect[$i] = $incorrect_selections{$foil};          $incorrect[$i] = $incorrect_selections{$foil};
     }      }
     for (my $i=0;$i<=$#correct;$i++) {       for (my $i=0;$i<=$#correct;$i++) { 
         &Apache::lonnet::logthis('correct['.$i.']='.$correct[$i]);  
         $correct[$i] = sprintf('%2f',$correct[$i]/$total*100);          $correct[$i] = sprintf('%2f',$correct[$i]/$total*100);
     }      }
     for (my $i=0;$i<=$#incorrect;$i++) {      for (my $i=0;$i<=$#incorrect;$i++) {
Line 1234  sub OR_time_process_data { Line 1233  sub OR_time_process_data {
     if ($end_index == scalar(@$performance_data)-1) {      if ($end_index == scalar(@$performance_data)-1) {
         $end_index++;          $end_index++;
     }      }
     &Apache::lonnet::logthis('  '.$begin_index.':'.$end_index);  
     my $count;      my $count;
     for (my $i=$begin_index;$i<$end_index;$i++) {      for (my $i=$begin_index;$i<$end_index;$i++) {
         my $attempt = $performance_data->[$i];          my $attempt = $performance_data->[$i];
Line 1254  sub OR_time_process_data { Line 1252  sub OR_time_process_data {
             }              }
         }          }
     }      }
     &Apache::lonnet::logthis('count = '.$count);  
     return (\%processed_time_data,$correct,$data_count,      return (\%processed_time_data,$correct,$data_count,
             scalar(keys(%distinct_students)));              scalar(keys(%distinct_students)));
 }  }
Removed from v.1.99  
changed lines
  Added in v.1.101

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