[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.108 and 1.109

version 1.108, 2004/12/06 16:22:21 version 1.109, 2004/12/23 19:57:35
Line 456  sub numerical_classify_responses { Line 456  sub numerical_classify_responses {
             my ($sname,$sdom) = split(':',$subm{'student'});              my ($sname,$sdom) = split(':',$subm{'student'});
             # Note that $subm{'unit'} is modified by the following call              # Note that $subm{'unit'} is modified by the following call
             # We do not use it again but you should be aware just in case.              # We do not use it again but you should be aware just in case.
 #            my ($myunit,$mysub) = ($subm{'unit'},$subm{'submission'});              my ($myunit,$mysub) = ($subm{'unit'},$subm{'submission'});
 #            $myunit = 'm';              my $result = 
 #            # &Apache::lonnet::logthis($myunit);                  &capa::caparesponse_get_real_response($myunit,
 #            my $result =                                                         $mysub,
 #                &capa::caparesponse_get_real_response($myunit,                                                        \$scaled);
 #                                                      $mysub,              next if (! defined($scaled));
 #                                                      \$scaled);              next if ($result ne '6');
 #            # &Apache::lonnet::logthis('  '.$myunit.':'.$subm{'unit'}.              my $submission = $scaled;
 #            #  ' '.$mysub.':'.$subm{'submission'}.'; '.$result);  
 #            next if (! defined($scaled));  
 #            next if ($result ne '6');  
 #            my $submission = $scaled;  
             my $submission = $subm{'submission'};  
             $students{$subm{'student'}}++;              $students{$subm{'student'}}++;
             if (&numerical_submission_is_correct($subm{'award'})) {               if (&numerical_submission_is_correct($subm{'award'})) { 
                 &Apache::lonnet::logthis('correct:'.$submission.':'.$subm{'correct'});                  &Apache::lonnet::logthis('correct:'.$submission.':'.$subm{'correct'});
Removed from v.1.108  
changed lines
  Added in v.1.109

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