loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2004/06/27 17:36:57	version 1.15, 2005/02/17 08:29:42
Line 86 sub handler {	Line 86 sub handler {
my $bottomid='';	my $bottomid='';
unless ($ENV{'form.lastid'}) {	unless ($ENV{'form.lastid'}) {
$include=1;	$include=1;
$newstuff='<html><body bgcolor="#FFFFFF">';	my $html=&Apache::lonxml::xmlbegin();
	$newstuff=$html.'<head></head><body bgcolor="#FFFFFF">';
}	}
my @participants=();	my @participants=();
foreach (@entries) {	foreach (@entries) {
Line 149 sub handler {	Line 150 sub handler {
}	}
}	}
my $participant_output=join('<br />',sort @participants);	my $participant_output=join('<br />',sort @participants);
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
<meta HTTP-EQUIV="Refresh" CONTENT="5; url=/adm/chatfetch?lastid=$lastid">	<meta HTTP-EQUIV="Refresh" CONTENT="5; url=/adm/chatfetch?lastid=$lastid">