[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.79 and 1.80

version 1.79, 2004/03/12 21:06:32 version 1.80, 2004/03/16 16:30:31
Line 160  sub BuildProblemAnalysisPage { Line 160  sub BuildProblemAnalysisPage {
                                        $ProblemData,                                         $ProblemData,
                                        \@Students);                                         \@Students);
             } elsif ($current_problem->{'resptype'} eq 'numerical') {              } elsif ($current_problem->{'resptype'} eq 'numerical') {
 #                if (exists($ENV{'form.ExcelOutput'})) {  
 #                    &Apache::lonstudentsubmissions::prepare_excel_output  
 #                        ($r,$current_problem,$ProblemData,\@Students);  
 #                } else {  
                     &NumericalResponseAnalysis($r,$current_problem,                      &NumericalResponseAnalysis($r,$current_problem,
                                                $ProblemData,\@Students);                                                 $ProblemData,\@Students);
 #                }  
             } else {              } else {
                 $r->print('<h2>This analysis is not supported</h2>');                  $r->print('<h2>This analysis is not supported</h2>');
             }              }
Line 195  sub NumericalResponseAnalysis { Line 190  sub NumericalResponseAnalysis {
     my $c = $r->connection();      my $c = $r->connection();
     my ($resource,$respid) = ($problem->{'resource'},      my ($resource,$respid) = ($problem->{'resource'},
                               $problem->{'respid'});                                $problem->{'respid'});
       $r->print('Response '.$respid.'</br />');
     my $analysis_html;      my $analysis_html;
     my $PerformanceData =       my $PerformanceData = 
         &Apache::loncoursedata::get_response_data          &Apache::loncoursedata::get_response_data
Line 319  sub GetStudentAnswers { Line 315  sub GetStudentAnswers {
     my ($resource,$partid,$respid) = ($problem->{'resource'},      my ($resource,$partid,$respid) = ($problem->{'resource'},
                                       $problem->{'part'},                                        $problem->{'part'},
                                       $problem->{'respid'});                                        $problem->{'respid'});
       # Read in the cache (if it exists) before we start timing things.
       &Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'});
     # Open progress window      # Open progress window
     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin      my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
         ($r,'Student Answer Compilation Status',          ($r,'Student Answer Compilation Status',
          'Student Answer Compilation Progress', scalar(@$Students));           'Student Answer Compilation Progress', scalar(@$Students));
     $r->print("<table>\n");  
     $r->rflush();      $r->rflush();
     foreach my $student (@$Students) {      foreach my $student (@$Students) {
         last if ($c->aborted());          last if ($c->aborted());
Line 335  sub GetStudentAnswers { Line 332  sub GetStudentAnswers {
                                                  &mt('last student'));                                                   &mt('last student'));
         $student->{'answer'} = $answer;          $student->{'answer'} = $answer;
     }      }
       &Apache::lonstathelpers::write_answer_cache();
     return if ($c->aborted());      return if ($c->aborted());
     $r->print("</table>\n");  
     $r->rflush();      $r->rflush();
     # close progress window      # close progress window
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);      &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
Removed from v.1.79  
changed lines
  Added in v.1.80

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