[BACK]Return to loncorrectproblemplot.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/loncorrectproblemplot.pm between versions 1.25 and 1.28.2.1

version 1.25, 2011/01/17 00:19:41 version 1.28.2.1, 2012/05/12 03:07:46
Line 31  use strict; Line 31  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonquickgrades();  
 use Apache::loncoursedata();  use Apache::loncoursedata();
 use Apache::lonstatistics;  use Apache::lonstatistics;
 use Apache::lonstathelpers;  use Apache::lonstathelpers;
Line 70  sub BuildCorrectProblemsPage { Line 69  sub BuildCorrectProblemsPage {
     &Apache::lonstatistics::PrepareClasslist();          &Apache::lonstatistics::PrepareClasslist();    
           
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot'));
     &Apache::lonquickgrades::startGradeScreen($r,'statistics');  
     #      #
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
Line 127  sub BuildCorrectProblemsPage { Line 125  sub BuildCorrectProblemsPage {
                 }                  }
             }              }
         }          }
         $r->print('<h4>'.          $r->print('<p>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</p>');
         my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();          my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
         if (defined($starttime) || defined($endtime)) {          if (defined($starttime) || defined($endtime)) {
             # Inform the user what the time limits on the data are.              # Inform the user what the time limits on the data are.
Line 146  sub BuildCorrectProblemsPage { Line 144  sub BuildCorrectProblemsPage {
              $starttime,$endtime);               $starttime,$endtime);
         $r->print(&AnalyzeScoreData($score_data,$title,$total_weights));          $r->print(&AnalyzeScoreData($score_data,$title,$total_weights));
     } else {      } else {
         $r->print('<h3>'.&mt('Make a sequence selection from the "Sequences and Folders" menu and hit "Create Plot" to begin').'</h3>');          $r->print('<p>'.&mt('Make a sequence selection from the "Sequences and Folders" menu and hit "Create Plot" to begin').'</p>');
     }      }
     return;      return;
 }  }
Line 170  sub AnalyzeScoreData { Line 168  sub AnalyzeScoreData {
     #      #
     # Basic check first      # Basic check first
     if (ref($score_data) ne 'ARRAY' || @$score_data < 1) {      if (ref($score_data) ne 'ARRAY' || @$score_data < 1) {
         return '<h2>'.&mt('There is no data to plot').'</h2>';          return '<p class="LC_warning">'.&mt('There is no data to plot').'</p>';
     }      }
     #      #
     # Determine which bins to use      # Determine which bins to use
Line 192  sub AnalyzeScoreData { Line 190  sub AnalyzeScoreData {
         '<p>'.          '<p>'.
         &mt('Problem weights do not reflect individual student settings.')          &mt('Problem weights do not reflect individual student settings.')
         .'</p>'.          .'</p>'.
         '<table border="1">'."\n".'<tr><th>Range</th><th>Count</th></tr>'."\n";          &Apache::loncommon::start_data_table().
           &Apache::loncommon::start_data_table_header_row().
           '<th>'.&mt('Range').'</th><th>'.&mt('Count').'</th>'.
           &Apache::loncommon::end_data_table_header_row();
     my $sum = 0;      my $sum = 0;
     while (my $bin = shift(@Bins)) {      while (my $bin = shift(@Bins)) {
         push (@Xdata,$bin->{'start'});          push (@Xdata,$bin->{'start'});
Line 201  sub AnalyzeScoreData { Line 202  sub AnalyzeScoreData {
         if ($bin->{'count'} > $max) {          if ($bin->{'count'} > $max) {
             $max = $bin->{'count'};              $max = $bin->{'count'};
         }          }
         $Str.= '<tr><td>'.$bin->{'start'}.' - '.$bin->{'end'}.'</td>'.          $Str.= &Apache::loncommon::start_data_table_row().
             '<td>'.$bin->{'count'}.'</td></tr>'."\n";              '<td>'.$bin->{'start'}.' - '.$bin->{'end'}.'</td>'.
               '<td>'.$bin->{'count'}.'</td>'.
               &Apache::loncommon::end_data_table_row().'<br>';
     }      }
     # scale max to an integer.      # scale max to an integer.
     $max = 5*(int($max/5)+1);      $max = 5*(int($max/5)+1);
     $Str .= "</table><br />\n";      $Str .= &Apache::loncommon::end_data_table()."<br />\n";
     $title = &HTML::Entities::decode($title);      $title = &HTML::Entities::decode($title);
     $Str = "\n<p>".      $Str = "\n<p>".
         &Apache::loncommon::DrawBarGraph($title.' ('.$sum.' students)',          &Apache::loncommon::DrawBarGraph($title.' ('.$sum.' students)',
Line 327  sub CreateInterface { Line 330  sub CreateInterface {
     #      #
     $Str .= &Apache::loncommon::end_data_table_row();      $Str .= &Apache::loncommon::end_data_table_row();
     $Str .= &Apache::loncommon::end_data_table();      $Str .= &Apache::loncommon::end_data_table();
     #  
     $Str .= '<p><span class="LC_nobreak">'  
            .&mt('Status: [_1]',  
                     '<input type="text" name="stats_status"'  
                    .' size="60" value="" readonly="readonly" />')  
            .'</span></p>';  
     $Str .= '</p>';  
     ##      ##
     return $Str;      return $Str;
 }  }
Removed from v.1.25  
changed lines
  Added in v.1.28.2.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.