[LON-CAPA-cvs] cvs: loncom /homework imageresponse.pm

[albertel]

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) {