loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.25, 2001/01/15 21:44:21	version 1.26, 2001/01/24 17:02:17
Line 261 sub gradestatus {	Line 261 sub gradestatus {
if ( $award ne '' ) {	if ( $award ne '' ) {
&Apache::lonxml::debug('Getting message');	&Apache::lonxml::debug('Getting message');
($showbutton,$message) = &decideoutput($award);	($showbutton,$message) = &decideoutput($award);
	$message="<br /><table bgcolor=\"#aaffaa\"><tr><td>$message</td></tr></table>";
}	}
my $tries = $Apache::lonhomework::history{"resource.$id.tries"};	my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
Line 273 sub gradestatus {	Line 274 sub gradestatus {
}	}
if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}	if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}
if ( $showbutton ) {	if ( $showbutton ) {
$button = '<br></br><input type="submit" name="submit" value="Submit All Answers"><br></br>';	$button = '<br></br><input type="submit" name="submit" value="Submit All Answers">';
}	}
}	}
return $button.$message.$trystr;	return $button.$message.$trystr;