loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.278, 2011/01/13 17:44:27
+version 1.279, 2011/03/05 20:06:33
  Line 1522  sub previous_tries {
  		) {
                  my $txt_correct = &mt('Correct');
+                 my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};
+                 my $txt_correct = &mt('Correct');
+                 if ($awarded < 1 && $awarded > 0) {
+                     $txt_correct=&mt('Partially correct');
+                 } elsif ($awarded < 1) {
+                     if ($awarded eq '') {
+                         $txt_correct='';
+                     } else {
+                         $txt_correct=&mt('Incorrect');
+                     }
+                 }
  		$message =~ s{(<td.*?>)(.*?)(</td>)}
                               {$1 <strong>$txt_correct</strong>. $3}s;
  	    }