loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2003/05/06 15:48:55	version 1.29, 2003/06/09 22:29:45
Line 136 sub gradefoils {	Line 136 sub gradefoils {
$x=$ENV{"form.HWVAL_$id:$temp.x"};	$x=$ENV{"form.HWVAL_$id:$temp.x"};
$y=$ENV{"form.HWVAL_$id:$temp.y"};	$y=$ENV{"form.HWVAL_$id:$temp.y"};
&Apache::lonxml::debug("Got a x of $x and a y of $y for $name");	&Apache::lonxml::debug("Got a x of $x and a y of $y for $name");
if (defined(@{ $Apache::response::foilgroup{"$name.area"} })) {	if (defined($x) && defined($y) &&
	defined(@{ $Apache::response::foilgroup{"$name.area"} })) {
my @areas = @{ $Apache::response::foilgroup{"$name.area"} };	my @areas = @{ $Apache::response::foilgroup{"$name.area"} };
my $grade="INCORRECT";	my $grade="INCORRECT";
foreach my $area (@areas) {	foreach my $area (@areas) {