loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.222, 2007/04/16 23:15:48	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) {