Diff for /loncom/interface/statistics/loncorrectproblemplot.pm between versions 1.16 and 1.19

version 1.16, 2005/03/07 20:12:08 version 1.19, 2006/05/01 19:29:13
Line 28 Line 28
 package Apache::loncorrectproblemplot;  package Apache::loncorrectproblemplot;
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::loncoursedata();  use Apache::loncoursedata();
Line 90  sub BuildCorrectProblemsPage { Line 90  sub BuildCorrectProblemsPage {
     $r->rflush();      $r->rflush();
     #      #
     # Determine which problem symbs we are to sum over      # Determine which problem symbs we are to sum over
     if (exists($ENV{'form.CreatePlot'})) {      if (exists($env{'form.CreatePlot'})) {
         my @ProblemSymbs;          my @ProblemSymbs;
         my $total_weights = 0;          my $total_weights = 0;
         my $title = '';          my $title = '';
Line 122  sub BuildCorrectProblemsPage { Line 122  sub BuildCorrectProblemsPage {
                 }                  }
             }              }
         }          }
           $r->print('<h4>'.
                     &Apache::lonstatistics::section_and_enrollment_description().
                     '</h4>');
         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 131  sub BuildCorrectProblemsPage { Line 134  sub BuildCorrectProblemsPage {
         }          }
         &Apache::loncoursedata::populate_weight_table();          &Apache::loncoursedata::populate_weight_table();
         my $score_data = &Apache::loncoursedata::get_student_scores          my $score_data = &Apache::loncoursedata::get_student_scores
             (\@Apache::lonstatistics::SelectedSections,              ([&Apache::lonstatistics::get_selected_sections()],
              \@ProblemSymbs,               \@ProblemSymbs,
              $Apache::lonstatistics::enrollment_status,undef,               $Apache::lonstatistics::enrollment_status,undef,
              $starttime,$endtime);               $starttime,$endtime);
Line 285  sub CreateInterface { Line 288  sub CreateInterface {
     ##      ##
     ## Environment variable initialization      ## Environment variable initialization
     my $Str;      my $Str;
     $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Correct Problems Plot');      $Str .= &Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot');
     $Str .= '<p>';      $Str .= '<p>';
     #      #
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";

Removed from v.1.16  
changed lines
  Added in v.1.19


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