[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.40 and 1.42

version 1.40, 2003/10/16 13:23:13 version 1.42, 2003/10/17 22:05:45
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 #  #
   
 # $Id$  # $Id$
 #  #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
Line 36  use Apache::loncoursedata(); Line 35  use Apache::loncoursedata();
 use Apache::lonstatistics;  use Apache::lonstatistics;
 use Apache::lonlocal;  use Apache::lonlocal;
 use HTML::Entities();  use HTML::Entities();
   use Time::Local();
   
 my $plotcolors = ['#33ff00',   my $plotcolors = ['#33ff00', 
                   '#0033cc', '#990000', '#aaaa66', '#663399', '#ff9933',                    '#0033cc', '#990000', '#aaaa66', '#663399', '#ff9933',
Line 49  sub BuildProblemAnalysisPage { Line 49  sub BuildProblemAnalysisPage {
     #      #
     my @Students = @Apache::lonstatistics::Students;      my @Students = @Apache::lonstatistics::Students;
     #      #
     if (exists($ENV{'form.updatecaches'}) ||      if (exists($ENV{'form.ClearCache'}) || 
           exists($ENV{'form.updatecaches'}) ||
         (exists($ENV{'form.firstanalysis'}) &&          (exists($ENV{'form.firstanalysis'}) &&
          $ENV{'form.firstanalysis'} ne 'no')) {           $ENV{'form.firstanalysis'} ne 'no')) {
         &Apache::lonstatistics::Gather_Full_Student_Data($r);          &Apache::lonstatistics::Gather_Full_Student_Data($r);
Line 85  sub BuildProblemAnalysisPage { Line 86  sub BuildProblemAnalysisPage {
         #          #
         my $resource = &get_resource_from_symb($symb);          my $resource = &get_resource_from_symb($symb);
         if (defined($resource)) {          if (defined($resource)) {
               $r->print('<h3>'.$resource->{'src'}.'</h3>');
             my %Data = &get_problem_data($resource->{'src'});              my %Data = &get_problem_data($resource->{'src'});
             my $ORdata = $Data{$part.'.'.$resid};              my $ORdata = $Data{$part.'.'.$resid};
             ##              ##
Line 139  sub BuildProblemAnalysisPage { Line 141  sub BuildProblemAnalysisPage {
     }      }
 }  }
   
   
 #########################################################  #########################################################
 #########################################################  #########################################################
 ##  ##
Line 149  sub BuildProblemAnalysisPage { Line 150  sub BuildProblemAnalysisPage {
 #########################################################  #########################################################
 sub build_foil_index {  sub build_foil_index {
     my ($ORdata) = @_;      my ($ORdata) = @_;
       return if (! exists($ORdata->{'Foils'}));
     my %Foildata = %{$ORdata->{'Foils'}};      my %Foildata = %{$ORdata->{'Foils'}};
     my @Foils = sort(keys(%Foildata));      my @Foils = sort(keys(%Foildata));
     my %Concepts;      my %Concepts;
Line 264  sub build_option_index { Line 266  sub build_option_index {
     my $table = "<table>\n";      my $table = "<table>\n";
     my $optionindex = 0;      my $optionindex = 0;
     my @Rows;      my @Rows;
     foreach my $option ('correct',@{$ORdata->{'Options'}}) {      foreach my $option (&mt('correct option chosen'),@{$ORdata->{'Options'}}) {
         push (@Rows,          push (@Rows,
               '<tr>'.                '<tr>'.
               '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.                '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.
Line 272  sub build_option_index { Line 274  sub build_option_index {
               '<td>'.$option.'</td>'.                '<td>'.$option.'</td>'.
               "</tr>\n");                "</tr>\n");
     }      }
       shift(@Rows); # Throw away 'correct option chosen' color
     $table .= join('',reverse(@Rows));      $table .= join('',reverse(@Rows));
     $table .= "</table>\n";      $table .= "</table>\n";
 }  }
Line 297  sub tries_analysis { Line 300  sub tries_analysis {
     }      }
     my %ResponseData = &analyze_option_data_by_tries($PerformanceData,      my %ResponseData = &analyze_option_data_by_tries($PerformanceData,
                                                      $mintries,$maxtries);                                                       $mintries,$maxtries);
       my $analysis = '';
       if ($ENV{'form.AnalyzeAs'} eq 'Foils') {
           $analysis = &Tries_Foil_Analysis($mintries,$maxtries,$Foils,
                                            \%ResponseData,$ORdata);
       } else {
           $analysis = &Tries_Concept_Analysis($mintries,$maxtries,
                                               $Concepts,\%ResponseData,$ORdata);
       }
       $table .= $analysis;
       return $table;
   }
   
   sub Tries_Foil_Analysis {
       my ($mintries,$maxtries,$Foils,$respdat,$ORdata) = @_;
       my %ResponseData = %$respdat;
     #      #
     # Compute the data neccessary to make the plots      # Compute the data neccessary to make the plots
     my @PlotData;   # Array which holds the data for each plot      my @PlotData; 
                     # @{$PlotData[$try]->{'datasetname'}} holds the data for      foreach my $foilid (@$Foils) {
                     # try $try with respect to 'datasetname'.  The array is          for (my $i=$mintries;$i<=$maxtries;$i++) {
                     # filled either with per-foil or per-concept data.              if ($ResponseData{$foilid}->[$i]->{'_total'} == 0) {
     my ($extrakey,$xlabel,$ylabel);                  push(@{$PlotData[$i]->{'_correct'}},0);
     if ($ENV{'form.AnalyzeAs'} eq 'Foils') {              } else {
         $extrakey = &build_option_index($ORdata);                  push(@{$PlotData[$i]->{'_correct'}},
         $xlabel = 'Foil Number';                       100*$ResponseData{$foilid}->[$i]->{'_correct'}/
         $ylabel = 'Option Chosen';                       $ResponseData{$foilid}->[$i]->{'_total'});
         foreach my $foilid (@$Foils) {              }
             for (my $i=$mintries;$i<=$maxtries;$i++) {              foreach my $option (@{$ORdata->{'Options'}}) {
                 foreach my $option ('_correct',@{$ORdata->{'Options'}}) {                  push(@{$PlotData[$i]->{'_total'}},
                     push(@{$PlotData[$i]->{'_total'}},                       $ResponseData{$foilid}->[$i]->{'_total'});
                          $ResponseData{$foilid}->[$i]->{'_total'});                  if ($ResponseData{$foilid}->[$i]->{'_total'} == 0) {
                     if ($ResponseData{$foilid}->[$i]->{'_total'} == 0) {                      push (@{$PlotData[$i]->{$option}},0);
                         push (@{$PlotData[$i]->{$option}},0);                  } else {
                       if ($ResponseData{$foilid}->[$i]->{'_total'} ==
                           $ResponseData{$foilid}->[$i]->{'_correct'}) {
                           push(@{$PlotData[$i]->{$option}},0);
                     } else {                      } else {
                         push (@{$PlotData[$i]->{$option}},                          push (@{$PlotData[$i]->{$option}},
                               100 * $ResponseData{$foilid}->[$i]->{$option} /                                 100 * $ResponseData{$foilid}->[$i]->{$option} / 
                                     $ResponseData{$foilid}->[$i]->{'_total'});                                ($ResponseData{$foilid}->[$i]->{'_total'} - 
                                  $ResponseData{$foilid}->[$i]->{'_correct'}));
                     }                      }
                 }                  }
             }              }
         }          }
     } else {      }
         # Concept analysis      # 
         #      # Build a table for the plots
         # Note: we do not bother with characterizing the students incorrect      my $analysis_html = "<table>\n";
         # answers at the concept level because an incorrect answer for one foil      my $foilkey = &build_option_index($ORdata);
         # may be a correct answer for another foil.      for (my $i=$mintries;$i<=$maxtries;$i++) {
         $extrakey = '';          my $count = $ResponseData{'_total'}->[$i];
         $xlabel = 'Concept Number';          if ($count == 0) {
         $ylabel = 'Percent Correct';              $count = 'no submissions';
         my %ConceptData;          } elsif ($count == 1) {
         foreach my $concept (@{$Concepts}) {              $count = '1 submission';
             for (my $i=$mintries;$i<=$maxtries;$i++) {          } else {
                 #              $count = $count.' submissions';
                 # Gather the per-attempt data          }
                 my $cdata = $ConceptData{$concept}->[$i];          my $title = 'Attempt '.$i.', '.$count;
                 foreach my $foilid (@{$concept->{'foils'}}) {          my @Datasets;
                     $cdata->{'_correct'} +=           foreach my $option ('_correct',@{$ORdata->{'Options'}}) {
                         $ResponseData{$foilid}->[$i]->{'_correct'};              next if (! exists($PlotData[$i]->{$option}));
                     $cdata->{'_total'}   +=               push(@Datasets,$PlotData[$i]->{$option});
                         $ResponseData{$foilid}->[$i]->{'_total'};          }
                 }          my $correctgraph = &Apache::loncommon::DrawGraph
                 push (@{$PlotData[$i]->{'_total'}},$cdata->{'_total'});              ($title,'Foil Number','Percent Correct',
                 if ($cdata->{'_total'} == 0) {               100,$plotcolors,$Datasets[0]);
                     push (@{$PlotData[$i]->{'_correct'}},0);          $analysis_html.= '<tr><td>'.$correctgraph.'</td>';
                 } else {          ##
                     push (@{$PlotData[$i]->{'_correct'}},          ##
                           100*$cdata->{'_correct'}/$cdata->{'_total'});          for (my $i=0; $i< scalar(@{$Datasets[0]});$i++) {
               $Datasets[0]->[$i]=0;
           }
           $count = $ResponseData{'_total'}->[$i]-$ResponseData{'_correct'}->[$i];
           if ($count == 0) {
               $count = 'no submissions';
           } elsif ($count == 1) {
               $count = '1 submission';
           } else {
               $count = $count.' submissions';
           }
           $title = 'Attempt '.$i.', '.$count;
           my $incorrectgraph = &Apache::loncommon::DrawGraph
               ($title,'Foil Number','% Option Chosen Incorrectly',
                100,$plotcolors,@Datasets);
           $analysis_html.= '<td>'.$incorrectgraph.'</td>';
           $analysis_html.= '<td>'.$foilkey."<td></tr>\n";
       }
       $analysis_html .= "</table>\n";
       return $analysis_html;
   }
   
   sub Tries_Concept_Analysis {
       my ($mintries,$maxtries,$Concepts,$respdat,$ORdata) = @_;
       my %ResponseData = %$respdat;
       my $analysis_html = "<table>\n";
       #
       # Compute the data neccessary to make the plots
       my @PlotData;
       # Concept analysis
       #
       # Note: we do not bother with characterizing the students incorrect
       # answers at the concept level because an incorrect answer for one foil
       # may be a correct answer for another foil.
       my %ConceptData;
       foreach my $concept (@{$Concepts}) {
           for (my $i=$mintries;$i<=$maxtries;$i++) {
               #
               # Gather the per-attempt data
               my $cdata = $ConceptData{$concept}->[$i];
               foreach my $foilid (@{$concept->{'foils'}}) {
                   $cdata->{'_correct'} += 
                       $ResponseData{$foilid}->[$i]->{'_correct'};
                   $cdata->{'_total'}   += 
                       $ResponseData{$foilid}->[$i]->{'_total'};
               }
               push (@{$PlotData[$i]->{'_total'}},$cdata->{'_total'});
               if ($cdata->{'_total'} == 0) {
                   push (@{$PlotData[$i]->{'_correct'}},0);
               } else {
                   push (@{$PlotData[$i]->{'_correct'}},
                         100*$cdata->{'_correct'}/$cdata->{'_total'});
                 }                  }
             }  
         }          }
     } # End of work to fill @PlotData      }
     #   
     # Build a table for the plots      # Build a table for the plots
     $table .= "<table>\n";  
     my @Plots;  
     for (my $i=$mintries;$i<=$maxtries;$i++) {      for (my $i=$mintries;$i<=$maxtries;$i++) {
         my $minstu = $PlotData[$i]->{'_total'}->[0];          my $minstu = $PlotData[$i]->{'_total'}->[0];
         my $maxstu = $PlotData[$i]->{'_total'}->[0];          my $maxstu = $PlotData[$i]->{'_total'}->[0];
Line 372  sub tries_analysis { Line 441  sub tries_analysis {
         $maxstu = 0 if (! defined($maxstu));          $maxstu = 0 if (! defined($maxstu));
         $minstu = 0 if (! defined($minstu));          $minstu = 0 if (! defined($minstu));
         my $title;          my $title;
         if ($maxstu == $minstu) {          my $count = $ResponseData{'_total'}->[$i];
             $title = 'Attempt '.$i.', '.$maxstu.' students';          if ($count == 0) {
               $count = 'no submissions';
           } elsif ($count == 1) {
               $count = '1 submission';
         } else {          } else {
             $title = 'Attempt '.$i.', '.$minstu.'-'.$maxstu.' students';              $count = $count.' submissions';
         }          }
         my @Datasets;          $title = 'Attempt '.$i.', '.$count;
         foreach my $option ('_correct',@{$ORdata->{'Options'}}) {          my $graphlink = &Apache::loncommon::DrawGraph
             next if (! exists($PlotData[$i]->{$option}));              ($title,'Concept Number','Percent Correct',
             push(@Datasets,$PlotData[$i]->{$option});               100,$plotcolors,$PlotData[$i]->{'_correct'});
         }          $analysis_html.= '<tr><td>'.$graphlink."</td></tr>\n";
         my $graphlink = &Apache::loncommon::DrawGraph($title,  
                                                       $xlabel,  
                                                       $ylabel,  
                                                       100,  
                                                       $plotcolors,  
                                                       @Datasets);  
         push(@Plots,$graphlink);  
     }  
     #  
     # Should this be something the user can set?  Too many dialogs!  
     while (my $plotlink = shift(@Plots)) {  
         $table .= '<tr><td>'.$plotlink.'</td><td>'.$extrakey."</td></tr>\n";  
     }      }
     $table .= "</table>\n";      $analysis_html .= "</table>\n";
     return ($table);      return $analysis_html;
 }  }
   
 sub analyze_option_data_by_tries {  sub analyze_option_data_by_tries {
Line 406  sub analyze_option_data_by_tries { Line 466  sub analyze_option_data_by_tries {
     $maxtries = $mintries if (! defined($maxtries) || $maxtries < $mintries);      $maxtries = $mintries if (! defined($maxtries) || $maxtries < $mintries);
     foreach my $row (@$PerformanceData) {      foreach my $row (@$PerformanceData) {
         next if (! defined($row));          next if (! defined($row));
         my ($grading,$submission,$time,$tries) = @$row;          my $tries = &get_tries_from_row($row);
         next if ($grading eq 'MISSING_ANSWER');          my %Row   = &Process_Row($row);
         my @Foilgrades = split('&',$grading);          while (my ($foilid,$href) = each(%Row)) {
         my @Foilsubs   = split('&',$submission);              if (! ref($href)) { 
         for (my $numtries = 1; $numtries <= $maxtries; $numtries++) {                  $Trydata{$foilid}->[$tries] += $href;
             if ($tries == $numtries) {                  next;
                 for (my $i=0;$i<=$#Foilgrades;$i++) {              }
                     my ($foilid,$correct)  = split('=',$Foilgrades[$i]);              while (my ($option,$value) = each(%$href)) {
                     my (undef,$submission) = split('=',$Foilsubs[$i]);                  $Trydata{$foilid}->[$tries]->{$option}+=$value;
                     $submission = &HTML::Entities::decode($submission);  
                     $submission =~ s/\%20/ /g;  
                     if ($correct) {  
                         $Trydata{$foilid}->[$numtries]->{'_correct'}++;  
                     } else {  
                         $Trydata{$foilid}->[$numtries]->{$submission}++;  
                     }                          
                     $Trydata{$foilid}->[$numtries]->{'_total'}++;  
                 }  
             }              }
         }          }
     }      }
Line 439  sub analyze_option_data_by_tries { Line 490  sub analyze_option_data_by_tries {
 #########################################################  #########################################################
 sub time_analysis {  sub time_analysis {
     my ($PerformanceData,$ORdata) = @_;      my ($PerformanceData,$ORdata) = @_;
     my $num_plots = $ENV{'form.NumPlots'};  
     my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);      my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
       if ((@$Concepts < 2) && ($ENV{'form.AnalyzeAs'} ne 'Foils')) {
           $table = '<h3>'.
               &mt('Not enough data for concept analysis.  '.
                   'Performing Foil Analysis').
               '</h3>'.$table;
           $ENV{'form.AnalyzeAs'} = 'Foils';
       }
       my $num_plots = $ENV{'form.NumPlots'};
     my $num_data = scalar(@$PerformanceData)-1;      my $num_data = scalar(@$PerformanceData)-1;
     my $percent = sprintf('%2f',100/$num_plots);      my $percent = sprintf('%2f',100/$num_plots);
     my $extratable = '';      #
     if ($ENV{'form.AnalyzeAs'} eq 'Foils') {  
         $extratable = &build_option_index($ORdata);  
     }  
     $table .= "<table>\n";      $table .= "<table>\n";
     for (my $i=0;$i<$num_plots;$i++) {      for (my $i=0;$i<$num_plots;$i++) {
           ##
         my $starttime = &Apache::lonhtmlcommon::get_date_from_form          my $starttime = &Apache::lonhtmlcommon::get_date_from_form
             ('startdate_'.$i);              ('startdate_'.$i);
         my $endtime = &Apache::lonhtmlcommon::get_date_from_form          my $endtime = &Apache::lonhtmlcommon::get_date_from_form
             ('enddate_'.$i);              ('enddate_'.$i);
         my ($begin_index,$end_index,$plottitle,$plothtml,$data);  
         if (! defined($starttime) || ! defined($endtime)) {          if (! defined($starttime) || ! defined($endtime)) {
             $begin_index = $i*int($num_data/$num_plots);              my $sec_in_day = 86400;
             $end_index = ($i+1)*int($num_data/$num_plots);              my $last_sub_time = &get_time_from_row($PerformanceData->[-1]);
             my $lownum  = sprintf('%2.1f',$i*$percent);              my ($sday,$smon,$syear);
             $lownum =~ s/(\.0)$//;              (undef,undef,undef,$sday,$smon,$syear) = 
             my $highnum = sprintf('%2.1f',($i+1)*$percent);                  localtime($last_sub_time - $sec_in_day*$i);
             $highnum =~ s/(\.0)$//;              $starttime = &Time::Local::timelocal(0,0,0,$sday,$smon,$syear);
             $plottitle = $lownum.'% to '.$highnum.'% of submissions';              $endtime = $starttime + $sec_in_day;
         } else {              if ($i == ($num_plots -1 )) {
             my $j;                  $starttime = &get_time_from_row($PerformanceData->[0]);
             while (++$j < scalar(@$PerformanceData)) {              }
                 last if ($PerformanceData->[$j]->[2] > $starttime);          }
             }  
             $begin_index = $j;  
             while (++$j < scalar(@$PerformanceData)) {  
                 last if ($PerformanceData->[$j]->[2] > $endtime);  
             }  
             $end_index = $j;  
             $plottitle = $ENV{'form.plottitle_'.$i};  
         }  
         ($plothtml,$starttime,$endtime,$data) =   
             &analyze_option_data_by_time($PerformanceData,  
                                          $begin_index,$end_index,  
                                          $plottitle,$Foils,  
                                          $Concepts,$ORdata);  
         my $startdateform = &Apache::lonhtmlcommon::date_setter          my $startdateform = &Apache::lonhtmlcommon::date_setter
             ('Statistics','startdate_'.$i,$starttime);              ('Statistics','startdate_'.$i,$starttime);
         my $enddateform = &Apache::lonhtmlcommon::date_setter          my $enddateform = &Apache::lonhtmlcommon::date_setter
             ('Statistics','enddate_'.$i,$endtime);              ('Statistics','enddate_'.$i,$endtime);
         $table.="<tr><td>".$plothtml.'</td><td align="left" valign="top">'.          #
             "<b>Start Time</b>: &nbsp;".$startdateform."<br />".          my $begin_index;
             "<b>End Time</b>&nbsp;&nbsp;: "."&nbsp;".$enddateform."<br />".          my $end_index;
             '<b>Plot Title</b>&nbsp;&nbsp;:'.("&nbsp;"x3).          my $j;
             '<input type="text" size="30" name="plottitle_'.$i.'" value="'.          while (++$j < scalar(@$PerformanceData)) {
                   &HTML::Entities::encode($plottitle).'" /><br />'.$extratable.              last if (&get_time_from_row($PerformanceData->[$j]) > $starttime);
             "</td></tr>\n";          }
           $begin_index = $j;
           while (++$j < scalar(@$PerformanceData)) {
               last if (&get_time_from_row($PerformanceData->[$j]) > $endtime);
           }
           $end_index = $j;
           ##
           my $interval = {
               begin_index => $begin_index,
               end_index   => $end_index,
               startdateform => $startdateform,
               enddateform   => $enddateform,
           };
           if ($ENV{'form.AnalyzeAs'} eq 'Foils') {
               $table .= &Foil_Time_Analysis($PerformanceData,$ORdata,$Foils,
                                             $interval);
           } else {
               $table .= &Concept_Time_Analysis($PerformanceData,$ORdata,
                                                $Concepts,$interval);
           }
     }      }
     $table .="</table>\n";      #
     return $table;      return $table;
 }  }
   
 sub analyze_option_data_by_time {  sub Foil_Time_Analysis {
     my ($PerformanceData,$begin_index,      my ($PerformanceData,$ORdata,$Foils,$interval) = @_;
         $end_index,$description,$Foils,$Concepts,$ORdata) = @_;      my $analysis_html;
       my $foilkey = &build_option_index($ORdata);
       my ($begin_index,$end_index) = ($interval->{'begin_index'},
                                       $interval->{'end_index'});
     my %TimeData;      my %TimeData;
     #      #
     # Get the start and end times for this segment of the plot  
     my $starttime = $PerformanceData->[$begin_index]->[2];  
     my $endtime   = $PerformanceData->[$end_index  ]->[2];  
     #  
     # Compute the number getting the foils correct or incorrects      # Compute the number getting the foils correct or incorrects
     for (my $i=$begin_index;$i<=$end_index;$i++) {      for (my $j=$begin_index;$j<=$end_index;$j++) {
         my $row = $PerformanceData->[$i];          my $row = $PerformanceData->[$j];
         next if (! defined($row));          next if (! defined($row));
         my ($grading,$submission,$time,$tries) = @$row;          my %Row = &Process_Row($row);
         next if ($grading eq 'MISSING_ANSWER');          while (my ($foilid,$href) = each(%Row)) {
         my @Foilgrades = split('&',$grading);              if (! ref($href)) {
         my @Foilsubs   = split('&',$submission);                  $TimeData{$foilid} += $href;
         for (my $j=0;$j<=$#Foilgrades;$j++) {                  next;
             my ($foilid,$correct)  = split('=',$Foilgrades[$j]);              }
             my (undef,$submission) = split('=',$Foilsubs[$j]);              while (my ($option,$value) = each(%$href)) {
             if ($correct) {                  $TimeData{$foilid}->{$option}+=$value;
                 $TimeData{$foilid}->{'_correct'}++;  
             } else {  
                 $submission = &HTML::Entities::decode($submission);  
                 $submission =~ s/\%20/ /g;  
                 $TimeData{$foilid}->{$submission}++;  
             }              }
             $TimeData{$foilid}->{'_total'}++;  
         }          }
     }      }
     #  
     # Compute the total and percent correct  
     my @Plotdata;      my @Plotdata;
     my ($xlabel,$ylabel);      foreach my $foil (@$Foils) {
     if ($ENV{'form.AnalyzeAs'} eq 'Foils') {          my $total = $TimeData{$foil}->{'_total'};
         $xlabel = 'Foil Number';          if ($total == 0) {
         $ylabel = 'Option Chosen';              push(@{$Plotdata[0]},0);
         foreach my $foil (@$Foils) {          } else {
             my $total = $TimeData{$foil}->{'_total'};              push(@{$Plotdata[0]},
             my $optionidx = 0;                   100 * $TimeData{$foil}->{'_correct'} / $total);
             foreach my $option ('_correct',@{$ORdata->{'Options'}}) {          }
                 if ($total > 0) {          my $total_incorrect = $total - $TimeData{$foil}->{'_correct'};
                     push(@{$Plotdata[$optionidx]},          my $optionidx = 1;
                          100 * $TimeData{$foil}->{$option} / $total);          foreach my $option (@{$ORdata->{'Options'}}) {
                 } else {              if ($total_incorrect == 0) {
                     push(@{$Plotdata[$optionidx]},0);                  push(@{$Plotdata[$optionidx]},0);
                 }              } else {
             } continue {                  push(@{$Plotdata[$optionidx]},
                 $optionidx++;                       100 * $TimeData{$foil}->{$option} / $total_incorrect);
             }              }
           } continue {
               $optionidx++;
         }          }
       }
       #
       # Create the plot
       my $count = $end_index-$begin_index;
       my $title;
       if ($count == 0) {
           $title = 'no submissions';
       } elsif ($count == 1) {
           $title = 'one submission';
     } else {      } else {
         $xlabel = 'Concept Number';          $title = $count.' submissions';
         $ylabel = 'Percent Correct';      }
         foreach my $concept (@$Concepts) {      my $correctplot = &Apache::loncommon::DrawGraph($title,
             my $correct;                                                      'Foil Number',
             my $total;                                                      'Percent Correct',
             foreach my $foil (@{$concept->{'foils'}}) {                                                      100,
                 $correct+=$TimeData{$foil}->{'_correct'};                                                      $plotcolors,
                 $total  +=$TimeData{$foil}->{'_total'};                                                      $Plotdata[0]);
       for (my $j=0; $j< scalar(@{$Plotdata[0]});$j++) {
           $Plotdata[0]->[$j]=0;
       }
       $count = $end_index-$begin_index-$TimeData{'_correct'};
       if ($count == 0) {
           $title = 'no submissions';
       } elsif ($count == 1) {
           $title = 'one submission';
       } else {
           $title = $count.' submissions';
       }
       my $incorrectplot = &Apache::loncommon::DrawGraph($title,
                                                    'Foil Number',
                                                    'Incorrect Option Choice',
                                                    100,
                                                    $plotcolors,
                                                    @Plotdata);        
       $analysis_html.='<tr>'.
           '<td>'.$correctplot.'</td>'.
           '<td>'.$incorrectplot.'</td>'.
           '<td align="left" valign="top">'.$foilkey.'</td>'."</tr>\n";
       $analysis_html.= '<tr>'.'<td colspan="3">'.
           '<b>Start Time</b>:'.
           ' &nbsp;'.$interval->{'startdateform'}.'<br />'.
           '<b>End Time</b>&nbsp;&nbsp;: '.
           '&nbsp;'.$interval->{'enddateform'}.'<br />'.
   #        '<b>Plot Title</b>&nbsp;&nbsp;:'.
   #        ("&nbsp;"x3).$interval->{'titleform'}.
           '</td>'.
           "</tr>\n";
       return $analysis_html;
   }
   
   sub Concept_Time_Analysis {
       my ($PerformanceData,$ORdata,$Concepts,$interval) = @_;
       my $analysis_html;
       ##
       ## Determine starttime, endtime, startindex, endindex
       my ($begin_index,$end_index) = ($interval->{'begin_index'},
                                       $interval->{'end_index'});
       my %TimeData;
       #
       # Compute the number getting the foils correct or incorrects
       for (my $j=$begin_index;$j<=$end_index;$j++) {
           my $row = $PerformanceData->[$j];
           next if (! defined($row));
           my %Row = &Process_Row($row);
           while (my ($foilid,$href) = each(%Row)) {
               if (! ref($href)) {
                   $TimeData{$foilid} += $href;
                   next;
             }              }
             if ($total > 0) {              while (my ($option,$value) = each(%$href)) {
                 push(@{$Plotdata[0]},100 * $correct / $total);                  $TimeData{$foilid}->{$option}+=$value;
             } else {  
                 push(@{$Plotdata[0]},0);  
             }              }
         }          }
     }      }
     #      #
     # Create the plot      # Put the data in plottable form
     my $graphlink = &Apache::loncommon::DrawGraph      my @Plotdata;
         ($description,#'Time Interval Analysis',      foreach my $concept (@$Concepts) {
          $xlabel,          my ($total,$correct);
          $ylabel,          foreach my $foil (@{$concept->{'foils'}}) {
          100,              $total += $TimeData{$foil}->{'_total'};
          $plotcolors,              $correct += $TimeData{$foil}->{'_correct'};
          @Plotdata);          }
           if ($total == 0) {
               push(@Plotdata,0);
           } else {
               push(@Plotdata,100 * $correct / $total);
           }
       }
     #      #
     return ($graphlink,$starttime,$endtime,\%TimeData);      # Create the plot
       my $title = ($end_index - $begin_index).' submissions';
       my $correctplot = &Apache::loncommon::DrawGraph($title,
                                                       'Concept Number',
                                                       'Percent Correct',
                                                       100,
                                                       $plotcolors,
                                                       \@Plotdata);
       $analysis_html.='<tr>'.
           '<td>'.$correctplot.'</td>'.
           '<td align="left" valign="top">'.
           '<b>Start Time</b>: &nbsp;'.$interval->{'startdateform'}.'<br />'.
           '<b>End Time</b>&nbsp;&nbsp;: '.
              '&nbsp;'.$interval->{'enddateform'}.'<br />'.
   #        '<b>Plot Title</b>&nbsp;&nbsp;:'.("&nbsp;"x3).
   #            $interval->{'titleform'}.
           '</td>'.
           "</tr>\n";
       return $analysis_html;
   }
   
   #########################################################
   #########################################################
   ##
   ##             Excel output 
   ##
   #########################################################
   #########################################################
   sub prepare_excel_sheet {
       my ($PerformanceData,$ORdata) = @_;
       my (undef,$Foils,$Concepts) = &build_foil_index($ORdata);
   }
   
   sub process_data_for_excel_sheet {
       my ($PerformanceData,$Foils,$Concepts,$ORdata)=@_;
 }  }
   
 #########################################################  #########################################################
Line 675  sub CreateInterface { Line 827  sub CreateInterface {
     ##      ##
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
     return ($Str);      return $Str;
 }  }
   
 sub OptionResponseProblemSelector {  sub OptionResponseProblemSelector {
Line 747  sub get_resource_from_symb { Line 899  sub get_resource_from_symb {
     return undef;      return undef;
 }  }
   
   sub get_time_from_row {
       my ($row) = @_;
       if (ref($row)) {
           return $row->[3];
       } 
       return undef;
   }
   
   sub get_tries_from_row {
       my ($row) = @_;
       if (ref($row)) {
           return $row->[4];
       }
       return undef;
   }
   
   sub Process_Row {
       my ($row) = @_;
       my %RowData;
       my ($award,$grading,$submission,$time,$tries) = @$row;
       next if ($award eq 'MISSING_ANSWER');
       if ($award =~ /(APPROX_ANS|EXACT_ANS)/) {
           $RowData{'_correct'} = 1;
       }
       $RowData{'_total'} = 1;
       my @Foilgrades = split('&',$grading);
       my @Foilsubs   = split('&',$submission);
       for (my $j=0;$j<=$#Foilgrades;$j++) {
           my ($foilid,$correct)  = split('=',$Foilgrades[$j]);
           my (undef,$submission) = split('=',$Foilsubs[$j]);
           if ($correct) {
               $RowData{$foilid}->{'_correct'}++;
           } else {
               $submission = &Apache::lonnet::unescape($submission);
               $submission =~ s/\%20/ /g;
               $RowData{$foilid}->{$submission}++;
           }
           $RowData{$foilid}->{'_total'}++;
       }
       return %RowData;
   }
   
 ##  ##
 ## get problem data and put it into a useful data structure.  ## get problem data and put it into a useful data structure.
 ## note: we must force each foil and option to not begin or end with  ## note: we must force each foil and option to not begin or end with
Line 765  sub get_problem_data { Line 959  sub get_problem_data {
             $key =~ s/^$part\.//;              $key =~ s/^$part\.//;
             if (ref($value) eq 'ARRAY') {              if (ref($value) eq 'ARRAY') {
                 if ($key eq 'options') {                  if ($key eq 'options') {
                     for(my $i=0;$i<scalar(@$value);$i++) {  
                         $value->[$i]=~ s/(\s*$|^\s*)//g;  
                     }  
                     $Partdata{$part}->{'Options'}=$value;                      $Partdata{$part}->{'Options'}=$value;
                 } elsif ($key eq 'concepts') {                  } elsif ($key eq 'concepts') {
                     $Partdata{$part}->{'Concepts'}=$value;                      $Partdata{$part}->{'Concepts'}=$value;
                 } elsif ($key =~ /^concept\.(.*)$/) {                  } elsif ($key =~ /^concept\.(.*)$/) {
                     my $concept = $1;                      my $concept = $1;
                     foreach my $foil (@$value) {                      foreach my $foil (@$value) {
                         $foil =~ s/(\s*$|^\s*)//g;  
                         $Partdata{$part}->{'Foils'}->{$foil}->{'Concept'}=                          $Partdata{$part}->{'Foils'}->{$foil}->{'Concept'}=
                                                                       $concept;                                                                        $concept;
                     }                      }
                 }                  }
             } else {              } else {
                 $value =~ s/(\s*$|^\s*)//g;  
                 if ($key=~ /^foil\.text\.(.*)$/) {                  if ($key=~ /^foil\.text\.(.*)$/) {
                     my $foil = $1;                      my $foil = $1;
                     $foil =~ s/(\s*$|^\s*)//g;  
                     $Partdata{$part}->{'Foils'}->{$foil}->{'name'}=$foil;                      $Partdata{$part}->{'Foils'}->{$foil}->{'name'}=$foil;
                     $Partdata{$part}->{'Foils'}->{$foil}->{'text'}=$value;                      $Partdata{$part}->{'Foils'}->{$foil}->{'text'}=$value;
                 } elsif ($key =~ /^foil\.value\.(.*)$/) {                  } elsif ($key =~ /^foil\.value\.(.*)$/) {
                     my $foil = $1;                      my $foil = $1;
                     $foil =~ s/(\s*$|^\s*)//g;  
                     $Partdata{$part}->{'Foils'}->{$foil}->{'value'}=$value;                      $Partdata{$part}->{'Foils'}->{$foil}->{'value'}=$value;
                 }                  }
             }              }
Removed from v.1.40  
changed lines
  Added in v.1.42

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