--- loncom/interface/statistics/lonproblemanalysis.pm	2004/03/12 21:06:32	1.79
+++ loncom/interface/statistics/lonproblemanalysis.pm	2004/03/16 16:30:31	1.80
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.79 2004/03/12 21:06:32 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.80 2004/03/16 16:30:31 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -160,13 +160,8 @@ sub BuildProblemAnalysisPage {
                                        $ProblemData,
                                        \@Students);
             } 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,
                                                $ProblemData,\@Students);
-#                }
             } else {
                 $r->print('<h2>This analysis is not supported</h2>');
             }
@@ -195,6 +190,7 @@ sub NumericalResponseAnalysis {
     my $c = $r->connection();
     my ($resource,$respid) = ($problem->{'resource'},
                               $problem->{'respid'});
+    $r->print('Response '.$respid.'</br />');
     my $analysis_html;
     my $PerformanceData = 
         &Apache::loncoursedata::get_response_data
@@ -319,11 +315,12 @@ sub GetStudentAnswers {
     my ($resource,$partid,$respid) = ($problem->{'resource'},
                                       $problem->{'part'},
                                       $problem->{'respid'});
+    # Read in the cache (if it exists) before we start timing things.
+    &Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'});
     # Open progress window
     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
         ($r,'Student Answer Compilation Status',
          'Student Answer Compilation Progress', scalar(@$Students));
-    $r->print("<table>\n");
     $r->rflush();
     foreach my $student (@$Students) {
         last if ($c->aborted());
@@ -335,8 +332,8 @@ sub GetStudentAnswers {
                                                  &mt('last student'));
         $student->{'answer'} = $answer;
     }
+    &Apache::lonstathelpers::write_answer_cache();
     return if ($c->aborted());
-    $r->print("</table>\n");
     $r->rflush();
     # close progress window
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);