--- loncom/interface/lonchat.pm	2005/04/07 06:56:22	1.10
+++ loncom/interface/lonchat.pm	2006/03/19 22:48:53	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat
 #
-# $Id: lonchat.pm,v 1.10 2005/04/07 06:56:22 albertel Exp $
+# $Id: lonchat.pm,v 1.11 2006/03/19 22:48:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,21 +49,21 @@ sub handler {
     }
 # --------------------------------------------------- Print login screen header
     my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
-    my $html=&Apache::lonxml::xmlbegin();
+    my $loaditems = 'onLoad="this.document.chatentry.newchat.focus();"';
+    my $start_page = 
+	&Apache::loncommon::start_page('Chat',undef,
+				       {'only_body'   => 1,
+					'add_entries' => $loaditems,});
+    my $end_page = &Apache::loncommon::end_page();
     $r->print(<<ENDDOCUMENT);
-$html
-<head>
-<title>The LearningOnline Network with CAPA</title>
-</head>
-<body bgcolor="#FFFFFF" onLoad="this.document.chatentry.newchat.focus();">
+$start_page
 <form method="post" name="chatentry">
 $latexHelp
 <input type="text" size="60" name="newchat">
 <input value="Post Anonymous" name="anonymous" type="submit">
 <input value="Post" name="newentry" type="submit">
 </form>
-</body>
-</html>
+$end_page
 ENDDOCUMENT
     return OK;
 } 
