[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.8 and 1.10

version 1.8, 2004/01/08 19:18:50 version 1.10, 2004/01/19 21:31:08
Line 33  use Apache::loncommon(); Line 33  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::loncoursedata();  use Apache::loncoursedata();
 use Apache::lonstatistics;  use Apache::lonstatistics;
   use Apache::lonstathelpers;
 use Apache::lonlocal;  use Apache::lonlocal;
 use HTML::Entities();  use HTML::Entities();
 use Time::Local();  use Time::Local();
Line 50  my @SubmitButtons = ( Line 51  my @SubmitButtons = (
                        text => 'Choose a different resource' },                         text => 'Choose a different resource' },
                      );                       );
   
 sub render_resource {  
     my ($resource) = @_;  
     ##  
     ## Render the problem  
     my $base;  
     ($base,undef) = ($resource->{'src'} =~ m|(.*/)[^/]*$|);  
     $base = "http://".$ENV{'SERVER_NAME'}.$base;  
     my $rendered_problem =   
         &Apache::lonnet::ssi_body($resource->{'src'});  
     $rendered_problem =~ s/<\s*form\s*/<nop /g;  
     $rendered_problem =~ s|(<\s*/form\s*>)|<\/nop>|g;  
     return '<table bgcolor="ffffff"><tr><td>'.  
         '<base href="'.$base.'" />'.  
         $rendered_problem.  
         '</td></tr></table>';  
 }  
   
 sub BuildSubmissionTimePage {  sub BuildSubmissionTimePage {
     my ($r,$c)=@_;      my ($r,$c)=@_;
     #      #
Line 131  sub BuildSubmissionTimePage { Line 115  sub BuildSubmissionTimePage {
             $r->print('<h1>'.$resource->{'title'}.'</h1>');              $r->print('<h1>'.$resource->{'title'}.'</h1>');
             $r->print('<h3>'.$resource->{'src'}.'</h3>');              $r->print('<h3>'.$resource->{'src'}.'</h3>');
             $r->rflush();              $r->rflush();
             $r->print(&render_resource($resource));              $r->print(&Apache::lonstathelpers::render_resource($resource));
             $r->rflush();              $r->rflush();
             $r->print(&analyze_times($r,$resource,\@Students,$part));              $r->print(&analyze_times($r,$resource,\@Students,$part));
         }          }
Line 171  sub analyze_times { Line 155  sub analyze_times {
     my $SubData = &Apache::loncoursedata::get_response_time_data      my $SubData = &Apache::loncoursedata::get_response_time_data
         ($students,$resource->{'symb'},$part);          ($students,$resource->{'symb'},$part);
     if (! defined($SubData) || ! ref($SubData)) {      if (! defined($SubData) || ! ref($SubData)) {
         $html.= '<h2>There is no submission data for this resource</h2>';          $html.= '<h2>There is no submission data for this problem</h2>';
         return $html;          return $html;
     }      }
     my $NumSub = scalar(@{$SubData});      my $NumSub = scalar(@{$SubData});
     if (! @{$SubData}) {      if (! @{$SubData}) {
         $html.= '<h2>There is no submission data for this resource</h2>';          $html.= '<h2>There is no submission data for this problem</h2>';
         return $html;          return $html;
     }      }
     # Process the data      # Process the data
Removed from v.1.8  
changed lines
  Added in v.1.10

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