loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2002/08/14 15:57:53	version 1.3, 2002/08/14 16:24:00
Line 51 sub handler {	Line 51 sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
my $include=0;	my $include=0;
my $newstuff='';	my $newstuff='';
	my $bottomid='';
unless ($ENV{'form.lastid'}) {	unless ($ENV{'form.lastid'}) {
$include=1;	$include=1;
$newstuff='<html><body bgcolor="#FFFFFF">';	$newstuff='<html><body bgcolor="#FFFFFF">';
Line 73 sub handler {	Line 74 sub handler {
$newstuff.='<a name="'.$id.'"><b>'.	$newstuff.='<a name="'.$id.'"><b>'.
$sender.'</b> ('.localtime($msgtime).'): '.	$sender.'</b> ('.localtime($msgtime).'): '.
$contrib."<br>";	$contrib."<br>";
	$bottomid=$id;
} else {	} else {
$_=~/^(\w+)/;	$_=~/^(\w+)/;
if ($1 eq $ENV{'form.lastid'}) { $include=1; }	if ($1 eq $ENV{'form.lastid'}) { $include=1; }
Line 87 sub handler {	Line 89 sub handler {
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
<script>	<script>
parent.chatout.document.writeln('$newstuff');	parent.chatout.document.writeln('$newstuff');
	parent.chatout.scroll(0,10000000);
</script>	</script>
</body>	</body>
</html>	</html>