--- loncom/homework/imageresponse.pm	2001/08/06 17:37:12	1.10
+++ loncom/homework/imageresponse.pm	2001/08/06 17:39:37	1.11
@@ -273,7 +273,7 @@ sub start_rectangle {
     return '';
 }
 
-# ============================================================= Grade rectangle
+# ====================================== Grade rectangle (return scalar string)
 sub grade_rectangle {
     my ($spec,$x,$y) = @_;
     &Apache::lonxml::debug("Spec is $spec");
@@ -292,19 +292,20 @@ sub grade_rectangle {
 
 # =============================================================== End rectangle
 sub end_rectangle {
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
-  if ($target eq 'web' || $target eq 'grade') {
-    my $name = $Apache::imageresponse::curname;
-    my $area = &Apache::lonxml::endredirection;
-    &Apache::lonxml::debug("out is $area for $name");
-    if ( $Apache::imageresponse::conceptgroup ) {
-      push @{ $Apache::response::conceptgroup{"$name.area"} },
-           "rectangle:$area";
-    } else {
-      push @{ $Apache::response::foilgroup{"$name.area"} },"rectangle:$area";
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+    if ($target eq 'web' || $target eq 'grade') {
+	my $name = $Apache::imageresponse::curname;
+	my $area = &Apache::lonxml::endredirection;
+	&Apache::lonxml::debug("out is $area for $name");
+	if ( $Apache::imageresponse::conceptgroup ) {
+	    push @{ $Apache::response::conceptgroup{"$name.area"} },
+ 	         "rectangle:$area";
+	} else {
+	    push @{ $Apache::response::foilgroup{"$name.area"} },
+	         "rectangle:$area";
+	}
     }
-  }
-  return '';
+    return '';
 }
 
 1;