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

Diff for /loncom/homework/inputtags.pm between versions 1.221 and 1.223

version 1.221, 2007/04/16 22:50:41 version 1.223, 2007/04/18 00:32:02
Line 1106  sub get_grade_messages { Line 1106  sub get_grade_messages {
 }  }
   
 sub gradestatus {  sub gradestatus {
     my ($id,$target) = @_;      my ($id,$target,$no_previous) = @_;
     my $showbutton = 1;      my $showbutton = 1;
     my $message = '';      my $message = '';
     my $latemessage = '';      my $latemessage = '';
Line 1145  sub gradestatus { Line 1145  sub gradestatus {
  if ($target eq 'tex') {   if ($target eq 'tex') {
     return $button.' \vskip 0 mm '.$output.' ';      return $button.' \vskip 0 mm '.$output.' ';
  } else {   } else {
     return '<table><tr><td>'.$button.'</td>'.$output.'<td>'.&previous_tries($id,$target).'</td></tr></table>';      $output =
    '<table><tr><td>'.$button.'</td>'.$output;
       if (!$no_previous) {
    $output.='<td>'.&previous_tries($id,$target).'</td>';
       }
       $output.= '</tr></table>';
       return $output;
  }   }
     }      }
 }  }
Line 1190  sub previous_tries { Line 1196  sub previous_tries {
   
   
  $output.='<tr class="'.$class.'">';   $output.='<tr class="'.$class.'">';
  $output.='<td align ="center">'.$count.'</td>';   $output.='<td align="center">'.$count.'</td>';
  $output.=$message;   $output.=$message;
   
  foreach my $resid (@Apache::inputtags::response) {   foreach my $resid (@Apache::inputtags::response) {
Line 1211  sub previous_tries { Line 1217  sub previous_tries {
     }      }
     return if ($output eq '');      return if ($output eq '');
     my $headers =       my $headers = 
  '<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt(' ').   '<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').
  '</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.   '</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.
  &mt('Submitted Answer').'</th>';   &mt('Submitted Answer').'</th>';
     $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';      $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';
Removed from v.1.221  
changed lines
  Added in v.1.223

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