[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.106 and 1.110

version 1.106, 2004/12/02 21:53:33 version 1.110, 2004/12/23 19:58:06
Line 87  sub BuildProblemAnalysisPage { Line 87  sub BuildProblemAnalysisPage {
     # Support for numerical and radio response isn't complete enough to      # Support for numerical and radio response isn't complete enough to
     # include in 1.2 release.      # include in 1.2 release.
     # my $problem_types = '(option|radiobutton|numerical)';      # my $problem_types = '(option|radiobutton|numerical)';
     my $problem_types = '.';#(option)';      my $problem_types = '(option|radiobutton)';
       # my $problem_types = '.';#(option)';
     if (exists($ENV{'form.problemchoice'}) &&       if (exists($ENV{'form.problemchoice'}) && 
         ! exists($ENV{'form.SelectAnother'})) {          ! exists($ENV{'form.SelectAnother'})) {
         foreach my $button (@SubmitButtons) {          foreach my $button (@SubmitButtons) {
Line 456  sub numerical_classify_responses { Line 457  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 1176  sub OR_tries_analysis { Line 1172  sub OR_tries_analysis {
     my $mintries = 1;      my $mintries = 1;
     my $maxtries = $ENV{'form.NumPlots'};      my $maxtries = $ENV{'form.NumPlots'};
     my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);      my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
       if (! defined($Concepts)) {
           $Concepts = [];
       }
     my %response_data = &OR_analyze_by_tries($r,$PerformanceData,      my %response_data = &OR_analyze_by_tries($r,$PerformanceData,
                                                      $mintries,$maxtries);                                                       $mintries,$maxtries);
     my $analysis = '';      my $analysis = '';
Line 1775  sub OR_build_response_data_worksheet { Line 1774  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.106  
changed lines
  Added in v.1.110

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