--- loncom/homework/imageresponse.pm	2004/02/11 21:59:34	1.47
+++ loncom/homework/imageresponse.pm	2004/02/18 00:23:01	1.48
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # image click response style
 #
-# $Id: imageresponse.pm,v 1.47 2004/02/11 21:59:34 albertel Exp $
+# $Id: imageresponse.pm,v 1.48 2004/02/18 00:23:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -117,22 +117,27 @@ sub prep_image {
     my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"});
     #draws 2 xs on the image at the clicked location
     #one in white and then one in red on top of the one in white
-    if (defined($x) && defined($y)) {
+    if (defined($x) && $x=~/\S/ && defined($y) && $y =~/\S/) {
 	$x{"cgi.$id.LINECOUNT"}=4;
 	my $length = 6;
 	my $width = 1;
 	my $extrawidth = 2;
+	my $xmin=($x-$length);
+	my $xmax=($x+$length); 
+	my $ymin=($y-$length);
+	my $ymax=($y+$length);
+
 	$x{"cgi.$id.LINE0"}=
-	    join(':',(($x-$length),($y-$length),($x+$length),($y+$length),
+	    join(':',(($xmin),($ymin),($xmax),($ymax),
 		      "FFFFFF",($width+$extrawidth)));
 	$x{"cgi.$id.LINE1"}=
-	    join(':',(($x-$length),($y+$length),($x+$length),($y-$length),
+	    join(':',(($xmin),($ymax),($xmax),($ymin),
 		      "FFFFFF",($width+$extrawidth)));
 	$x{"cgi.$id.LINE2"}=
-	    join(':',(($x-$length),($y-$length),($x+$length),($y+$length),
+	    join(':',(($xmin),($ymin),($xmax),($ymax),
 		      "FF0000",($width)));
 	$x{"cgi.$id.LINE3"}=
-	    join(':',(($x-$length),($y+$length),($x+$length),($y-$length),
+	    join(':',(($xmin),($ymax),($xmax),($ymin),
 		      "FF0000",($width)));
     }
     if ($mode eq 'answer') {
@@ -611,6 +616,7 @@ sub end_polygon {
 	$target eq 'analyze') {
 	my $name = $Apache::imageresponse::curname;
 	my $area = &Apache::lonxml::endredirection;
+	$area=~s/\s*//g;
 	&Apache::lonxml::debug("out is $area for $name");
 	if ( $Apache::imageresponse::conceptgroup
 	     && !&Apache::response::showallfoils()) {