loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2005/06/06 02:29:46	version 1.20, 2006/03/23 22:32:10
Line 85 sub handler {	Line 85 sub handler {
my $newstuff='';	my $newstuff='';
my $bottomid='';	my $bottomid='';
unless ($env{'form.lastid'}) {	unless ($env{'form.lastid'}) {
$include=1;	$include=1;
my $html=&Apache::lonxml::xmlbegin();	$newstuff .=
$newstuff=$html.'<head></head><body bgcolor="#FFFFFF">';	&Apache::loncommon::start_page(undef,undef,
	{'only_body' => 1,
	'bgcolor' => '#FFFFFF',
	'js_ready' => 1,});
}	}
my @participants=();	my @participants=();
foreach (@entries) {	foreach (@entries) {
Line 150 sub handler {	Line 153 sub handler {
}	}
}	}
my $participant_output=join('<br />',sort @participants);	my $participant_output=join('<br />',sort @participants);
my $html=&Apache::lonxml::xmlbegin();	my $start_page =
	&Apache::loncommon::start_page('Chat',undef,
	{'redirect' => [5,"/adm/chatfetch?lastid=$lastid"],
	'only_body' => 1,});
	my $end_page = &Apache::loncommon::end_page();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
$html	$start_page
<head>	<script type="text/javascript">
<title>The LearningOnline Network with CAPA</title>
<meta HTTP-EQUIV="Refresh" CONTENT="5; url=/adm/chatfetch?lastid=$lastid">
</head>
<body bgcolor="#FFFFFF">
<script>
parent.chatout.document.writeln('$newstuff');	parent.chatout.document.writeln('$newstuff');
parent.chatout.scroll(0,10000000);	parent.chatout.scroll(0,10000000);
</script>	</script>
$participant_output	$participant_output
</body>	$end_page
</html>
ENDDOCUMENT	ENDDOCUMENT
return OK;	return OK;
}	}