--- loncom/homework/imagechoice.pm	2004/02/24 00:14:01	1.5
+++ loncom/homework/imagechoice.pm	2005/02/17 09:01:03	1.7
@@ -1,4 +1,4 @@
-# $Id: imagechoice.pm,v 1.5 2004/02/24 00:14:01 albertel Exp $
+# $Id: imagechoice.pm,v 1.7 2005/02/17 09:01:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -217,7 +217,8 @@ sub drawimage {
 
 sub handler {
     my ($r)=@_;
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
+    $r->send_http_header;
     my %data;
     my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'});
     my $filename = &Apache::lonnet::unescape($ENV{"imagechoice.$id.file"});
@@ -230,7 +231,6 @@ sub handler {
     my $type=$ENV{"imagechoice.$id.type"};
     if (defined($ENV{'form.type'})) { $type=$ENV{'form.type'}; }
     my $numcoords=&savecoord($id,$type);
-    &Apache::lonnet::logthis("num coords is $numcoords");
     my $imurl=&drawimage($r,$type,$filename,$id);
     if (($ENV{'form.finish'} eq 'Finish')) {
 	&storedata($r,$type,$imurl,$id);