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

version 1.107, 2004/12/03 21:53:59 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'});
Line 1778  sub OR_build_response_data_worksheet { Line 1773  sub OR_build_response_data_worksheet {
             my ($foilid,$correct)  = split('=',$Foilgrades[$j]);              my ($foilid,$correct)  = split('=',$Foilgrades[$j]);
             my (undef,$submission) = split('=',$Foilsubs[$j]);              my (undef,$submission) = split('=',$Foilsubs[$j]);
             $submission = &Apache::lonnet::unescape($submission);              $submission = &Apache::lonnet::unescape($submission);
               $foilid = &Apache::lonnet::unescape($foilid);
             $response_data{$foilid.' submission'}=$submission;              $response_data{$foilid.' submission'}=$submission;
             $response_data{$foilid.' award'}=$correct;              $response_data{$foilid.' award'}=$correct;
         }          }
Removed from v.1.107  
changed lines
  Added in v.1.109

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