--- loncom/homework/inputtags.pm	2007/04/16 23:15:48	1.222
+++ loncom/homework/inputtags.pm	2007/04/18 00:32:02	1.223
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.222 2007/04/16 23:15:48 albertel Exp $
+# $Id: inputtags.pm,v 1.223 2007/04/18 00:32:02 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1106,7 +1106,7 @@ sub get_grade_messages {
 }
 
 sub gradestatus {
-    my ($id,$target) = @_;
+    my ($id,$target,$no_previous) = @_;
     my $showbutton = 1;
     my $message = '';
     my $latemessage = '';
@@ -1145,7 +1145,13 @@ sub gradestatus {
 	if ($target eq 'tex') {
 	    return $button.' \vskip 0 mm '.$output.' ';
 	} 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;
 	}
     }
 }
@@ -1190,7 +1196,7 @@ sub previous_tries {
 	
 
 	$output.='<tr class="'.$class.'">';
-	$output.='<td align ="center">'.$count.'</td>';
+	$output.='<td align="center">'.$count.'</td>';
 	$output.=$message;
 
 	foreach my $resid (@Apache::inputtags::response) {