[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.12 and 1.15

version 1.12, 2004/02/20 16:24:20 version 1.15, 2004/06/04 21:42:19
Line 75  sub BuildSubmissionTimePage { Line 75  sub BuildSubmissionTimePage {
         $r->print('<h2>There are no students in the sections selected</h2>');          $r->print('<h2>There are no students in the sections selected</h2>');
     }      }
     #      #
     &Apache::loncoursedata::clear_internal_caches();      my @CacheButtonHTML = 
     if (exists($ENV{'form.ClearCache'}) ||           &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
         exists($ENV{'form.updatecaches'}) ||  
         (exists($ENV{'form.firstanalysis'}) &&  
          $ENV{'form.firstanalysis'} ne 'no')) {  
         &Apache::lonstatistics::Gather_Full_Student_Data($r);  
     }  
     if (! exists($ENV{'form.firstanalysis'})) {  
         $r->print('<input type="hidden" name="firstanalysis" value="yes" />');  
     } else {  
         $r->print('<input type="hidden" name="firstanalysis" value="no" />');  
     }  
     $r->rflush();      $r->rflush();
     #      #
     if (! exists($ENV{'form.problemchoice'}) ||      if (! exists($ENV{'form.problemchoice'}) ||
Line 102  sub BuildSubmissionTimePage { Line 92  sub BuildSubmissionTimePage {
                       'value="'.&mt($button->{'text'}).'" />');                        'value="'.&mt($button->{'text'}).'" />');
             $r->print('&nbsp;'x5);              $r->print('&nbsp;'x5);
         }          }
           foreach my $html (@CacheButtonHTML) {
               $r->print($html.('&nbsp;'x5));
           }
           $r->rflush();
         #          #
         # Determine which problem we are to analyze          # Determine which problem we are to analyze
         my $current_problem = &Apache::lonstathelpers::get_target_from_id          my $current_problem = &Apache::lonstathelpers::get_target_from_id
Line 136  sub BuildSubmissionTimePage { Line 130  sub BuildSubmissionTimePage {
             $r->print('<h3>'.$resource->{'src'}.'</h3>');              $r->print('<h3>'.$resource->{'src'}.'</h3>');
             $r->rflush();              $r->rflush();
             $r->print(&Apache::lonstathelpers::render_resource($resource));              $r->print(&Apache::lonstathelpers::render_resource($resource));
               $r->print('<br />');
             $r->rflush();              $r->rflush();
             $r->print(&analyze_times($r,$resource,\@Students,              $r->print(&analyze_times($r,$resource,\@Students,
                                      $current_problem->{'part'}));                                       $current_problem->{'part'}));
Line 334  sub CreateInterface { Line 329  sub CreateInterface {
     ## Build the menu      ## Build the menu
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Submission Time Plots');      $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Submission Time Plots');
       $Str .= '<p>';
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
     $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';
     $Str .= '<td align="center">&nbsp;</td>';  
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     ##      ##
     ##       ## 
Line 349  sub CreateInterface { Line 344  sub CreateInterface {
     $Str .= '<td align="center">';      $Str .= '<td align="center">';
     $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);      $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
     $Str .= '</td>';      $Str .= '</td>';
     #  
     my $only_seq_with_assessments = sub {   
         my $s=shift;  
         if ($s->{'num_assess'} < 1) {   
             return 0;  
         } else {   
             return 1;  
         }  
     };  
     &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,  
                                               $only_seq_with_assessments);  
     ##  
     ##  
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
       #
       $Str .= '<nobr>'.&mt('Status: [_1]',
                            '<input type="text" '.
                            'name="stats_status" size="60" value="" />').
               '</nobr>'.'</p>';
       ##
     return $Str;      return $Str;
 }  }
   
Removed from v.1.12  
changed lines
  Added in v.1.15

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