--- loncom/interface/lonchatfetch.pm	2005/06/06 02:29:46	1.18
+++ loncom/interface/lonchatfetch.pm	2006/03/19 22:48:53	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.18 2005/06/06 02:29:46 albertel Exp $
+# $Id: lonchatfetch.pm,v 1.19 2006/03/19 22:48:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -150,21 +150,19 @@ sub handler {
 	}
     }
     my $participant_output=join('<br />',sort @participants);
-    my $html=&Apache::lonxml::xmlbegin();
+    my $start_page = 
+	&Apache::loncommon::start_page('Chat',undef,
+				       {'redirect'  => [5,"/adm/chatfetch?lastid=$lastid"],
+					'only_body' => 1,});
+    my $end_page = &Apache::loncommon::end_page();
     $r->print(<<ENDDOCUMENT);
-$html
-<head>
-<title>The LearningOnline Network with CAPA</title>
-  <meta HTTP-EQUIV="Refresh" CONTENT="5; url=/adm/chatfetch?lastid=$lastid">
-</head>
-<body bgcolor="#FFFFFF">
-<script>
+$start_page
+<script type="text/javascript">
 parent.chatout.document.writeln('$newstuff');
 parent.chatout.scroll(0,10000000);
 </script>
 $participant_output
-</body>
-</html>
+$end_page
 ENDDOCUMENT
     return OK;
 } 
