--- loncom/interface/lonchatfetch.pm 2004/06/27 17:36:57 1.14
+++ loncom/interface/lonchatfetch.pm 2005/02/17 08:29:42 1.15
@@ -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.15 2005/02/17 08:29:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -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