--- loncom/interface/lonchat.pm 2002/08/08 13:44:17 1.3 +++ loncom/interface/lonchat.pm 2003/06/20 15:01:02 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat # -# $Id: lonchat.pm,v 1.3 2002/08/08 13:44:17 www Exp $ +# $Id: lonchat.pm,v 1.5 2003/06/20 15:01:02 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,6 +30,7 @@ package Apache::lonchat; use strict; use Apache::Constants qw(:common); +use Apache::loncommon; sub handler { my $r = shift; @@ -37,19 +38,21 @@ sub handler { $r->send_http_header; return OK if $r->header_only; - if ($ENV{'form.newentry'}) { + if ($ENV{'form.newchat'}) { &Apache::lonnet::chatsend($ENV{'form.newchat'},$ENV{'form.anonymous'}); } # --------------------------------------------------- Print login screen header + my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); $r->print(< The LearningOnline Network with CAPA - -
+ + +$latexHelp - +