loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.21, 2001/01/05 01:14:49	version 1.22, 2001/01/06 16:35:36
Line 255 sub gradestatus {	Line 255 sub gradestatus {

my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
&Apache::lonxml::debug("gradestatus has :$status:");	&Apache::lonxml::debug("gradestatus has :$status:");
if ( $status eq 'CAN_ANSWER' \|\| $status eq 'SHOW_ANSWER' ) {	if ( $status ne 'CLOSED' ) {
my $award = $Apache::lonhomework::history{"resource.$id.award"};	my $award = $Apache::lonhomework::history{"resource.$id.award"};
&Apache::lonxml::debug("Found Award \|$award\|");	&Apache::lonxml::debug("Found Award \|$award\|");
if ( $award ne '' ) {	if ( $award ne '' ) {
Line 270 sub gradestatus {	Line 270 sub gradestatus {
if ( $showbutton ) {	if ( $showbutton ) {
$trystr = "<br></br>Tries $tries/$maxtries";	$trystr = "<br></br>Tries $tries/$maxtries";
}	}
if ( $tries >= $maxtries ) { $showbutton = 0; }	if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}
if ( $status eq 'SHOW_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"><br></br>';
}	}