--- loncom/interface/lonchatfetch.pm 2004/06/27 17:36:57 1.14
+++ loncom/interface/lonchatfetch.pm 2005/02/17 08:50:20 1.16
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.14 2004/06/27 17:36:57 www Exp $
+# $Id: lonchatfetch.pm,v 1.16 2005/02/17 08:50:20 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,7 +50,7 @@ sub handler {
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
if ($loaderror) { return $loaderror; }
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK if $r->header_only;
@@ -86,7 +86,8 @@ sub handler {
my $bottomid='';
unless ($ENV{'form.lastid'}) {
$include=1;
- $newstuff='';
+ my $html=&Apache::lonxml::xmlbegin();
+ $newstuff=$html.'';
}
my @participants=();
foreach (@entries) {
@@ -149,8 +150,9 @@ sub handler {
}
}
my $participant_output=join('
',sort @participants);
+ my $html=&Apache::lonxml::xmlbegin();
$r->print(<
+$html
The LearningOnline Network with CAPA