loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2001/11/28 19:26:20	version 1.107, 2001/11/28 19:30:32
Line 1033 ENDPOP	Line 1033 ENDPOP
BLOOP: while(1) {	BLOOP: while(1) {
my $sn=0;	my $sn=0;
last BLOOP unless $bloop;	last BLOOP unless $bloop;
	last BLOOP unless $timeremain;
RLOOP: foreach my $rkey (sort keys %rhash) {	RLOOP: foreach my $rkey (sort keys %rhash) {
$sn++;	$sn++;
next RLOOP if $orkey{$rkey};	next RLOOP if $orkey{$rkey};
Line 1074 ENDPOP	Line 1075 ENDPOP
$r->rflush();	$r->rflush();
$tflag=0;	$tflag=0;
}	}
if ($temp>1) {
sleep 1;
$timeremain--;
$elapsetime++;
last WLOOP;
}
if (-e "$replyfile.end") {	if (-e "$replyfile.end") {
$bloop--;	$bloop--;
$orkey{$rkey}=1;	$orkey{$rkey}=1;
Line 1123 ENDPOP	Line 1118 ENDPOP
}	}
last WLOOP;	last WLOOP;
}	}
	if ($temp>1) {
	sleep 1;
	$timeremain--;
	$elapsetime++;
	last WLOOP;
	}
last WLOOP unless $timeremain;	last WLOOP unless $timeremain;
sleep 1;	sleep 1;
$timeremain--;	$timeremain--;