[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.120 and 1.123

version 1.120, 2005/04/07 06:56:24 version 1.123, 2006/01/22 04:10:04
Line 97  sub BuildProblemAnalysisPage { Line 97  sub BuildProblemAnalysisPage {
             $r->print($html.(' 'x5));              $r->print($html.(' 'x5));
         }          }
         #          #
         $r->print(&Apache::lonstathelpers::submission_report_form  
                                                       ('problem_analysis'));          # This is commented out pending actual implementation of 
           # CSV and Excel output.
           #$r->print(&Apache::lonstathelpers::submission_report_form
           #                                              ('problem_analysis'));
         #          #
         $r->print('<hr />');          $r->print('<hr />');
         $r->rflush();          $r->rflush();
Line 159  sub BuildProblemAnalysisPage { Line 162  sub BuildProblemAnalysisPage {
         }          }
         $r->print('<hr />');          $r->print('<hr />');
     } else {      } else {
         $r->print('<input type="submit" name="ProblemAnalysis" value="'.          my $submit_button = '<input type="submit" '.
                   &mt('Analyze Problem').'" />');              'name="ProblemAnalysis" value="'.
               &mt('Analyze Problem').'" />';
           $r->print($submit_button);
         $r->print('&nbsp;'x5);          $r->print('&nbsp;'x5);
         $r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>');          $r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>');
         $r->print(&Apache::lonstathelpers::problem_selector($problem_types));          $r->print(&Apache::lonstathelpers::problem_selector($problem_types,
                                                               $submit_button));
     }      }
 }  }
   
Line 338  sub numerical_plot_percent { Line 344  sub numerical_plot_percent {
     while (my ($ans,$submissions) = each(%$responses)) {      while (my ($ans,$submissions) = each(%$responses)) {
         while (my ($submission,$counts) = each(%$submissions)) {          while (my ($submission,$counts) = each(%$submissions)) {
             my ($correct_count,$incorrect_count) = @$counts;              my ($correct_count,$incorrect_count) = @$counts;
             my $scaled_value = 100*($submission-$ans)/abs($ans);      my $scaled_value = 
    ($ans) ? 100*($submission-$ans)/abs($ans)
          : 0;
             if ($scaled_value < $bins[0]) {              if ($scaled_value < $bins[0]) {
                 $bins[0]=$scaled_value -1;                  $bins[0]=$scaled_value -1;
             }              }
Removed from v.1.120  
changed lines
  Added in v.1.123

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