--- loncom/homework/imageresponse.pm	2004/01/09 23:22:19	1.43
+++ loncom/homework/imageresponse.pm	2004/01/14 22:59:18	1.44
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # image click response style
 #
-# $Id: imageresponse.pm,v 1.43 2004/01/09 23:22:19 albertel Exp $
+# $Id: imageresponse.pm,v 1.44 2004/01/14 22:59:18 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -489,9 +489,10 @@ sub start_rectangle {
 	my $coords=&Apache::lonxml::get_all_text('/rectangle',$parser);
 	$result=&Apache::edit::tag_start($target,$token,'Rectangle').
 	    &Apache::edit::editline($token->[1],$coords,'Coordinate Pairs',40).
-	    &Apache::edit::entercoordpair(undef,'textnode').
+	    &Apache::edit::entercoord(undef,'textnode',undef,undef,'box').
 	    &Apache::edit::end_row();
     } elsif ($target eq "modified") {
+	&Apache::edit::deletecoorddata();
 	$result=$token->[4].&Apache::edit::modifiedfield('/rectangle',$parser);
     }
     return $result;
@@ -540,7 +541,7 @@ sub start_polygon {
 	my $coords=&Apache::lonxml::get_all_text('/polygon',$parser);
 	$result=&Apache::edit::tag_start($target,$token,'Polygon').
 	    &Apache::edit::editline($token->[1],$coords,'Coordinate list',40).
-	    &Apache::edit::entercoordpolygon(undef,'textnode').
+	    &Apache::edit::entercoord(undef,'textnode',undef,undef,'polygon').
 	    &Apache::edit::end_row();
     } elsif ($target eq "modified") {
 	$result=$token->[4].&Apache::edit::modifiedfield('/polygon',$parser);