[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.528.2.5 and 1.528.2.10

version 1.528.2.5, 2008/12/24 12:33:28 version 1.528.2.10, 2009/01/16 02:36:30
Line 2135  KEYWORDS Line 2135  KEYWORDS
     ' )</span>&nbsp; &nbsp;';      ' )</span>&nbsp; &nbsp;';
  my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);   my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
  if (@$files) {   if (@$files) {
     $lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain virusses').'</span><br />';      $lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain viruses').'</span><br />';
     my $file_counter = 0;      my $file_counter = 0;
     foreach my $file (@$files) {      foreach my $file (@$files) {
         $file_counter++;          $file_counter++;
Line 2358  sub get_last_submission { Line 2358  sub get_last_submission {
  $$returnhash{$version.':keys'}))) {   $$returnhash{$version.':keys'}))) {
  $lasthash{$key}=$$returnhash{$version.':'.$key};   $lasthash{$key}=$$returnhash{$version.':'.$key};
  $timestamp =    $timestamp = 
     scalar(localtime($$returnhash{$version.':timestamp'}));      &Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'});
     }      }
  }   }
  foreach my $key (keys(%lasthash)) {   foreach my $key (keys(%lasthash)) {
Line 6214  sub scantron_validate_file { Line 6214  sub scantron_validate_file {
  }   }
     }      }
     if (!$stop) {      if (!$stop) {
  my $warning=&scantron_warning_screen('Start Grading');          my $warning=&scantron_warning_screen('Start Grading');
  $r->print(&mt('Validation process complete.').'<br />          $r->print(&mt('Validation process complete.').'<br />'.
 '.$warning.'                    $warning.
 <input type="submit" name="submit" value="'.&mt('Start Grading').'" />                    &mt('Perform verification for each student after storage of submissions?').
 <input type="hidden" name="command" value="scantron_process" />                    '&nbsp;<span class="LC_nobreak"><label>'.
 ');                    '<input type="radio" name="verifyrecord" value="1" />'.&mt('Yes').'</label>'.
                     ('&nbsp;'x3).'<label>'.
                     '<input type="radio" name="verifyrecord" value="0" checked="checked" />'.&mt('No').
                     '</label></span><br />'.
                     &mt('Grading will take longer if you use verification.').'<br />'.                  &mt("Alternatively, the 'Review scantron data' utility (see grading menu) can be used for all students after grading is complete.").'<br /><br />'.
                     '<input type="submit" name="submit" value="'.&mt('Start Grading').'" />'.
                     '<input type="hidden" name="command" value="scantron_process" />'."\n");
     } else {      } else {
  $r->print('<input type="hidden" name="command" value="scantron_validate" />');          $r->print('<input type="hidden" name="command" value="scantron_validate" />');
  $r->print("<input type='hidden' name='validatepass' value='".$currentphase."' />");          $r->print("<input type='hidden' name='validatepass' value='".$currentphase."' />");
     }      }
     if ($stop) {      if ($stop) {
  if ($validate_phases[$currentphase] eq 'sequence') {   if ($validate_phases[$currentphase] eq 'sequence') {
Line 7705  sub grade_student_bubbles { Line 7710  sub grade_student_bubbles {
                     'grade_domain'  => $udom,                      'grade_domain'  => $udom,
                     'grade_courseid'=> $env{'request.course.id'},                      'grade_courseid'=> $env{'request.course.id'},
                     'grade_symb'    => $resource->symb(),                      'grade_symb'    => $resource->symb(),
                     'code'          => $scancode);                      'CODE'          => $scancode);
         my $result=&ssi_with_retries($resource->src(),$ssi_retries,%form);          my $result=&ssi_with_retries($resource->src(),$ssi_retries,%form);
         return 'ssi_error' if ($ssi_error);          return 'ssi_error' if ($ssi_error);
         last if (&Apache::loncommon::connection_aborted($r));          last if (&Apache::loncommon::connection_aborted($r));
Line 7933  sub checkscantron_results { Line 7938  sub checkscantron_results {
     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron/Submissions Comparison Status',      my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron/Submissions Comparison Status',
                                     'Progress of Scantron Data/Submission Records Comparison',$count,                                      'Progress of Scantron Data/Submission Records Comparison',$count,
                                     'inline',undef,'checkscantron');                                      'inline',undef,'checkscantron');
     my ($username,$domain,$uname,$started);      my ($username,$domain,$started);
   
     &Apache::grades::scantron_get_maxbubble();  # Need the bubble lines array to parse.      &Apache::grades::scantron_get_maxbubble();  # Need the bubble lines array to parse.
   
Removed from v.1.528.2.5  
changed lines
  Added in v.1.528.2.10

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