[LON-CAPA-cvs] cvs: loncom /homework imageresponse.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 09 Jun 2003 22:29:46 -0000
albertel Mon Jun 9 18:29:46 2003 EDT
Modified files:
/loncom/homework imageresponse.pm
Log:
- fixes submitting an answer when not really doing so (part of #1678)
Index: loncom/homework/imageresponse.pm
diff -u loncom/homework/imageresponse.pm:1.28 loncom/homework/imageresponse.pm:1.29
--- loncom/homework/imageresponse.pm:1.28 Tue May 6 11:48:55 2003
+++ loncom/homework/imageresponse.pm Mon Jun 9 18:29:45 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# image click response style
#
-# $Id: imageresponse.pm,v 1.28 2003/05/06 15:48:55 albertel Exp $
+# $Id: imageresponse.pm,v 1.29 2003/06/09 22:29:45 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -136,7 +136,8 @@
$x=$ENV{"form.HWVAL_$id:$temp.x"};
$y=$ENV{"form.HWVAL_$id:$temp.y"};
&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 $grade="INCORRECT";
foreach my $area (@areas) {