--- loncom/interface/lonchat.pm	2005/02/17 08:50:20	1.9
+++ loncom/interface/lonchat.pm	2005/04/07 06:56:22	1.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat
 #
-# $Id: lonchat.pm,v 1.9 2005/02/17 08:50:20 albertel Exp $
+# $Id: lonchat.pm,v 1.10 2005/04/07 06:56:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,20 +31,21 @@ package Apache::lonchat;
 use strict;
 use Apache::Constants qw(:common :http);
 use Apache::loncommon;
+use Apache::lonnet;
 
 sub handler {
     my $r = shift;
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;
-    if (! &Apache::lonnet::allowed('plc',$ENV{'request.course.id'}.
-              ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:'')
+    if (! &Apache::lonnet::allowed('plc',$env{'request.course.id'}.
+              ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')
                                    )) {
         return HTTP_NOT_ACCEPTABLE;
     }
 
-    if ($ENV{'form.newchat'}) {
-	&Apache::lonnet::chatsend(&Apache::lonfeedback::clear_out_html($ENV{'form.newchat'}),$ENV{'form.anonymous'});
+    if ($env{'form.newchat'}) {
+	&Apache::lonnet::chatsend(&Apache::lonfeedback::clear_out_html($env{'form.newchat'}),$env{'form.anonymous'});
     }
 # --------------------------------------------------- Print login screen header
     my $latexHelp = Apache::loncommon::helpLatexCheatsheet();