[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.2 and 1.4

version 1.2, 2003/10/29 18:59:46 version 1.4, 2003/11/11 22:14:28
Line 69  sub render_resource { Line 69  sub render_resource {
   
 sub BuildSubmissionTimePage {  sub BuildSubmissionTimePage {
     my ($r,$c)=@_;      my ($r,$c)=@_;
       #
       my %Saveable_Parameters = ('Status' => 'scalar',
                                  'Section' => 'array');
       &Apache::loncommon::store_course_settings('submissiontime_analysis',
                                                 \%Saveable_Parameters);
       &Apache::loncommon::restore_course_settings('submissiontime_analysis',
                                                   \%Saveable_Parameters);
       #
       &Apache::lonstatistics::PrepareClasslist();    
       #
     $r->print('<h2>'.&mt('Submission Time Plots').'</h2>');      $r->print('<h2>'.&mt('Submission Time Plots').'</h2>');
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
Line 261  sub analyze_times { Line 271  sub analyze_times {
 sub successful_submission {  sub successful_submission {
     my ($row) = @_;      my ($row) = @_;
     if (ref($row) eq 'ARRAY') {      if (ref($row) eq 'ARRAY') {
         return $row->[1];          return $row->[&Apache::loncoursedata::RT_awarded()];
     }      }
     return undef;      return undef;
     return 0;      return 0;
Line 270  sub successful_submission { Line 280  sub successful_submission {
 sub get_time_from_row {  sub get_time_from_row {
     my ($row) = @_;      my ($row) = @_;
     if (ref($row) eq 'ARRAY') {      if (ref($row) eq 'ARRAY') {
         return $row->[3];          return $row->[&Apache::loncoursedata::RT_timestamp()];
     }       } 
     return undef;      return undef;
 }  }
Line 278  sub get_time_from_row { Line 288  sub get_time_from_row {
 sub get_tries_from_row {  sub get_tries_from_row {
     my ($row) = @_;      my ($row) = @_;
     if (ref($row) eq 'ARRAY') {      if (ref($row) eq 'ARRAY') {
         return $row->[2];          return $row->[&Apache::loncoursedata::RT_tries()];
     }      }
     return undef;      return undef;
 }  }
Removed from v.1.2  
changed lines
  Added in v.1.4

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