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

version 1.106, 2004/12/02 21:53:33 version 1.108, 2004/12/06 16:22:21
Line 86  sub BuildProblemAnalysisPage { Line 86  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)';
     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 1176  sub OR_tries_analysis { Line 1176  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 1778  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.108

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