Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.101 and 1.102

version 1.101, 2004/10/29 16:39:42 version 1.102, 2004/11/02 20:45:41
Line 164  sub BuildProblemAnalysisPage { Line 164  sub BuildProblemAnalysisPage {
                     }                      }
                 }                  }
             } else {              } else {
                 $r->print('<h2>This analysis is not supported</h2>');                  $r->print('<h2>Analysis of '.$current_problem->{'resptype'}.' is not supported</h2>');
             }              }
         }          }
         $r->print('<hr />');          $r->print('<hr />');
Line 240  sub NumericalResponseAnalysis { Line 240  sub NumericalResponseAnalysis {
     my $height = 100;      my $height = 100;
     my $plot = &one_dimensional_plot($r,500,100,scalar(@$Students),      my $plot = &one_dimensional_plot($r,500,100,scalar(@$Students),
                                      \@Labels,\@PlotData);                                       \@Labels,\@PlotData);
   
     $r->print($plot);      $r->print($plot);
     return;      return;
 }  }
Line 461  sub radio_response_analysis { Line 462  sub radio_response_analysis {
                  &get_time_from_row($response_data->[-1]),                   &get_time_from_row($response_data->[-1]),
                  $plot_num);                   $plot_num);
             $pre_graph_text =               $pre_graph_text = 
                 'Data from [_5] to [_6], [_2] submissions, [_3] correct, [_4] incorrect';                  'Data from [_6] to [_7]<br /> [_2] submissions from [_5] students, [_3] correct, [_4] incorrect';
             $extra_data[0] = &Apache::lonlocal::locallocaltime($starttime);              $extra_data[0] = &Apache::lonlocal::locallocaltime($starttime);
             $extra_data[1] = &Apache::lonlocal::locallocaltime($endtime);              $extra_data[1] = &Apache::lonlocal::locallocaltime($endtime);
             #              #
Line 528  sub radio_response_analysis { Line 529  sub radio_response_analysis {
                 '<font size="+1">'.                  '<font size="+1">'.
                 &mt($pre_graph_text,                  &mt($pre_graph_text,
                     $plot_num,$foil_choice_data->{'_count'},                      $plot_num,$foil_choice_data->{'_count'},
                     $correct,                                          $correct,
                     $foil_choice_data->{'_count'}-$correct,                      $foil_choice_data->{'_count'}-$correct,
                       $foil_choice_data->{'_students'},
                     @extra_data).                      @extra_data).
                     '</td></tr>'.$/;                      '</td></tr>'.$/;
             $analysis_html.=              $analysis_html.=
Line 761  sub RR_create_stacked_selection_plot { Line 763  sub RR_create_stacked_selection_plot {
 sub RR_classify_response_data {  sub RR_classify_response_data {
     my ($full_row_data,$correct,$function) = @_;      my ($full_row_data,$correct,$function) = @_;
     my %submission_data;      my %submission_data;
       my %students;
     foreach my $row (@$full_row_data) {      foreach my $row (@$full_row_data) {
         my %subm = &hashify_attempt($row);          my %subm = &hashify_attempt($row);
         if (ref($correct) eq 'HASH') {          if (ref($correct) eq 'HASH') {
Line 770  sub RR_classify_response_data { Line 773  sub RR_classify_response_data {
         }          }
         $subm{'submission'} =~ s/=\d+\s*$//;          $subm{'submission'} =~ s/=\d+\s*$//;
         if (&$function(\%subm)) {          if (&$function(\%subm)) {
               $students{$subm{'student'}}++;
             $submission_data{'_count'}++;              $submission_data{'_count'}++;
             if (&submission_is_correct($subm{'award'})) {               if (&submission_is_correct($subm{'award'})) { 
                 $submission_data{'_correct'}++;                  $submission_data{'_correct'}++;
Line 777  sub RR_classify_response_data { Line 781  sub RR_classify_response_data {
             $submission_data{$subm{'correct'}}->{$subm{'submission'}}++;              $submission_data{$subm{'correct'}}->{$subm{'submission'}}++;
         }          }
     }      }
       $submission_data{'_students'}=scalar(keys(%students));
     return \%submission_data;      return \%submission_data;
 }  }
   
Line 1099  sub OR_time_analysis { Line 1104  sub OR_time_analysis {
             &OR_time_process_data($performance_data,$begin_index,$end_index);              &OR_time_process_data($performance_data,$begin_index,$end_index);
         ##          ##
         $table .= '<tr><td colspan="4" align="center"><font size="+1">'.          $table .= '<tr><td colspan="4" align="center"><font size="+1">'.
             &mt('[_1] submissions from [_2] students submitting, [_3] correct, [_4] incorrect',              &mt('[_1] submissions from [_2] students, [_3] correct, [_4] incorrect',
                 $data_count,$student_count,$correct,$data_count-$correct).                  $data_count,$student_count,$correct,$data_count-$correct).
                 '</font></td></tr>'.$/;                  '</font></td></tr>'.$/;
         my $concept_correct_plot = '';          my $concept_correct_plot = '';

Removed from v.1.101  
changed lines
  Added in v.1.102


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