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.16, 2005/02/17 08:50:20
Line 50 sub handler {	Line 50 sub handler {
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }

$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

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">