loncom/interface/lonchat.pm - diff

Return to lonchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2005/04/07 06:56:22	version 1.11, 2006/03/19 22:48:53
Line 49 sub handler {	Line 49 sub handler {
}	}
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
my $html=&Apache::lonxml::xmlbegin();	my $loaditems = 'onLoad="this.document.chatentry.newchat.focus();"';
	my $start_page =
	&Apache::loncommon::start_page('Chat',undef,
	{'only_body' => 1,
	'add_entries' => $loaditems,});
	my $end_page = &Apache::loncommon::end_page();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
$html	$start_page
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
<body bgcolor="#FFFFFF" onLoad="this.document.chatentry.newchat.focus();">
<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="Post Anonymous" name="anonymous" type="submit">
<input value="Post" name="newentry" type="submit">	<input value="Post" name="newentry" type="submit">
</form>	</form>
</body>	$end_page
</html>
ENDDOCUMENT	ENDDOCUMENT
return OK;	return OK;
}	}