[LON-CAPA-cvs] cvs: loncom(version_1_1_X) /homework randomlylabel.pm

[albertel]

albertel		Wed Feb 11 16:52:56 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/homework	randomlylabel.pm 
  Log:
  - hey, lets actually send that http header
  
  
Index: loncom/homework/randomlylabel.pm
diff -u loncom/homework/randomlylabel.pm:1.12 loncom/homework/randomlylabel.pm:1.12.2.1
--- loncom/homework/randomlylabel.pm:1.12	Mon Nov 10 19:39:33 2003
+++ loncom/homework/randomlylabel.pm	Wed Feb 11 16:52:56 2004
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # randomlabel.png: composite together text and images into 1 image
 #
-# $Id: randomlylabel.pm,v 1.12 2003/11/11 00:39:33 albertel Exp $
+# $Id: randomlylabel.pm,v 1.12.2.1 2004/02/11 21:52:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,6 +60,7 @@
 sub handler {
     my $r = shift;
     $r->content_type('image/png');
+    $r->send_http_header;
     my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'});
     my $image=&get_image(&Apache::lonnet::unescape($ENV{"cgi.$id.BGIMG"}),0);
     if (! defined($image)) {