loncom/interface/lonchat.pm - diff

Return to lonchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2002/09/09 21:01:58	version 1.5, 2003/06/20 15:01:02
Line 30 package Apache::lonchat;	Line 30 package Apache::lonchat;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
	use Apache::loncommon;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 41 sub handler {	Line 42 sub handler {
&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
	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
Line 48 sub handler {	Line 50 sub handler {
</head>	</head>
<body bgcolor="#FFFFFF" onLoad="this.document.chatentry.newchat.focus();">	<body bgcolor="#FFFFFF" onLoad="this.document.chatentry.newchat.focus();">
<form method="post" name="chatentry">	<form method="post" name="chatentry">
	$latexHelp
<input type="text" size="60" name="newchat">	<input type="text" size="60" name="newchat">
<input value="Post Anonymous" name="anonymous" type="submit">	<input value="Post Anonymous" name="anonymous" type="submit">
<input value="Post" name="newentry" type="submit">	<input value="Post" name="newentry" type="submit">