[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.78 and 1.79

version 1.78, 2004/03/12 20:29:48 version 1.79, 2004/03/12 21:06:32
Line 192  sub BuildProblemAnalysisPage { Line 192  sub BuildProblemAnalysisPage {
 #########################################################  #########################################################
 sub NumericalResponseAnalysis {  sub NumericalResponseAnalysis {
     my ($r,$problem,$ProblemData,$Students) = @_;      my ($r,$problem,$ProblemData,$Students) = @_;
       my $c = $r->connection();
     my ($resource,$respid) = ($problem->{'resource'},      my ($resource,$respid) = ($problem->{'resource'},
                               $problem->{'respid'});                                $problem->{'respid'});
     my $analysis_html;      my $analysis_html;
Line 209  sub NumericalResponseAnalysis { Line 210  sub NumericalResponseAnalysis {
     #      #
     # This next call causes all the waiting around that people complain about      # This next call causes all the waiting around that people complain about
     my ($max,$min) = &GetStudentAnswers($r,$problem,$Students);      my ($max,$min) = &GetStudentAnswers($r,$problem,$Students);
       return if ($c->aborted());
     #      #
     # Collate the data      # Collate the data
     my %Data;      my %Data;
Line 312  sub circle { Line 314  sub circle {
   
 sub GetStudentAnswers {  sub GetStudentAnswers {
     my ($r,$problem,$Students) = @_;      my ($r,$problem,$Students) = @_;
       my $c = $r->connection();
     my %Answers;      my %Answers;
     my ($resource,$partid,$respid) = ($problem->{'resource'},      my ($resource,$partid,$respid) = ($problem->{'resource'},
                                       $problem->{'part'},                                        $problem->{'part'},
Line 323  sub GetStudentAnswers { Line 326  sub GetStudentAnswers {
     $r->print("<table>\n");      $r->print("<table>\n");
     $r->rflush();      $r->rflush();
     foreach my $student (@$Students) {      foreach my $student (@$Students) {
           last if ($c->aborted());
         my $sname = $student->{'username'};          my $sname = $student->{'username'};
         my $sdom = $student->{'domain'};          my $sdom = $student->{'domain'};
         my $answer = &Apache::lonstathelpers::analyze_problem_as_student          my $answer = &Apache::lonstathelpers::analyze_problem_as_student
Line 331  sub GetStudentAnswers { Line 335  sub GetStudentAnswers {
                                                  &mt('last student'));                                                   &mt('last student'));
         $student->{'answer'} = $answer;          $student->{'answer'} = $answer;
     }      }
       return if ($c->aborted());
     $r->print("</table>\n");      $r->print("</table>\n");
     $r->rflush();      $r->rflush();
     # close progress window      # close progress window
Removed from v.1.78  
changed lines
  Added in v.1.79

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