loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.28 and 1.90

-version 1.28, 2003/10/09 22:10:02
+version 1.90, 2004/09/29 14:38:35
  Line 24
  #
  # http://www.lon-capa.org/
  #
  package Apache::lonproblemanalysis;
  use strict;
- Line 34  use Apache::lonhtmlcommon();
+ Line 33  use Apache::lonhtmlcommon();
  use Apache::loncoursedata();
  use Apache::lonstatistics;
  use Apache::lonlocal;
+ use Apache::lonstathelpers();
+ use Apache::lonstudentsubmissions();
+ use HTML::Entities();
+ use Time::Local();
+ use Spreadsheet::WriteExcel();
+ my $plotcolors = ['#33ff00',
+                   '#0033cc', '#990000', '#aaaa66', '#663399', '#ff9933',
+                   '#66ccff', '#ff9999', '#cccc33', '#660000', '#33cc66',
+                   ];
+ my @SubmitButtons = ({ name => 'PrevProblemAnalysis',
+                        text => 'Previous Problem' },
+                      { name => 'ProblemAnalysis',
+                        text => 'Analyze Problem Again' },
+                      { name => 'NextProblemAnalysis',
+                        text => 'Next Problem' },
+                      { name => 'break'},
+                      { name => 'SelectAnother',
+                        text => 'Choose a different Problem' },
+                      { name => 'ExcelOutput',
+                        text => 'Produce Excel Output' });
  sub BuildProblemAnalysisPage {
      my ($r,$c)=@_;
-     $r->print('<h2>'.&mt('Option Response Problem Analysis').'</h2>');
+     #
+     my %Saveable_Parameters = ('Status' => 'scalar',
+                                'Section' => 'array',
+                                'NumPlots' => 'scalar',
+                                'AnalyzeOver' => 'scalar',
+                                );
+     &Apache::loncommon::store_course_settings('problem_analysis',
+                                               \%Saveable_Parameters);
+     &Apache::loncommon::restore_course_settings('problem_analysis',
+                                                 \%Saveable_Parameters);
+     #
+     &Apache::lonstatistics::PrepareClasslist();
+     #
      $r->print(&CreateInterface());
      #
      my @Students = @Apache::lonstatistics::Students;
      #
-     if (exists($ENV{'form.problemchoice'})) {
+     if (@Students < 1 && exists($ENV{'form.firstrun'})) {
+         $r->print('<h2>There are no students in the sections selected</h2>');
+     }
+     #
+     my @CacheButtonHTML =
+         &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
+     $r->rflush();
+     #
+     # Support for numerical and radio response isn't complete enough to
+     # include in 1.2 release.
+     # my $problem_types = '(option|radiobutton|numerical)';
+     my $problem_types = '(option)';
+     if (exists($ENV{'form.problemchoice'}) &&
+         ! exists($ENV{'form.SelectAnother'})) {
+         foreach my $button (@SubmitButtons) {
+             if ($button->{'name'} eq 'break') {
+                 $r->print("<br />\n");
+             } else {
+                 $r->print('<input type="submit" name="'.$button->{'name'}.'" '.
+                           'value="'.&mt($button->{'text'}).'" />');
+                 $r->print('&nbsp;'x5);
+             }
+         }
+         foreach my $html (@CacheButtonHTML) {
+             $r->print($html.('&nbsp;'x5));
+         }
+         #
          $r->print('<hr />');
-         &Apache::lonstatistics::Gather_Full_Student_Data($r);
+         $r->rflush();
          #
-         my ($symb,$part,$resid) = &get_problem_symb(
+         # Determine which problem we are to analyze
-                      &Apache::lonnet::unescape($ENV{'form.problemchoice'})
+         my $current_problem = &Apache::lonstathelpers::get_target_from_id
-                                            );
+             ($ENV{'form.problemchoice'});
          #
- #        my ($firsttime,$lasttime) =
+         my ($prev,$curr,$next) =
- #            &Apache::loncoursedata::get_timestamp_data($symb,$resid);
+             &Apache::lonstathelpers::get_prev_curr_next($current_problem,
-         #
+                                                         $problem_types,
-         my $resource = &get_resource_from_symb($symb);
+                                                         'response',
-         if (defined($resource)) {
+                                                         );
-             my %Data = &get_problem_data($resource->{'src'});
+         if (exists($ENV{'form.PrevProblemAnalysis'}) && defined($prev)) {
-             my $ORdata = $Data{$part.'.'.$resid};
+             $current_problem = $prev;
-             ##
+         } elsif (exists($ENV{'form.NextProblemAnalysis'}) && defined($next)) {
-             ## Render the problem
+             $current_problem = $next;
-             my $base;
+         } else {
-             ($base,undef) = ($resource->{'src'} =~ m|(.*/)[^/]*$|);
+             $current_problem = $curr;
-             $base = "http://".$ENV{'SERVER_NAME'}.$base;
+         }
-             my $rendered_problem =
+         #
-                 &Apache::lonnet::ssi_body($resource->{'src'});
+         # Store the current problem choice and send it out in the form
-             $rendered_problem =~ s/<form /<nop /g;
+         $ENV{'form.problemchoice'} =
-             $rendered_problem =~ s/<\s*\/form\s>/<\/nop>/g;
+             &Apache::lonstathelpers::make_target_id($current_problem);
-             $r->print('<table bgcolor="ffffff"><tr><td>'.
+         $r->print('<input type="hidden" name="problemchoice" value="'.
-                       '<base href="'.$base.'" />'.
+                   $ENV{'form.problemchoice'}.'" />');
-                       $rendered_problem.
+         #
-                       '</td></tr></table>');
+         if (! defined($current_problem->{'resource'})) {
-             ##
+             $r->print('resource is undefined');
-             ## Analyze the problem
+         } else {
-             my $PerformanceData =
+             my $resource = $current_problem->{'resource'};
-                 &Apache::loncoursedata::get_optionresponse_data
+             $r->print('<h1>'.$resource->{'title'}.'</h1>');
-                                            (\@Students,$symb,$resid);
+             $r->print('<h3>'.$resource->{'src'}.'</h3>');
-             if (defined($PerformanceData) &&
+             $r->print(&Apache::lonstathelpers::render_resource($resource));
-                 ref($PerformanceData) eq 'ARRAY') {
+             $r->rflush();
-                 if ($ENV{'form.AnalyzeBy'} eq 'Tries') {
+             my %Data = &Apache::lonstathelpers::get_problem_data
-                     my $analysis_html = &DoTriesAnalysis($PerformanceData,
+                 ($resource->{'src'});
-                                                          $ORdata);
+             my $problem_data = $Data{$current_problem->{'part'}.
-                 $r->print($analysis_html);
+                                     '.'.
- #                } elsif ($ENV{'form.AnalyzeBy'} eq 'Time') {
+                                     $current_problem->{'respid'}};
- #                    my $analysis_html = &DoTimeAnalysis($PerformanceData,
+             if ($current_problem->{'resptype'} eq 'option') {
- #                                                         $ORdata);
+                 &OptionResponseAnalysis($r,$current_problem,
- #                $r->print($analysis_html);
+                                         $problem_data,
-                 } else {
+                                         \@Students);
-                     $r->print('<h2>'.
+             } elsif ($current_problem->{'resptype'} eq 'radiobutton') {
-                               &mt('The analysis you have selected is '.
+                 &RadioResponseAnalysis($r,$current_problem,
-                                          'not supported at this time').
+                                        $problem_data,
-                               '</h2>');
+                                        \@Students);
+             } elsif ($current_problem->{'resptype'} eq 'numerical') {
+                 ##
+                 ## analyze all responses of a problem at once
+                 my $res = $current_problem->{'resource'};
+                 foreach my $partid (@{$res->{'parts'}}) {
+                     $current_problem->{'part'} = $partid;
+                     foreach my $respid (@{$res->{'partdata'}->{$partid}->{'ResponseIds'}}) {
+                         $current_problem->{'respid'}=$respid;
+                         &NumericalResponseAnalysis($r,$current_problem,
+                                                    $problem_data,\@Students);
+                     }
                  }
              } else {
-                 $r->print('<h2>'.
+                 $r->print('<h2>This analysis is not supported</h2>');
-                           &mt('There is no student data for this problem.').
-                           '</h2>');
              }
-         } else {
-             $r->print('resource is undefined');
          }
          $r->print('<hr />');
      } else {
+         $r->print('<input type="submit" name="ProblemAnalysis" value="'.
+                   &mt('Analyze Problem').'" />');
+         $r->print('&nbsp;'x5);
          $r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>');
+         $r->print(&Apache::lonstathelpers::ProblemSelector
+                   ($problem_types));
      }
-     # Okay, they asked for data, so make sure we get the latest data.
-     $r->print(&OptionResponseProblemSelector());
  }
- sub DoTriesAnalysis {
+ #########################################################
-     my ($PerformanceData,$ORdata) = @_;
+ #########################################################
+ ##
+ ##      Numerical Response Routines
+ ##
+ #########################################################
+ #########################################################
+ sub NumericalResponseAnalysis {
+     my ($r,$problem,$problem_data,$Students) = @_;
+     my $c = $r->connection();
+     my ($resource,$partid,$respid) = ($problem->{'resource'},
+                                       $problem->{'part'},
+                                       $problem->{'respid'});
+     #
+     if (scalar(@{$resource->{'parts'}})>1) {
+         if (@{$resource->{'partdata'}->{$partid}->{'ResponseIds'}}>1) {
+             $r->print('<h3>'.
+                       &mt('Part [_1], response [_2].',$partid,$respid).
+                       '</h3>');
+         } else {
+             $r->print('<h3>'.
+                       &mt('Part [_1]',$partid,$respid).
+                       '</h3>');
+         }
+     } elsif (@{$resource->{'partdata'}->{$partid}->{'ResponseIds'}}>1) {
+         $r->print('<h3>'.&mt('Response [_1]',$respid).'</h3>');
+     }
+     #
+     my $analysis_html;
+     my $PerformanceData = &Apache::loncoursedata::get_response_data
+         (\@Apache::lonstatistics::SelectedSections,
+          $Apache::lonstatistics::enrollment_status,
+          $resource->{'symb'},$respid);
+     if (! defined($PerformanceData) ||
+         ref($PerformanceData) ne 'ARRAY' ) {
+         $analysis_html = '<h2>'.
+             &mt('There is no submission data for this resource').
+             '</h2>';
+         $r->print($analysis_html);
+         return;
+     }
+     #
+     # This next call causes all the waiting around that people complain about
+     my ($max,$min) =
+         &Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students,
+                                                    'Statistics',
+                                                    'stats_status');
+     return if ($c->aborted());
+     #
+     # Collate the data
+     my %Data;
+     foreach my $student (@$Students) {
+         my $answer = $student->{'answer'};
+         $Data{$answer}++;
+     }
+     my @Labels = sort {$a <=> $b } keys(%Data);
+     my @PlotData = @Data{@Labels};
+     #
+     my $width  = 500;
+     my $height = 100;
+     my $plot = &one_dimensional_plot($r,500,100,scalar(@$Students),
+                                      \@Labels,\@PlotData);
+     $r->print($plot);
+     return;
+ }
+ sub one_dimensional_plot {
+     my ($r,$width,$height,$N,$Labels,$Data)=@_;
+     #
+     # Compute data -> image scaling factors
+     my $min = $Labels->[0];
+     my $max = $Labels->[-1];
+     if ($max == $min) {
+         $max =$min+1;
+     }
+     my $h_scale = ($width-10)/($max-$min);
+     #
+     my $max_y = 0;
+     foreach (@$Data) {
+         $max_y = $_ if ($max_y < $_);
+     }
+     my $ticscale = 5;
+     if ($max_y * $ticscale > $height/2) {
+         $ticscale = int($height/2/$max_y);
+         $ticscale = 1 if ($ticscale < 1);
+     }
+     #
+     # Create the plot
+     my $plot =
+         qq{<drawimage width="$width" height="$height" bgcolor="transparent" >};
+     for (my $idx=0;$idx<scalar(@$Labels);$idx++) {
+         my $xloc = 5+$h_scale*($Labels->[$idx] - $min);
+         my $top    = $height/2-$Data->[$idx]*$ticscale;
+         my $bottom = $height/2+$Data->[$idx]*$ticscale;
+         $plot .=
+             &line($xloc,$top,$xloc,$bottom,'888888',1);
+     }
+     #
+     # Put the scale on last to ensure it is on top of the data.
+     if ($min < 0 && $max > 0) {
+         my $circle_x = 5+$h_scale*abs($min);  # '0' in data coordinates
+         my $r = 4;
+         $plot .= &line(5,$height/2,$circle_x-$r,$height/2,'000000',1);
+         $plot .= &circle($circle_x,$height/2,$r+1,'000000');
+         $plot .= &line($circle_x+$r,$height/2,$width-5,$height/2,'000000',1);
+     } else {
+         $plot .= &line(5,$height/2,$width-5,$height/2,'000000',1);
+     }
+     $plot .= '</drawimage>';
+     my $plotresult =  &Apache::lonxml::xmlparse($r,'web',$plot);
+     my $title = 'Distribution of correct answers';
+     my $result = '<table>'.
+         '<tr><td colspan="3" align="center">'.
+         '<font size="+2">'.$title.' (N='.$N.')'.
+         '</font>'.
+         '</td></tr>'.
+         '<tr>'.
+         '<td valign="center">'.$min.'</td>'.
+         '<td>'.$plotresult.'</td>'.
+         '<td valign="center">'.$max.'</td>'.
+         '</tr>'.
+         '<tr><td colspan="3" align="center">'.
+         'Maximum Number of Coinciding Values: '.$max_y.
+         '</td></tr>'.
+         '</table>';
+     return $result;
+ }
+ ##
+ ## Helper subroutines for <drawimage>.
+ ## These should probably go somewhere more suitable soon.
+ sub line {
+     my ($x1,$y1,$x2,$y2,$color,$thickness) = @_;
+     return qq{<line x1="$x1" y1="$y1" x2="$x2" y2="$y2" color="$color" thickness="$thickness" />$/};
+ }
+ sub text {
+     my ($x,$y,$color,$text,$font,$direction) = @_;
+     if (! defined($font) || $font !~ /^(tiny|small|medium|large|giant)$/) {
+         $font = 'medium';
+     }
+     if (! defined($direction) || $direction ne 'vertical') {
+         $direction = '';
+     }
+     return qq{<text x="$x" y="$y" color="$color" font="$font" direction="$direction" >$text</text>};
+ }
+ sub rectangle {
+     my ($x1,$y1,$x2,$y2,$color,$thickness,$filled) = @_;
+     return qq{<rectangle x1="$x1" y1="$y1" x2="$x2" y2="$y2" color="$color" thickness="$thickness" filled="$filled" />};
+ }
+ sub arc {
+     my ($x,$y,$width,$height,$start,$end,$color,$thickness,$filled)=@_;
+     return qq{<arc x="$x" y="$y" width="$width" height="$height" start="$start" end="$end" color="$color" thickness="$thickness" filled="$filled" />};
+ }
+ sub circle {
+     my ($x,$y,$radius,$color,$thickness,$filled)=@_;
+     return &arc($x,$y,$radius,$radius,0,360,$color,$thickness,$filled);
+ }
+ sub build_student_data_worksheet {
+     my ($workbook,$format) = @_;
+     my $rows_output = 3;
+     my $cols_output = 0;
+     my $worksheet  = $workbook->addworksheet('Student Data');
+     $worksheet->write($rows_output++,0,'Student Data',$format->{'h3'});
+     my @Headers = ('full name','username','domain','section',
+                    "student\nnumber",'identifier');
+     $worksheet->write_row($rows_output++,0,\@Headers,$format->{'header'});
+     my @Students = @Apache::lonstatistics::Students;
+     my $studentrows = &Apache::loncoursedata::get_student_data(\@Students);
+     my %ids;
+     foreach my $row (@$studentrows) {
+         my ($mysqlid,$student) = @$row;
+         $ids{$student}=$mysqlid;
+     }
+     foreach my $student (@Students) {
+         my $name_domain = $student->{'username'}.':'.$student->{'domain'};
+         $worksheet->write_row($rows_output++,0,
+                           [$student->{'fullname'},
+                            $student->{'username'},$student->{'domain'},
+                            $student->{'section'},$student->{'id'},
+                            $ids{$name_domain}]);
+     }
+     return $worksheet;
+ }
+ #########################################################
+ #########################################################
+ ##
+ ##      Radio Response Routines
+ ##
+ #########################################################
+ #########################################################
+ sub RadioResponseAnalysis {
+     my ($r,$problem,$problem_data,$Students) = @_;
+     my ($resource,$respid) = ($problem->{'resource'},
+                               $problem->{'respid'});
+     my $analysis_html;
+     my $PerformanceData = &Apache::loncoursedata::get_response_data
+         (\@Apache::lonstatistics::SelectedSections,
+          $Apache::lonstatistics::enrollment_status,
+          $resource->{'symb'},$respid);
+     if (! defined($PerformanceData) ||
+         ref($PerformanceData) ne 'ARRAY' ) {
+         $analysis_html = '<h2>'.
+             &mt('There is no submission data for this resource').
+             '</h2>';
+         $r->print($analysis_html);
+         return;
+     }
+     if (exists($ENV{'form.ExcelOutput'})) {
+         $analysis_html .= &RR_Excel_output($r,$problem->{'resource'},
+                                            $PerformanceData,$problem_data);
+     } elsif ($ENV{'form.AnalyzeOver'} eq 'Tries') {
+         $analysis_html .= &RR_Tries_Analysis($r,$problem->{'resource'},
+                                              $PerformanceData,$problem_data);
+     } elsif ($ENV{'form.AnalyzeOver'} eq 'Time') {
+         $analysis_html .= &RR_Time_Analysis($r,$problem->{'resource'},
+                                             $PerformanceData,$problem_data);
+     } else {
+         $analysis_html .= '<h2>'.
+            &mt('The analysis you have selected is not supported at this time').
+            '</h2>';
+     }
+     $r->print($analysis_html);
+ }
+ sub RR_Excel_output   {
+     my ($r,$PerformanceData,$problem_data) = @_;
+     return '<h1>No!</h1>';
+ }
+ sub RR_Tries_Analysis {
+     my ($r,$resource,$PerformanceData,$problem_data) = @_;
+     my $analysis_html;
      my $mintries = 1;
-     my $maxtries = 10;
+     my $maxtries = $ENV{'form.NumPlots'};
-     my %ResponseData = &analyze_option_data_by_tries($PerformanceData,
+     my ($table,$Foils,$Concepts) = &build_foil_index($problem_data);
-                                                  $mintries,$maxtries);
+     if ((! defined($Concepts)) || (@$Concepts < 2)) {
-     my @Foils = sort(keys(%ResponseData));
+         $table = '<h3>'.
-     my %Row_Label;
+             &mt('Not enough data for concept analysis.  '.
-     foreach my $foilid (@Foils) {
+                 'Performing Foil Analysis').
-         my $value = $ORdata->{'Foiltext'}->{$foilid};
+             '</h3>'.$table;
- #        &Apache::lonnet::logthis('row label '.$foilid.' = '.$value);
-         $Row_Label{$foilid} = $ORdata->{'Foiltext'}->{$foilid};
      }
-     my @Rows;
+     $analysis_html .= $table;
-     $Rows[0] = ['<td>&nbsp;</td>'];
+     my @TryData = &RR_tries_data_analysis($r,$PerformanceData);
-     for (my $i=$mintries;$i<=$maxtries;$i++) {
+         $analysis_html .= &RR_Tries_Foil_Analysis($mintries,$maxtries,$Foils,
-         push (@{$Rows[0]},
+                                                  \@TryData,$problem_data);
-               '<th colspan="3">'.&mt('Attempt').' '.$i.'</th>');
+     return $analysis_html;
-     }
+ }
-     $Rows[1] = ['<th>'.&mt('Foil').'</th>'];
-     for (my $i=$mintries;$i<=$maxtries;$i++) {
+ sub RR_tries_data_analysis {
-         push (@{$Rows[1]},('<th>'.&mt('Correct').'</th>',
+     my ($r,$Attempt_data) = @_;
-                            '<th>'.&mt('Incorrect').'</th>',
+     my @TryData;
-                            '<th>'.&mt('Percent Correct').'</th>',
+     foreach my $attempt (@$Attempt_data) {
-                            ));
+         my %Attempt = &hashify_attempt($attempt);
-     }
+         my ($answer,undef) = split('=',$Attempt{'submission'});
-     my @PlotData;
+         $TryData[$Attempt{'tries'}]->{$answer}++;
-     my @CumulativePlotData;
+     }
-     my $index = 1;
+     return @TryData;
-     foreach my $foilid (@Foils) {
+ }
-         my @Data = ('<td>'.$index.' '.$Row_Label{$foilid}.'</td>');
-         for (my $i=$mintries;$i<=$maxtries;$i++) {
+ sub RR_Time_Analysis  {
-             push(@Data,
+     my ($r,$PerformanceData,$problem_data) = @_;
-                  ('<td>'.$ResponseData{$foilid}->[$i]->{'correct'}.'</td>',
+     my $html;
-                   '<td>'.$ResponseData{$foilid}->[$i]->{'incorrect'}.
+     return $html;
-                   '</td>',
+ }
-                   '<td>'.
-                   sprintf("%4.2f",
+ sub RR_Tries_Foil_Analysis {
-                           $ResponseData{$foilid}->[$i]->{'percent_corr'}).
+     my ($min,$max,$Foils,$TryData,$problem_data) = @_;
-                   '</td>'));
+     my $html;
-             #
+     #
-             # Gather the per-attempt data
+     # Compute the data neccessary to make the plots
-             push (@{$PlotData[$i]->{'good'}},
+     for (my $try=$min;$try<=$max;$try++) {
-                   $ResponseData{$foilid}->[$i]->{'percent_corr'});
+         my @PlotData_Correct;
-             push (@{$PlotData[$i]->{'bad'}},
+         my @PlotData_Incorrect;
--$ResponseData{$foilid}->[$i]->{'percent_corr'});
+         next if ($try > scalar(@{$TryData}));
-         }
+         next if (! defined($TryData->[$try]));
-         for (my $i=0;$i<=$maxtries;$i++) {
+         my %DataSet = %{$TryData->[$try]};
-             push (@{$CumulativePlotData[$i]->{'good'}},
+         my $total = 0;
-                   $CumulativePlotData[-1]->{'good'}+
+         foreach my $foilid (@$Foils) {
-                   $ResponseData{$foilid}->[$i]->{'correct'});
+             $total += $DataSet{$foilid};
-             push (@{$CumulativePlotData[$i]->{'bad'}},
+         }
-                   $CumulativePlotData[-1]->{'bad'}+
+         foreach my $foilid (@$Foils) {
-                   $ResponseData{$foilid}->[$i]->{'incorrect'});
+             if ($total == 0) {
+                 push (@PlotData_Correct,0);
+                 push (@PlotData_Incorrect,0);
+             } else {
+                 if ($problem_data->{'_Foils'}->{$foilid}->{'value'} eq 'true') {
+                     push (@PlotData_Correct,
+                           int(100*$DataSet{$foilid}/$total));
+                     push (@PlotData_Incorrect,0);
+                 } else {
+                     push (@PlotData_Correct,0);
+                     push (@PlotData_Incorrect,
+                           int(100*$DataSet{$foilid}/$total));
+                 }
+             }
+         }
+         my $title='Attempt '.$try;
+         my $xlabel = $total.' Submissions';
+         $html.=  &Apache::loncommon::DrawBarGraph($title,
+                                                   $xlabel,
+                                                   'Percent Choosing',
+,
+                                                   ['#33ff00','#ff3300'],
+                                                   undef,
+                                                   \@PlotData_Correct,
+                                                   \@PlotData_Incorrect);
+     }
+     return $html;
+ }
+ sub RR_Tries_Concept_Analysis {
+     my ($min,$max,$Concepts,$ResponseData,$problem_data) = @_;
+     my $html;
+     return $html;
+ }
+ sub RR_Time_Foil_Analysis {
+     my ($min,$max,$Foils,$ResponseData,$problem_data) = @_;
+     my $html;
+     return $html;
+ }
+ sub RR_Time_Concept_Analysis {
+     my ($min,$max,$Concepts,$ResponseData,$problem_data) = @_;
+     my $html;
+     return $html;
+ }
+ sub get_Radio_problem_data {
+     my ($url) = @_;
+     my $Answ=&Apache::lonnet::ssi($url,('grade_target' => 'analyze'));
+     (my $garbage,$Answ)=split('_HASH_REF__',$Answ,2);
+     my %Answer = &Apache::lonnet::str2hash($Answ);
+     my %Partdata;
+     foreach my $part (@{$Answer{'parts'}}) {
+         while (my($key,$value) = each(%Answer)) {
+ #            if (ref($value) eq 'ARRAY') {
+ #                &Apache::lonnet::logthis('is ref part:'.$part.' '.$key.'='.join(',',@$value));
+ #            } else {
+ #                &Apache::lonnet::logthis('notref part:'.$part.' '.$key.'='.$value);
+ #            }
+             next if ($key !~ /^$part/);
+             $key =~ s/^$part\.//;
+             if ($key eq 'foils') {
+                 $Partdata{$part}->{'_Foils'}=$value;
+             } elsif ($key eq 'options') {
+                 $Partdata{$part}->{'_Options'}=$value;
+             } elsif ($key eq 'shown') {
+                 $Partdata{$part}->{'_Shown'}=$value;
+             } elsif ($key =~ /^foil.value.(.*)$/) {
+                 $Partdata{$part}->{$1}->{'value'}=$value;
+             } elsif ($key =~ /^foil.text.(.*)$/) {
+                 $Partdata{$part}->{$1}->{'text'}=$value;
+             }
          }
-         push(@Rows,\@Data);
-     } continue {
-         $index++;
      }
-     my @Data = ('<td></td>');
+     return %Partdata;
-     for (my $i=$mintries;$i<=$maxtries;$i++) {
+ }
-         my $minstu = $ResponseData{$Foils[0]}->[$i]->{'total'};
-         my $maxstu = $ResponseData{$Foils[0]}->[$i]->{'total'};
+ #########################################################
-         foreach my $foilid (@Foils) {
+ #########################################################
-             if ($minstu > $ResponseData{$foilid}->[$i]->{'total'}) {
+ ##
-                 $minstu = $ResponseData{$foilid}->[$i]->{'total'};
+ ##      Option Response Routines
-             }
+ ##
-             if ($maxstu < $ResponseData{$foilid}->[$i]->{'total'}) {
+ #########################################################
-                 $maxstu = $ResponseData{$foilid}->[$i]->{'total'};
+ #########################################################
-             }
+ sub OptionResponseAnalysis {
-         }
+     my ($r,$problem,$problem_data,$Students) = @_;
-         $maxstu = 0 if (! $maxstu);
+     my ($resource,$respid) = ($problem->{'resource'},
-         $minstu = 0 if (! $minstu);
+                               $problem->{'respid'});
-         my $graphlink;
+     # Note: part data is not needed.
-         if ($maxstu == $minstu) {
+     my $PerformanceData = &Apache::loncoursedata::get_response_data
-             $graphlink = &Apache::loncommon::DrawGraph
+         (\@Apache::lonstatistics::SelectedSections,
-                 ('Attempt '.$i.', '.$maxstu.' students',
+          $Apache::lonstatistics::enrollment_status,
-                  'Foil Number',
+          $resource->{'symb'},$respid);
-                  'Percent Correct',
+     if (! defined($PerformanceData) ||
-,
+         ref($PerformanceData) ne 'ARRAY' ) {
-                  $PlotData[$i]->{'good'},
+         $r->print('<h2>'.
-                  $PlotData[$i]->{'bad'});
+                   &mt('There is no student data for this problem.').
+                   '</h2>');
+     }  else {
+         $r->rflush();
+         if (exists($ENV{'form.ExcelOutput'})) {
+             my $result = &OR_excel_sheet($r,$resource,
+                                          $PerformanceData,
+                                          $problem_data);
+             $r->print($result);
+             $r->rflush();
          } else {
-             $graphlink = &Apache::loncomon::DrawGraph
+             if ($ENV{'form.AnalyzeOver'} eq 'Tries') {
-                 ('Attempt '.$i.', '.$minstu.'-'.$maxstu.
+                 my $analysis_html = &OR_tries_analysis($r,
-                  ' students',
+                                                     $PerformanceData,
-                  'Foil Number',
+                                                     $problem_data);
-                  'Percent Correct',
+                 $r->print($analysis_html);
-,
+                 $r->rflush();
-                  $PlotData[$i]->{'good'},
+             } elsif ($ENV{'form.AnalyzeOver'} eq 'Time') {
-                  $PlotData[$i]->{'bad'});
+                 my $analysis_html = &OR_time_analysis($PerformanceData,
+                                                    $problem_data);
+                 $r->print($analysis_html);
+                 $r->rflush();
+             } else {
+                 $r->print('<h2>'.
+                           &mt('The analysis you have selected is '.
+                               'not supported at this time').
+                           '</h2>');
+             }
          }
-         push(@Data,'<td colspan="3">'.$graphlink.'</td>');
      }
-     push (@Rows,\@Data);
+ }
-     my $table = '<table border="1" >'."\n";
-     for (my $i=0; $i <=$#Rows;$i++) {
+ #########################################################
-         $table .= '<tr>'.join('',@{$Rows[$i]})."</tr>\n";
+ #
+ #       Option Response:  Tries Analysis
+ #
+ #########################################################
+ sub OR_tries_analysis {
+     my ($r,$PerformanceData,$ORdata) = @_;
+     my $mintries = 1;
+     my $maxtries = $ENV{'form.NumPlots'};
+     my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
+     my %response_data = &OR_analyze_by_tries($r,$PerformanceData,
+                                                      $mintries,$maxtries);
+     my $analysis = '';
+     #
+     # Compute the data necessary to make the plots
+     my @foil_plot;
+     my @concept_data;
+     for (my $j=0;$j<=scalar(@$Concepts);$j++) {
+         my $concept = $Concepts->[$j];
+         foreach my $foilid (@{$concept->{'foils'}}) {
+             for (my $try=$mintries;$try<=$maxtries;$try++) {
+                 # concept analysis data
+                 $concept_data[$j]->{'_correct'} +=
+                     $response_data{$foilid}->[$try]->{'_correct'};
+                 $concept_data[$j]->{'_total'} +=
+                     $response_data{$foilid}->[$try]->{'_total'};
+                 #
+                 # foil analysis data
+                 if ($response_data{$foilid}->[$try]->{'_total'} == 0) {
+                     push(@{$foil_plot[$try]->{'_correct'}},0);
+                 } else {
+                     push(@{$foil_plot[$try]->{'_correct'}},
+*$response_data{$foilid}->[$try]->{'_correct'}/
+                          $response_data{$foilid}->[$try]->{'_total'});
+                 }
+                 foreach my $option (@{$ORdata->{'_Options'}}) {
+                     push(@{$foil_plot[$try]->{'_total'}},
+                          $response_data{$foilid}->[$try]->{'_total'});
+                     if ($response_data{$foilid}->[$try]->{'_total'} == 0) {
+                         push (@{$foil_plot[$try]->{$option}},0);
+                     } else {
+                         if ($response_data{$foilid}->[$try]->{'_total'} ==
+                             $response_data{$foilid}->[$try]->{'_correct'}) {
+                             push(@{$foil_plot[$try]->{$option}},0);
+                         } else {
+                             push (@{$foil_plot[$try]->{$option}},
+*
+                                   $response_data{$foilid}->[$try]->{$option} /
+                                   ($response_data{$foilid}->[$try]->{'_total'}
+                                    -
+                                    $response_data{$foilid}->[$try]->{'_correct'}
+                                    ));
+                         }
+                     }
+                 } # End of foreach my $option
+             }
+         } # End of foreach my $foilid
+     } # End of concept loops
+     #
+     # Build a table for the plots
+     my $analysis_html = "<table>\n";
+     my $optionkey = &build_option_index($ORdata);
+     my $num_concepts = 1;
+     if (defined($Concepts)) { $num_concepts = scalar(@$Concepts); }
+     #
+     for (my $try=$mintries;$try<=$maxtries;$try++) {
+         my $concept_graph='';
+         if ($num_concepts > 1) {
+             #
+             # Create concept plot
+             my @concept_plot_data;
+             for (my $j=0;$j<=$#concept_data;$j++) {
+                 my $total = $concept_data[$j]->{'_total'};
+                 if ($total == 0) {
+                     $concept_plot_data[$j] = 0;
+                 } else {
+                     $concept_plot_data[$j] = 100 *
+                         sprintf('%0.3f',
+                                 $concept_data[$j]->{'_correct'} / $total);
+                 }
+             }
+             #
+             my $title;
+             my $count = $response_data{'_total'}->[$try];
+             $title = 'Attempt '.$try.' (N='.$count.')';
+             $concept_graph = &Apache::loncommon::DrawBarGraph
+                 ($title,'Concept Number','Percent Correct',
+,$plotcolors,undef,\@concept_plot_data);
+         }
+         #
+         # Create Foil Plots
+         my $count = $response_data{'_total'}->[$try];
+         my $title = 'Attempt '.$try.' (N='.$count.')';
+         my @Datasets;
+         foreach my $option ('_correct',@{$ORdata->{'_Options'}}) {
+             next if (! exists($foil_plot[$try]->{$option}));
+             push(@Datasets,$foil_plot[$try]->{$option});
+         }
+         #
+         # Put a blank in the data set between concepts
+         for (my $set =0;$set<=$#Datasets;$set++) {
+             my @Data = @{$Datasets[$set]};
+             my $idx = 0;
+             foreach my $concept (@{$Concepts}) {
+                 foreach my $foilid (@{$concept->{'foils'}}) {
+                     $Datasets[$set]->[$idx++]=shift(@Data);
+                 }
+                 if ($concept->{'name'} ne $Concepts->[-1]->{'name'}) {
+                     $Datasets[$set]->[$idx++] = 0;
+                 }
+             }
+         }
+         #
+         # Set up the labels needed for the bar graph
+         my @Labels;
+         my $idx = 1;
+         foreach my $concept (@{$Concepts}) {
+             foreach my $foilid (@{$concept->{'foils'}}) {
+                 push(@Labels,$idx++);
+             }
+             push(@Labels,'');
+         }
+         #
+         my $correct_graph = &Apache::loncommon::DrawBarGraph
+             ($title,'Foil Number','Percent Correct',
+,$plotcolors,\@Labels,$Datasets[0]);
+         #
+         #
+         next if (! defined($Datasets[0]));
+         for (my $i=0; $i< scalar(@{$Datasets[0]});$i++) {
+             $Datasets[0]->[$i]=0;
+         }
+         $count = $response_data{'_total'}->[$try] -
+                                            $response_data{'_correct'}->[$try];
+         $title = 'Attempt '.$try.' (N='.$count.')';
+         my $incorrect_graph = &Apache::loncommon::DrawBarGraph
+             ($title,'Foil Number','% Option Chosen Incorrectly',
+,$plotcolors,\@Labels,@Datasets);
+         $analysis_html.=
+             '<tr>'.
+             '<td>'.$concept_graph.'</td>'.
+             '<td>'.$correct_graph.'</td>'.
+             '<td>'.$incorrect_graph.'</td>'.
+             '<td>'.$optionkey.'<td>'.
+             '</tr>'.$/;
      }
-     $table .= '</table>';
+     $analysis_html .= "</table>\n";
-     return ($table);
+     $table .= $analysis_html;
+     return $table;
  }
- sub analyze_option_data_by_tries {
+ sub OR_analyze_by_tries {
-     my ($PerformanceData,$mintries,$maxtries) = @_;
+     my ($r,$PerformanceData,$mintries,$maxtries) = @_;
      my %Trydata;
      $mintries = 1         if (! defined($mintries) || $mintries < 1);
      $maxtries = $mintries if (! defined($maxtries) || $maxtries < $mintries);
      foreach my $row (@$PerformanceData) {
          next if (! defined($row));
-         my ($grading,$submission,$time,$tries) = @$row;
+         my $tries = &get_tries_from_row($row);
-         my @Foilgrades = split('&',$grading);
+         my %Row   = &Process_OR_Row($row);
-         my @Foilsubs   = split('&',$submission);
+         next if (! %Row);
-         for (my $numtries = 1; $numtries <= $maxtries; $numtries++) {
+         while (my ($foilid,$href) = each(%Row)) {
-             if ($tries == $numtries) {
+             if (! ref($href)) {
-                 foreach my $foilgrade (@Foilgrades) {
+                 $Trydata{$foilid}->[$tries] += $href;
-                     my ($foilid,$correct) = split('=',$foilgrade);
+                 next;
-                     if ($correct) {
+             }
-                         $Trydata{$foilid}->[$numtries]->{'correct'}++;
+             while (my ($option,$value) = each(%$href)) {
-                     } else {
+                 $Trydata{$foilid}->[$tries]->{$option}+=$value;
-                         $Trydata{$foilid}->[$numtries]->{'incorrect'}++;
+             }
-                     }
+         }
+     }
+     return %Trydata;
+ }
+ #########################################################
+ #
+ #     Option Response: Time Analysis
+ #
+ #########################################################
+ sub OR_time_analysis {
+     my ($performance_data,$ORdata) = @_;
+     my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
+     my $foilkey = &build_option_index($ORdata);
+     my $num_concepts = 1;
+     if (defined($Concepts)) { $num_concepts = scalar(@$Concepts); }
+     #
+     if ($num_concepts < 2) {
+         $table = '<h3>'.
+             &mt('Not enough data for concept analysis.  '.
+                 'Performing Foil Analysis').
+                 '</h3>'.$table;
+     }
+     #
+     my $num_plots = $ENV{'form.NumPlots'};
+     my $num_data = scalar(@$performance_data)-1;
+     my $percent = sprintf('%2f',100/$num_plots);
+     #
+     $table .= "<table>\n";
+     for (my $i=0;$i<$num_plots;$i++) {
+         ##
+         my $starttime = &Apache::lonhtmlcommon::get_date_from_form
+             ('startdate_'.$i);
+         my $endtime = &Apache::lonhtmlcommon::get_date_from_form
+             ('enddate_'.$i);
+         if (! defined($starttime) || ! defined($endtime)) {
+             my $sec_in_day = 86400;
+             my $last_sub_time = &get_time_from_row($performance_data->[-1]);
+             my ($sday,$smon,$syear);
+             (undef,undef,undef,$sday,$smon,$syear) =
+                 localtime($last_sub_time - $sec_in_day*$i);
+             $starttime = &Time::Local::timelocal(0,0,0,$sday,$smon,$syear);
+             $endtime = $starttime + $sec_in_day;
+             if ($i == ($num_plots -1 )) {
+                 $starttime = &get_time_from_row($performance_data->[0]);
+             }
+         }
+         $table .= '<tr><td colspan="4" align="center">'.
+             &mt('Data from [_1] to [_2]',
+                 &Apache::lonlocal::locallocaltime($starttime),
+                 &Apache::lonlocal::locallocaltime($endtime)).'</td></tr>'.$/;
+         my $startdateform = &Apache::lonhtmlcommon::date_setter
+             ('Statistics','startdate_'.$i,$starttime);
+         my $enddateform = &Apache::lonhtmlcommon::date_setter
+             ('Statistics','enddate_'.$i,$endtime);
+         #
+         my $begin_index;
+         my $end_index;
+         my $j;
+         while (++$j < scalar(@$performance_data)) {
+             last if (&get_time_from_row($performance_data->[$j])
+                                                               > $starttime);
+         }
+         $begin_index = $j;
+         while (++$j < scalar(@$performance_data)) {
+             last if (&get_time_from_row($performance_data->[$j]) > $endtime);
+         }
+         $end_index = $j;
+         ##
+         my $interval = {
+             begin_index => $begin_index,
+             end_index   => $end_index,
+             startdateform => $startdateform,
+             enddateform   => $enddateform,
+         };
+         my $concept_correct_plot = '';
+         if ($num_concepts > 1) {
+             $concept_correct_plot =
+                 &OR_Concept_Time_Analysis($performance_data,
+                                           $ORdata,$Concepts,
+                                           $interval);
+         }
+         my ($foil_correct_plot,$foil_incorrect_plot) =
+             &OR_Foil_Time_Analysis($performance_data,$ORdata,
+                                    $Foils,$Concepts,$interval);
+         $table .= '<tr>'.
+             '<td>'.$concept_correct_plot.'</td>'.
+             '<td>'.$foil_correct_plot.'</td>'.
+             '<td>'.$foil_incorrect_plot.'</td>'.
+             '<td align="left" valign="top">'.$foilkey.'</td></tr>'.$/;
+         $table .= '<tr><td colspan="4" align="center">'.
+             &mt('Start time: [_1]',
+                 $interval->{'startdateform'}).'<br />'.
+             &mt('End time: [_1]',
+                 $interval->{'enddateform'}).
+                 '</td></tr>'.$/;
+         $table.= '<tr><td colspan="4">&nbsp</td></tr>'.$/;
+     }
+     $table .= '</table>';
+     #
+     return $table;
+ }
+ sub OR_Foil_Time_Analysis {
+     my ($performance_data,$ORdata,$Foils,$Concepts,$interval) = @_;
+     my $analysis_html;
+     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 = $performance_data->[$j];
+         next if (! defined($row));
+         my %Row = &Process_OR_Row($row);
+         while (my ($foilid,$href) = each(%Row)) {
+             if (! ref($href)) {
+                 $TimeData{$foilid} += $href;
+                 next;
+             }
+             while (my ($option,$value) = each(%$href)) {
+                 $TimeData{$foilid}->{$option}+=$value;
+             }
+         }
+     }
+     my @plotdata;
+     my @labels;
+     foreach my $concept (@{$Concepts}) {
+         foreach my $foil (@{$concept->{'foils'}}) {
+             push(@labels,scalar(@labels)+1);
+             my $total = $TimeData{$foil}->{'_total'};
+             if ($total == 0) {
+                 push(@{$plotdata[0]},0);
+             } else {
+                 push(@{$plotdata[0]},
+* $TimeData{$foil}->{'_correct'} / $total);
+             }
+             my $total_incorrect = $total - $TimeData{$foil}->{'_correct'};
+             for (my $i=0;$i<scalar(@{$ORdata->{'_Options'}});$i++) {
+                 my $option = $ORdata->{'_Options'}->[$i];
+                 if ($total_incorrect == 0) {
+                     push(@{$plotdata[$i+1]},0);
+                 } else {
+                     push(@{$plotdata[$i+1]},
+* $TimeData{$foil}->{$option} / $total_incorrect);
                  }
              }
          }
+         # Put in a blank one
+         push(@labels,'');
+         push(@{$plotdata[0]},0);
+         for (my $i=0;$i<scalar(@{$ORdata->{'_Options'}});$i++) {
+             push(@{$plotdata[$i+1]},0);
+         }
+     }
+     #
+     # Create the plot
+     my $count = $end_index-$begin_index;
+     my $title;
+     if ($count == 0) {
+         $title = 'no submissions';
+     } elsif ($count == 1) {
+         $title = 'one submission';
+     } else {
+         $title = $count.' submissions';
+     }
+     my $correct_plot = &Apache::loncommon::DrawBarGraph($title,
+                                                        'Foil Number',
+                                                        'Percent Correct',
+,
+                                                        $plotcolors,
+                                                        undef,
+                                                        $plotdata[0]);
+     for (my $j=0; $j< scalar(@{$plotdata[0]});$j++) {
+         $plotdata[0]->[$j]=0;
      }
-     foreach my $foilid (keys(%Trydata)) {
+     $count = $end_index-$begin_index-$TimeData{'_correct'};
-         foreach my $tryhash (@{$Trydata{$foilid}}) {
+     if ($count == 0) {
-             next if ((! exists($tryhash->{'correct'}) &&
+         $title = 'no submissions';
-                       ! exists($tryhash->{'incorrect'})) ||
+     } elsif ($count == 1) {
-                      ($tryhash->{'correct'} < 1 &&
+         $title = 'one submission';
-                       $tryhash->{'incorrect'} < 1));
+     } else {
-             $tryhash->{'total'} = $tryhash->{'correct'} +
+         $title = $count.' submissions';
-                                         $tryhash->{'incorrect'};
+     }
-             $tryhash->{'percent_corr'} = 100 *
+     my $incorrect_plot = &Apache::loncommon::DrawBarGraph($title,
-                 ($tryhash->{'correct'} /
+                                                  'Foil Number',
-                          ($tryhash->{'correct'} + $tryhash->{'incorrect'})
+                                                  'Incorrect Option Choice',
-                  );
+,
+                                                  $plotcolors,
+                                                  undef,
+                                                  @plotdata);
+     return ($correct_plot,$incorrect_plot);
+ }
+ sub OR_Concept_Time_Analysis {
+     my ($performance_data,$ORdata,$Concepts,$interval) = @_;
+     ##
+     ## 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 = $performance_data->[$j];
+         next if (! defined($row));
+         my %Row = &Process_OR_Row($row);
+         while (my ($foilid,$href) = each(%Row)) {
+             if (! ref($href)) {
+                 $TimeData{$foilid} += $href;
+                 next;
+             }
+             while (my ($option,$value) = each(%$href)) {
+                 $TimeData{$foilid}->{$option}+=$value;
+             }
          }
      }
-     return %Trydata;
+     #
+     # Put the data in plottable form
+     my @plotdata;
+     foreach my $concept (@$Concepts) {
+         my ($total,$correct);
+         foreach my $foil (@{$concept->{'foils'}}) {
+             $total += $TimeData{$foil}->{'_total'};
+             $correct += $TimeData{$foil}->{'_correct'};
+         }
+         if ($total == 0) {
+             push(@plotdata,0);
+         } else {
+             push(@plotdata,100 * $correct / $total);
+         }
+     }
+     #
+     # Create the plot
+     my $title = ($end_index - $begin_index).' submissions';
+     return &Apache::loncommon::DrawBarGraph($title,
+                                             'Concept Number',
+                                             'Percent Correct',
+,
+                                             $plotcolors,
+                                             undef,
+                                             \@plotdata);
+ }
+ #########################################################
+ #########################################################
+ ##
+ ##             Excel output
+ ##
+ #########################################################
+ #########################################################
+ sub OR_excel_sheet {
+     my ($r,$resource,$performance_data,$ORdata) = @_;
+     my $response = '';
+     my (undef,$Foils,$Concepts) = &build_foil_index($ORdata);
+     #
+     # Create excel worksheet
+     my $filename = '/prtspool/'.
+         $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
+         time.'_'.rand(1000000000).'.xls';
+     my $workbook  = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
+     if (! defined($workbook)) {
+         $r->log_error("Error creating excel spreadsheet $filename: $!");
+         $r->print('<p>'.&mt("Unable to create new Excel file.  ".
+                             "This error has been logged.  ".
+                             "Please alert your LON-CAPA administrator").
+                   '</p>');
+         return undef;
+     }
+     #
+     $workbook->set_tempdir('/home/httpd/perl/tmp');
+     my $format = &Apache::loncommon::define_excel_formats($workbook);
+     #
+     # Create and populate main worksheets
+     my $problem_data_sheet  = $workbook->addworksheet('Problem Data');
+     my $student_data_sheet = &build_student_data_worksheet($workbook,$format);
+     my $response_data_sheet = $workbook->addworksheet('Response Data');
+     foreach my $sheet ($problem_data_sheet,$student_data_sheet,
+                        $response_data_sheet) {
+         $sheet->write(0,0,$resource->{'title'},$format->{'h2'});
+         $sheet->write(1,0,$resource->{'src'},$format->{'h3'});
+     }
+     #
+     my $result;
+     $result = &OR_build_problem_data_worksheet($problem_data_sheet,$format,
+                                             $Concepts,$ORdata);
+     if ($result ne 'okay') {
+         # Do something useful
+     }
+     $result = &OR_build_response_data_worksheet($response_data_sheet,$format,
+                                              $performance_data,$Foils,
+                                              $ORdata);
+     if ($result ne 'okay') {
+         # Do something useful
+     }
+     $response_data_sheet->activate();
+     #
+     # Close the excel file
+     $workbook->close();
+     #
+     # Write a link to allow them to download it
+     $result .= '<h2>'.&mt('Excel Raw Data Output').'</h2>'.
+               '<p><a href="'.$filename.'">'.
+               &mt('Your Excel spreadsheet.').
+               '</a></p>'."\n";
+     return $result;
  }
- sub get_problem_symb {
+ sub OR_build_problem_data_worksheet {
-     my $problemstring = shift();
+     my ($worksheet,$format,$Concepts,$ORdata) = @_;
-     my ($symb,$partid,$resid) = ($problemstring=~ /^(.*):([^:]*):([^:]*)$/);
+     my $rows_output = 3;
-     return ($symb,$partid,$resid);
+     my $cols_output = 0;
+     $worksheet->write($rows_output++,0,'Problem Structure',$format->{'h3'});
+     ##
+     ##
+     my @Headers;
+     if (@$Concepts > 1) {
+         @Headers = ("Concept\nNumber",'Concept',"Foil\nNumber",
+                     'Foil Name','Foil Text','Correct value');
+     } else {
+         @Headers = ('Foil Number','FoilName','Foil Text','Correct value');
+     }
+     $worksheet->write_row($rows_output++,0,\@Headers,$format->{'header'});
+     my %Foildata = %{$ORdata->{'_Foils'}};
+     my $conceptindex = 1;
+     my $foilindex = 1;
+     foreach my $concept (@$Concepts) {
+         my @FoilsInConcept = @{$concept->{'foils'}};
+         my $firstfoil = shift(@FoilsInConcept);
+         if (@$Concepts > 1) {
+             $worksheet->write_row($rows_output++,0,
+                                   [$conceptindex,
+                                    $concept->{'name'},
+                                    $foilindex++,
+                                    $Foildata{$firstfoil}->{'name'},
+                                    $Foildata{$firstfoil}->{'text'},
+                                    $Foildata{$firstfoil}->{'value'},]);
+         } else {
+             $worksheet->write_row($rows_output++,0,
+                                   [ $foilindex++,
+                                     $Foildata{$firstfoil}->{'name'},
+                                     $Foildata{$firstfoil}->{'text'},
+                                     $Foildata{$firstfoil}->{'value'},]);
+         }
+         foreach my $foilid (@FoilsInConcept) {
+             if (@$Concepts > 1) {
+                 $worksheet->write_row($rows_output++,0,
+                                       ['',
+                                        '',
+                                        $foilindex,
+                                        $Foildata{$foilid}->{'name'},
+                                        $Foildata{$foilid}->{'text'},
+                                        $Foildata{$foilid}->{'value'},]);
+             } else {
+                 $worksheet->write_row($rows_output++,0,
+                                       [$foilindex,
+                                        $Foildata{$foilid}->{'name'},
+                                        $Foildata{$foilid}->{'text'},
+                                        $Foildata{$foilid}->{'value'},]);
+             }
+         } continue {
+             $foilindex++;
+         }
+     } continue {
+         $conceptindex++;
+     }
+     $rows_output++;
+     $rows_output++;
+     ##
+     ## Option data output
+     $worksheet->write($rows_output++,0,'Options',$format->{'header'});
+     foreach my $string (@{$ORdata->{'_Options'}}) {
+         $worksheet->write($rows_output++,0,$string);
+     }
+     return 'okay';
  }
+ sub OR_build_response_data_worksheet {
+     my ($worksheet,$format,$performance_data,$Foils,$ORdata)=@_;
+     my $rows_output = 3;
+     my $cols_output = 0;
+     $worksheet->write($rows_output++,0,'Response Data',$format->{'h3'});
+     $worksheet->set_column(1,1,20);
+     $worksheet->set_column(2,2,13);
+     my @Headers = ('identifier','time','award detail','attempt');
+     foreach my $foil (@$Foils) {
+         push (@Headers,$foil.' submission');
+         push (@Headers,$foil.' grading');
+     }
+     $worksheet->write_row($rows_output++,0,\@Headers,$format->{'header'});
+     #
+     foreach my $row (@$performance_data) {
+         next if (! defined($row));
+         my ($student,$award,$grading,$submission,$time,$tries) = @$row;
+         my @Foilgrades = split('&',$grading);
+         my @Foilsubs   = split('&',$submission);
+         my %response_data;
+         for (my $j=0;$j<=$#Foilgrades;$j++) {
+             my ($foilid,$correct)  = split('=',$Foilgrades[$j]);
+             my (undef,$submission) = split('=',$Foilsubs[$j]);
+             $submission = &Apache::lonnet::unescape($submission);
+             $response_data{$foilid.' submission'}=$submission;
+             $response_data{$foilid.' award'}=$correct;
+         }
+         $worksheet->write($rows_output,$cols_output++,$student);
+         $worksheet->write($rows_output,$cols_output++,
+              &Apache::lonstathelpers::calc_serial($time),$format->{'date'});
+         $worksheet->write($rows_output,$cols_output++,$award);
+         $worksheet->write($rows_output,$cols_output++,$tries);
+         foreach my $foilid (@$Foils) {
+             $worksheet->write($rows_output,$cols_output++,
+                               $response_data{$foilid.' submission'});
+             $worksheet->write($rows_output,$cols_output++,
+                               $response_data{$foilid.' award'});
+         }
+         $rows_output++;
+         $cols_output = 0;
+     }
+     return;
+ }
+ sub build_foil_index {
+     my ($ORdata) = @_;
+     return if (! exists($ORdata->{'_Foils'}));
+     my %Foildata = %{$ORdata->{'_Foils'}};
+     my @Foils = sort(keys(%Foildata));
+     my %Concepts;
+     foreach my $foilid (@Foils) {
+         push(@{$Concepts{$Foildata{$foilid}->{'_Concept'}}},
+              $foilid);
+     }
+     undef(@Foils);
+     # Having gathered the concept information in a hash, we now translate it
+     # into an array because we need to be consistent about order.
+     # Also put the foils in order, too.
+     my $sortfunction = sub {
+         my %Numbers = (one   => 1,
+                        two   => 2,
+                        three => 3,
+                        four  => 4,
+                        five  => 5,
+                        six   => 6,
+                        seven => 7,
+                        eight => 8,
+                        nine  => 9,
+                        ten   => 10,);
+         my $a1 = lc($a);
+         my $b1 = lc($b);
+         if (exists($Numbers{$a1})) {
+             $a1 = $Numbers{$a1};
+         }
+         if (exists($Numbers{$b1})) {
+             $b1 = $Numbers{$b1};
+         }
+         if (($a1 =~/^\d+$/) && ($b1 =~/^\d+$/)) {
+             return $a1 <=> $b1;
+         } else {
+             return $a1 cmp $b1;
+         }
+     };
+     my @Concepts;
+     foreach my $concept (sort $sortfunction (keys(%Concepts))) {
+         if (! defined($Concepts{$concept})) {
+             $Concepts{$concept}=[];
+ #            next;
+         }
+         push(@Concepts,{ name => $concept,
+                         foils => [@{$Concepts{$concept}}]});
+         push(@Foils,(@{$Concepts{$concept}}));
+     }
+     #
+     # Build up the table of row labels.
+     my $table = '<table border="1" >'."\n";
+     if (@Concepts > 1) {
+         $table .= '<tr>'.
+             '<th>'.&mt('Concept Number').'</th>'.
+             '<th>'.&mt('Concept').'</th>'.
+             '<th>'.&mt('Foil Number').'</th>'.
+             '<th>'.&mt('Foil Name').'</th>'.
+             '<th>'.&mt('Foil Text').'</th>'.
+             '<th>'.&mt('Correct Value').'</th>'.
+             "</tr>\n";
+     } else {
+         $table .= '<tr>'.
+             '<th>'.&mt('Foil Number').'</th>'.
+             '<th>'.&mt('Foil Name').'</th>'.
+             '<th>'.&mt('Foil Text').'</th>'.
+             '<th>'.&mt('Correct Value').'</th>'.
+             "</tr>\n";
+     }
+     my $conceptindex = 1;
+     my $foilindex = 1;
+     foreach my $concept (@Concepts) {
+         my @FoilsInConcept = @{$concept->{'foils'}};
+         my $firstfoil = shift(@FoilsInConcept);
+         if (@Concepts > 1) {
+             $table .= '<tr>'.
+                 '<td>'.$conceptindex.'</td>'.
+                 '<td>'.&HTML::Entities::encode($concept->{'name'},'<>&"').'</td>'.
+                 '<td>'.$foilindex++.'</td>'.
+                 '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'.
+                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
+                 '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'.
+                 "</tr>\n";
+         } else {
+             $table .= '<tr>'.
+                 '<td>'.$foilindex++.'</td>'.
+                 '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'.
+                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
+                 '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'.
+                 "</tr>\n";
+         }
+         foreach my $foilid (@FoilsInConcept) {
+             if (@Concepts > 1) {
+                 $table .= '<tr>'.
+                     '<td></td>'.
+                     '<td></td>'.
+                     '<td>'.$foilindex.'</td>'.
+                     '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'.
+                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
+                     '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'.
+                     "</tr>\n";
+             } else {
+                 $table .= '<tr>'.
+                     '<td>'.$foilindex.'</td>'.
+                     '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'.
+                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
+                     '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'.
+                     "</tr>\n";
+             }
+         } continue {
+             $foilindex++;
+         }
+     } continue {
+         $conceptindex++;
+     }
+     $table .= "</table>\n";
+     #
+     # Build option index with color stuff
+     return ($table,\@Foils,\@Concepts);
+ }
+ sub build_option_index {
+     my ($ORdata)= @_;
+     my $table = "<table>\n";
+     my $optionindex = 0;
+     my @Rows;
+     foreach my $option (&mt('correct option chosen'),@{$ORdata->{'_Options'}}) {
+         push (@Rows,
+               '<tr>'.
+               '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.
+               ('&nbsp;'x4).'</td>'.
+               '<td>'.&HTML::Entities::encode($option,'<>&"').'</td>'.
+               "</tr>\n");
+     }
+     shift(@Rows); # Throw away 'correct option chosen' color
+     $table .= join('',reverse(@Rows));
+     $table .= "</table>\n";
+ }
+ #########################################################
+ #########################################################
+ ##
+ ##   Generic Interface Routines
+ ##
+ #########################################################
+ #########################################################
  sub CreateInterface {
      ##
      ## Environment variable initialization
-     if (! exists$ENV{'form.AnalyzeBy'}) {
+     if (! exists$ENV{'form.AnalyzeOver'}) {
-         $ENV{'form.AnalyzeBy'} = 'Tries';
+         $ENV{'form.AnalyzeOver'} = 'Tries';
      }
      ##
      ## Build the menu
      my $Str = '';
+     $Str .= &Apache::lonhtmlcommon::breadcrumbs
+         (undef,'Detailed Problem Analysis');
      $Str .= '<table cellspacing="5">'."\n";
      $Str .= '<tr>';
      $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
      $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';
-     $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';
+ #    $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';
-     $Str .= '<td align="center"><b>'.&mt('Analyze By').'</b></td>';
+     $Str .= '<td align="center">&nbsp;</td>';
      $Str .= '</tr>'."\n";
-     #
+     ##
+     ##
      $Str .= '<tr><td align="center">'."\n";
      $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
      $Str .= '</td>';
- Line 282  sub CreateInterface {
+ Line 1362  sub CreateInterface {
      $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
      $Str .= '</td>';
      #
-     $Str .= '<td align="center">';
+ #    $Str .= '<td align="center">';
      my $only_seq_with_assessments = sub {
          my $s=shift;
          if ($s->{'num_assess'} < 1) {
- Line 291  sub CreateInterface {
+ Line 1371  sub CreateInterface {
              return 1;
          }
      };
-     $Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,
+     &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,
                                                $only_seq_with_assessments);
-     $Str .= '</td>';
+     ##
-     #
+     ##
      $Str .= '<td>';
-     $Str .='<input type="radio" name="AnalyzeBy" value="Tries" ';
+     my $analyze_selector = '<select name="AnalyzeOver" >';
-     if ($ENV{'form.AnalyzeBy'} eq 'Tries') {
+     $analyze_selector .= '<option value="Tries" ';
-         $Str .= 'checked ';
+     if (! exists($ENV{'form.AnalyzeOver'}) ||
-     }
+         $ENV{'form.AnalyzeOver'} eq 'Tries'){
-     $Str .= '>'.&mt('Tries').'<br />';
+         # Default to Tries
-     $Str .='<input type="radio" name="AnalyzeBy" value="Time" ';
+         $analyze_selector .= ' selected ';
-     if ($ENV{'form.AnalyzeBy'} eq 'Time') {
-         $Str .= 'checked ';
      }
-     $Str .= '>'.&mt('Time').'<br />';
+     $analyze_selector .= '>'.&mt('Tries').'</option>';
+     $analyze_selector .= '<option value="Time" ';
+     $analyze_selector .= ' selected ' if ($ENV{'form.AnalyzeOver'} eq 'Time');
+     $analyze_selector .= '>'.&mt('Time').'</option>';
+     $analyze_selector .= '</select>';
+     $Str .= '<nobr>'.
+         &mt('Analyze Over [_1] [_2]',
+             $analyze_selector,
+             &Apache::loncommon::help_open_topic('Analysis_Analyze_Over')).
+             '</nobr><br />'.$/;
+     ##
+     my $numplots_selector = '<select name="NumPlots">';
+     if (! exists($ENV{'form.NumPlots'})
+         || $ENV{'form.NumPlots'} < 1
+         || $ENV{'form.NumPlots'} > 20) {
+         $ENV{'form.NumPlots'} = 5;
+     }
+     foreach my $i (1,2,3,4,5,6,7,8,10,15,20) {
+         $numplots_selector .= '<option value="'.$i.'" ';
+         if ($ENV{'form.NumPlots'} == $i) { $numplots_selector.=' selected '; }
+         $numplots_selector .= '>'.$i.'</option>';
+     }
+     $numplots_selector .= '</select></nobr><br />';
+     $Str .= '<nobr><label>'.&mt('Number of Plots [_1]',$numplots_selector).
+         '</label></nobr>';
+     ##
+     $Str .= '<nobr><label>'.&mt('Status: [_1]',
+                                  '<input type="text" '.
+                                  'name="stats_status" size="60" value="" />'
+                                  ).
+                     '</label></nobr>';
      $Str .= '</td>';
-     #
+     ##
+     ##
      $Str .= '</tr>'."\n";
      $Str .= '</table>'."\n";
-     $Str .= '<input type="submit" name="ProblemAnalysis" value="'.
-         &mt('Analyze Problem').'" />';
-     $Str .= '&nbsp;'x5;
-     $Str .= '<input type="submit" name="ClearCache" value="'.
-         &mt('Clear Caches').'" />';
-     $Str .= '&nbsp;'x5;
-     return ($Str);
- }
- sub OptionResponseProblemSelector {
-     my $Str;
-     $Str = "\n<table>\n";
-     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
-         next if ($seq->{'num_assess'}<1);
-         my $seq_str = '';
-         foreach my $res (@{$seq->{'contents'}}) {
- #            &Apache::lonnet::logthis('checking '.$res->{'title'});
-             next if ($res->{'type'} ne 'assessment');
-             foreach my $part (@{$res->{'parts'}}) {
-                 my $partdata = $res->{'partdata'}->{$part};
-                 if (! exists($partdata->{'option'}) ||
-                     $partdata->{'option'} == 0) {
-                     next;
-                 }
-                 for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){
-                     my $respid = $partdata->{'ResponseIds'}->[$i];
-                     my $resptype = $partdata->{'ResponseTypes'}->[$i];
-                     if ($resptype eq 'option') {
-                         my $value = &Apache::lonnet::escape($res->{'symb'}.':'.$part.':'.$respid);
-                         my $checked = '';
-                         if ($ENV{'form.problemchoice'} eq $value) {
-                             $checked = 'checked ';
-                         }
-                         $seq_str .= '<tr><td>'.
-   '<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.
-   '</td><td>'.
-   '<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a> ';
-                         if ($partdata->{'option'} > 1) {
-                             $seq_str .= &mt('response').' '.$respid;
-                         }
-                         $seq_str .= "</td></tr>\n";
-                     }
-                 }
-             }
-         }
-         if ($seq_str ne '') {
-             $Str .= '<tr><td>&nbsp</td><td><b>'.$seq->{'title'}.'</b></td>'.
-                 "</tr>\n".$seq_str;
-         }
-     }
-     $Str .= "</table>\n";
      return $Str;
  }
- sub get_resource_from_symb {
+ #########################################################
-     my ($symb) = @_;
+ #########################################################
-     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
+ ##
-         foreach my $res (@{$seq->{'contents'}}) {
+ ##              Misc Option Response functions
-             if ($res->{'symb'} eq $symb) {
+ ##
-                 return $res;
+ #########################################################
-             }
+ #########################################################
-         }
+ sub get_time_from_row {
+     my ($row) = @_;
+     if (ref($row)) {
+         return $row->[&Apache::loncoursedata::RD_timestamp()];
+     }
+     return undef;
+ }
+ sub get_tries_from_row {
+     my ($row) = @_;
+     if (ref($row)) {
+         return $row->[&Apache::loncoursedata::RD_tries()];
      }
      return undef;
  }
- sub get_problem_data {
+ sub hashify_attempt {
-     my ($url) = @_;
+     my ($row) = @_;
- #    my $Answ=&Apache::lonnet::ssi($URI,('grade_target' => 'analyze',
+     my %attempt;
- #                                  'grade_username' => $sname,
+     $attempt{'tries'}      = $row->[&Apache::loncoursedata::RD_tries()];
- #                                  'grade_domain' => $sdom,
+     $attempt{'submission'} = $row->[&Apache::loncoursedata::RD_submission()];
- #                                  'grade_courseid' => $cid,
+     $attempt{'award'}      = $row->[&Apache::loncoursedata::RD_awarddetail()];
- #                                  'grade_symb' => $symb));
+     $attempt{'timestamp'}  = $row->[&Apache::loncoursedata::RD_timestamp()];
-     my $Answ=&Apache::lonnet::ssi($url,('grade_target' => 'analyze'));
+     return %attempt;
-     (my $garbage,$Answ)=split(/_HASH_REF__/,$Answ,2);
+ }
-     my %Answer;
-     %Answer=&Apache::lonnet::str2hash($Answ);
+ sub Process_OR_Row {
- #    &Apache::lonnet::logthis('keys of %Answer = '.join(', ',(keys(%Answer))));
+     my ($row) = @_;
- #    &Apache::lonnet::logthis('$Answer{parts} = '.
+     my %RowData;
- #                             join(', ',@{$Answer{'parts'}}));
+     my $student_id = $row->[&Apache::loncoursedata::RD_student_id()];
-     my %Partdata;
+     my $award      = $row->[&Apache::loncoursedata::RD_awarddetail()];
-     foreach my $part (@{$Answer{'parts'}}) {
+     my $grading    = $row->[&Apache::loncoursedata::RD_response_eval()];
-         while (my($key,$value) = each(%Answer)) {
+     my $submission = $row->[&Apache::loncoursedata::RD_submission()];
-             next if ($key !~ /^$part/);
+     my $time       = $row->[&Apache::loncoursedata::RD_timestamp()];
-             $key =~ s/^$part\.//;
+     my $tries      = $row->[&Apache::loncoursedata::RD_tries()];
-             if (ref($value) eq 'ARRAY') {
+     return undef if ($award eq 'MISSING_ANSWER');
-                 if ($key eq 'options') {
+     if ($award =~ /(APPROX_ANS|EXACT_ANS)/) {
-                     $Partdata{$part}->{'Options'}=$value;
+         $RowData{'_correct'} = 1;
-                 } elsif ($key eq 'concepts') {
+     }
-                     $Partdata{$part}->{'Concepts'}=$value;
+     $RowData{'_total'} = 1;
-                 } elsif ($key =~ /^concept\.(.*)$/) {
+     my @Foilgrades = split('&',$grading);
-                     my $concept = $1;
+     my @Foilsubs   = split('&',$submission);
-                     foreach my $foil (@$value) {
+     for (my $j=0;$j<=$#Foilgrades;$j++) {
-                         $Partdata{$part}->{$foil}->{'Concept'}=$concept;
+         my ($foilid,$correct)  = split('=',$Foilgrades[$j]);
-                     }
+         $foilid = &Apache::lonnet::unescape($foilid);
-                 }
+         my (undef,$submission) = split('=',$Foilsubs[$j]);
-  #               &Apache::lonnet::logthis($part.' '.$key.' (array) = '.
+         if ($correct) {
-  #                                        join(', ',@$value));
+             $RowData{$foilid}->{'_correct'}++;
-             } else {
+         } else {
-                 $value =~ s/^\s*//g;
+             $submission = &Apache::lonnet::unescape($submission);
-                 $value =~ s/\s*$//g;
+             $RowData{$foilid}->{$submission}++;
-                 if ($key=~ /^foil\.text\.(.*)$/) {
-                     my $foil = $1;
-                     $Partdata{$part}->{'Foiltext'}->{$foil}=$value;
-                 } elsif ($key =~ /^foil\.value\.(.*)$/) {
-                     my $foil = $1;
-                     $Partdata{$part}->{'FoilValues'}->{$foil}=$value;
-                 }
- #                &Apache::lonnet::logthis($part.' '.$key.' = '.$value);
-             }
          }
+         $RowData{$foilid}->{'_total'}++;
      }
+     return %RowData;
- #    my $parts='';
- #    foreach my $elm (@{$Answer{"parts"}}) {
- #        $parts.="$elm,";
- #    }
- #    chop($parts);
- #    my $conc='';
- #    foreach my $elm (@{$Answer{"$parts.concepts"}}) {
- #        $conc.="$elm@";
- #    }
- #    chop($conc);
- #
- #    @Concepts=split(/\@/,$conc);
- #    foreach my $concept (@{$Answer{"$parts.concepts"}}) {
- #        foreach my $foil (@{$Answer{"$parts.concept.$concept"}}) {
- #            $foil_to_concept{$foil} = $concept;
- #            #$ConceptData{$foil} = $Answer{"$parts.foil.value.$foil"};
- #        }
- #    }
- #    return $symb;
-     return %Partdata;
  }
 ;

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

Removed from v.1.28
changed lines
	Added in v.1.90