--- loncom/homework/imagechoice.pm	2008/10/13 14:06:47	1.15
+++ loncom/homework/imagechoice.pm	2009/05/11 16:51:22	1.17
@@ -1,4 +1,4 @@
-# $Id: imagechoice.pm,v 1.15 2008/10/13 14:06:47 bisitz Exp $
+# $Id: imagechoice.pm,v 1.17 2009/05/11 16:51:22 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,7 +32,7 @@ use LONCAPA;
 
 sub deletedata {
     my ($id)=@_;
-    &Apache::lonnet::delenv("imagechoice\\.$id\\.coords");
+    &Apache::lonnet::delenv('imagechoice.'.$id.'.coords');
 }
 
 sub closewindow {
@@ -147,7 +147,7 @@ sub getcoord {
     $r->print(<<"END");
 $start_page
 <h3>$heading</h3>
-<form method="POST" action="/adm/imagechoice?token=$id">
+<form method="post" action="/adm/imagechoice?token=$id">
 $nextstage
 <input type="submit" name="cancel" value="$canceltext" />
 <br />