loncom/interface/lonchat.pm - diff

Return to lonchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.15, 2006/07/17 16:10:57	version 1.16, 2008/01/19 21:40:41
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::lonlocal;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 68 sub handler {	Line 69 sub handler {
{'only_body' => 1,	{'only_body' => 1,
'add_entries' => \%loaditems,});	'add_entries' => \%loaditems,});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
	my %lt = &Apache::lonlocal::texthash(
	anon => 'Post Anonymous',
	post => 'Post',
	);
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
$start_page	$start_page
<form method="post" name="chatentry">	<form method="post" name="chatentry">
$latexHelp	$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="$lt{'anon'}" name="anonymous" type="submit">
<input value="Post" name="newentry" type="submit">	<input value="$lt{'post'}" name="newentry" type="submit">
$group_elem	$group_elem
</form>	</form>
$end_page	$end_page