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

Diff for /loncom/interface/statistics/lonsubmissiontimeanalysis.pm between versions 1.20 and 1.22

version 1.20, 2005/03/08 17:39:35 version 1.22, 2005/03/14 20:28:22
Line 37  use Apache::lonstathelpers; Line 37  use Apache::lonstathelpers;
 use Apache::lonlocal;  use Apache::lonlocal;
 use HTML::Entities();  use HTML::Entities();
 use Time::Local();  use Time::Local();
 use Spreadsheet::WriteExcel();  
   
 my $plotcolors = ['#33ff00',   my $plotcolors = ['#33ff00', 
                   '#ff33cc', '#990000', '#aaaa66', '#663399', '#ff9933',                    '#ff33cc', '#990000', '#aaaa66', '#663399', '#ff9933',
Line 128  sub BuildSubmissionTimePage { Line 127  sub BuildSubmissionTimePage {
         } else {          } else {
             $r->print('<h1>'.$resource->compTitle.'</h1>');              $r->print('<h1>'.$resource->compTitle.'</h1>');
             $r->print('<h3>'.$resource->src.'</h3>');              $r->print('<h3>'.$resource->src.'</h3>');
               $r->print('<h4>'.
                    &Apache::lonstatistics::section_and_enrollment_description().
                         '</h4>');
             $r->rflush();              $r->rflush();
             $r->print(&Apache::lonstathelpers::render_resource($resource));              $r->print(&Apache::lonstathelpers::render_resource($resource));
             $r->print('<br />');              $r->print('<br />');
Line 170  sub analyze_times { Line 172  sub analyze_times {
     my $html; # holds results of analysis      my $html; # holds results of analysis
     # Get the data      # Get the data
     my $SubData = &Apache::loncoursedata::get_response_time_data      my $SubData = &Apache::loncoursedata::get_response_time_data
         (\@Apache::lonstatistics::SelectedSections,          ([&Apache::lonstatistics::get_selected_sections()],
          $Apache::lonstatistics::enrollment_status,           $Apache::lonstatistics::enrollment_status,
          $symb,$part);           $symb,$part);
     if (! defined($SubData) || ! ref($SubData)) {      if (! defined($SubData) || ! ref($SubData)) {
Removed from v.1.20  
changed lines
  Added in v.1.22

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