loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2003/03/29 01:39:10	version 1.10, 2003/06/23 19:59:54
Line 57 sub handler {	Line 57 sub handler {
my @entries=split(/\:/,	my @entries=split(/\:/,
&Apache::lonnet::reply(	&Apache::lonnet::reply(
"chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome));	"chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome));
my ($lastid)=($entries[$#entries]=~/^(\w+)/);	# Figure out what the last valid entry-id is
my ($thentime,$idnum)=split(/\_/,$lastid);	my ($lastid,$thentime,$idnum);
	foreach (@entries) {
	$_=~/^(\w+)/;
	if ($1 ne 'active_participant') {
	$lastid=$1;
	($thentime,$idnum)=split(/\_/,$lastid);
	}
	}
# ----------------------------------------------------------- Can see identity?	# ----------------------------------------------------------- Can see identity?
my $crs='/'.$ENV{'request.course.id'};	my $crs='/'.$ENV{'request.course.id'};
if ($ENV{'request.course.sec'}) {	if ($ENV{'request.course.sec'}) {