loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.10, 2000/12/04 21:15:33	version 1.11, 2000/12/04 22:08:57
Line 179 sub grade {	Line 179 sub grade {
my ($target) = @_;	my ($target) = @_;
my $id = $Apache::inputtags::part;	my $id = $Apache::inputtags::part;
my $result='';	my $result='';
my $button='<input type="submit" name="submit" value="Submit All Answers">';
my $response='';	my $response='';
if ( $target == 'web' ) {	if ( $target == 'web' ) {
if ( defined $ENV{'form.submit'}) {	if ( defined $ENV{'form.submit'}) {
Line 200 sub grade {	Line 199 sub grade {
$Apache::lonhomework::results{"resource.tries.$id"} =	$Apache::lonhomework::results{"resource.tries.$id"} =
$Apache::lonhomework::history{"resource.tries.$id"} + 1;	$Apache::lonhomework::history{"resource.tries.$id"} + 1;
&Apache::lonxml::debug("final award $finalaward");	&Apache::lonxml::debug("final award $finalaward");
	#if ($showbutton > 0) { $result.=$button }
}	}
if ($showbutton > 0) { $result.=$button }
}	}
return $result;	return $result;
}	}

	sub gradestatus {
	my $button='<input type="submit" name="submit" value="Submit All Answers">';
	return 'Grade Status is Unknown'.$button;
	}
1;	1;
__END__	__END__