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

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.10 and 1.11

version 1.10, 2004/03/16 16:41:26 version 1.11, 2004/06/04 21:42:18
Line 43  my @SubmitButtons = ({ name => 'PrevProb Line 43  my @SubmitButtons = ({ name => 'PrevProb
                      { name => 'NextProblem',                       { name => 'NextProblem',
                        text => 'Next Problem' },                         text => 'Next Problem' },
                      { name => 'break'},                       { name => 'break'},
                      { name => 'ClearCache',  
                        text => 'Clear Caches' },  
                      { name => 'updatecaches',  
                        text => 'Update Student Data' },  
                      { name => 'SelectAnother',                       { name => 'SelectAnother',
                        text => 'Choose a different Problem' },                         text => 'Choose a different Problem' },
                      { name => 'Generate',                       { name => 'Generate',
Line 75  sub BuildStudentSubmissionsPage { Line 71  sub BuildStudentSubmissionsPage {
         $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 100  sub BuildStudentSubmissionsPage { Line 86  sub BuildStudentSubmissionsPage {
                 $r->print('&nbsp;'x5);                  $r->print('&nbsp;'x5);
             }              }
         }          }
           foreach my $html (@CacheButtonHTML) {
               $r->print($html.('&nbsp;'x5));
           }
         #          #
         $r->print('<hr />');          $r->print('<hr />');
         $r->rflush();          $r->rflush();
Line 170  sub prepare_excel_output { Line 159  sub prepare_excel_output {
               &mt('Preparing Excel spreadsheet of student responses').                &mt('Preparing Excel spreadsheet of student responses').
               '</h2>');                '</h2>');
     #      #
     &Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students);      &Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students,
                                                  'Statistics','stats_status');
     #      #
       $r->print('<script>'.
                 'window.document.Statistics.stats_status.value="'.
                 'Done computing student answers.  Compiling spreadsheet.'.
                 '";</script>');
       $r->rflush();
     my @Columns = ( 'username','domain','attempt','time',      my @Columns = ( 'username','domain','attempt','time',
                     'submission','correct', 'grading','awarded','weight',                      'submission','correct', 'grading','awarded','weight',
                     'score');                      'score');
Line 285  sub prepare_excel_output { Line 280  sub prepare_excel_output {
     $r->print('<p><a href="'.$filename.'">'.      $r->print('<p><a href="'.$filename.'">'.
               &mt('Your Excel spreadsheet.').                &mt('Your Excel spreadsheet.').
               '</a></p>'."\n");                '</a></p>'."\n");
       $r->print('<script>'.
                 'window.document.Statistics.stats_status.value="'.
                 'Done compiling spreadsheet.  See link below to download.'.
                 '";</script>');
       $r->rflush();
   
 }  }
   
 #########################################################  #########################################################
Line 300  sub CreateInterface { Line 301  sub CreateInterface {
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs      $Str .= &Apache::lonhtmlcommon::breadcrumbs
         (undef,'Student Submission Reports');          (undef,'Student Submission Reports');
       $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";
     ##      #
     ##   
     $Str .= '<tr><td align="center">'."\n";      $Str .= '<tr><td align="center">'."\n";
     $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);      $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
     $Str .= '</td>';      $Str .= '</td>';
Line 316  sub CreateInterface { Line 316  sub CreateInterface {
     $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);      $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
     $Str .= '</td>';      $Str .= '</td>';
     #      #
     $Str .= '<td></td>';  
     #  
     my $only_seq_with_assessments = sub {   
         my $s=shift;  
         if ($s->{'num_assess'} < 1) {   
             return 0;  
         } else {   
             return 1;  
         }  
     };  
     ##  
     ##  
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
     #      #
     # We do this to make sure the sequence information is initialized      $Str .= '<nobr>'.&mt('Status: [_1]',
     &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,                           '<input type="text" '.
                                               $only_seq_with_assessments);                           'name="stats_status" size="60" value="" />').
                   '</nobr>'.'</p>';    
     #      ##
     return $Str;      return $Str;
 }  }
   
Removed from v.1.10  
changed lines
  Added in v.1.11

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