loncom/interface/lonchat.pm - diff

Return to lonchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2002/08/08 13:44:17	version 1.4, 2002/09/09 21:01:58
Line 37 sub handler {	Line 37 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

if ($ENV{'form.newentry'}) {	if ($ENV{'form.newchat'}) {
&Apache::lonnet::chatsend($ENV{'form.newchat'},$ENV{'form.anonymous'});	&Apache::lonnet::chatsend($ENV{'form.newchat'},$ENV{'form.anonymous'});
}	}
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
Line 46 sub handler {	Line 46 sub handler {
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
</head>	</head>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF" onLoad="this.document.chatentry.newchat.focus();">
<form method="post">	<form method="post" name="chatentry">
<input type="text" size="60" name="newchat">	<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">	<input value="Post" name="newentry" type="submit">
</form>	</form>
</body>	</body>