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.19, 2006/03/19 22:48:53
Line 150 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();	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;
}	}