--- loncom/interface/lonchat.pm 2002/08/08 13:44:17 1.3
+++ loncom/interface/lonchat.pm 2002/09/09 21:01:58 1.4
@@ -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.4 2002/09/09 21:01:58 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,7 +37,7 @@ 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
@@ -46,10 +46,10 @@ sub handler {
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
-<body bgcolor="#FFFFFF">
-<form method="post">
+<body bgcolor="#FFFFFF" onLoad="this.document.chatentry.newchat.focus();">
+<form method="post" name="chatentry">
<input type="text" size="60" name="newchat">
-<input type="checkbox" name="anonymous">
+<input value="Post Anonymous" name="anonymous" type="submit">
<input value="Post" name="newentry" type="submit">
</form>
</body>