[LON-CAPA-cvs] cvs: loncom /interface longroupchat.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 18 May 2006 17:58:14 -0000


albertel		Thu May 18 13:58:14 2006 EDT

  Modified files:              
    /loncom/interface	longroupchat.pm 
  Log:
  - sending page headers
  
  
Index: loncom/interface/longroupchat.pm
diff -u loncom/interface/longroupchat.pm:1.6 loncom/interface/longroupchat.pm:1.7
--- loncom/interface/longroupchat.pm:1.6	Wed May 17 21:08:50 2006
+++ loncom/interface/longroupchat.pm	Thu May 18 13:58:14 2006
@@ -26,10 +26,11 @@
 package Apache::longroupchat;
 
 use strict;
+use Apache::Constants qw(:common);
 use Apache::lonnet;
-use Apache::loncommon;
+use Apache::loncommon();
 use Apache::lonlocal;
-use Apache::longroup;
+use Apache::longroup();
 
 sub handler {
     my ($r) = @_;
@@ -48,6 +49,9 @@
         }
     }
 
+    &Apache::loncommon::content_type($r,'text/html');
+    $r->send_http_header;
+    return OK if $r->header_only;
     my $start_page =
 	&Apache::loncommon::start_page($grouptitle,undef,
 				       {'frameset'    => 1,