--- loncom/interface/lonchatfetch.pm	2005/06/06 02:29:46	1.18
+++ loncom/interface/lonchatfetch.pm	2006/03/23 22:32:10	1.20
@@ -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.20 2006/03/23 22:32:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,9 +85,12 @@ sub handler {
     my $newstuff='';
     my $bottomid='';
     unless ($env{'form.lastid'}) { 
-       $include=1; 
-       my $html=&Apache::lonxml::xmlbegin();
-       $newstuff=$html.'<head></head><body bgcolor="#FFFFFF">';
+	$include=1; 
+	$newstuff .=
+	    &Apache::loncommon::start_page(undef,undef,
+					   {'only_body' => 1,
+					    'bgcolor'   => '#FFFFFF',
+					    'js_ready'  => 1,});
     }
     my @participants=();
     foreach (@entries) {
@@ -150,21 +153,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;
 } 
