loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.236, 2005/02/02 21:08:23	version 1.237.2.1, 2005/04/01 20:01:32
Line 625 sub checkonthis {	Line 625 sub checkonthis {
# Check also the dependencies of this one	# Check also the dependencies of this one
my $dependencies=	my $dependencies=
&Apache::lonnet::metadata($url,'dependencies');	&Apache::lonnet::metadata($url,'dependencies');
foreach (split(/\,/,$dependencies) && (!$alreadyseen{$id})) {	foreach (split(/\,/,$dependencies)) {
if (($_=~/^\/res\//)) {	if (($_=~/^\/res\//) && (!$alreadyseen{$id})) {
&checkonthis($r,$id,$_,$level+1,'',$fulltext,undef,@allwords);	&checkonthis($r,$id,$_,$level+1,'',$fulltext,undef,@allwords);
}	}
}	}
Line 2469 END	Line 2469 END
delete ($Server_status{$server});	delete ($Server_status{$server});
next;	next;
}	}
$status=~/^([\.\w]+)$/;	$status=~s\|/\|\|g;
my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$1;	my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$status;
if (-e $datafile && ! -e "$datafile.end") {	if (-e $datafile && ! -e "$datafile.end") {
&update_status($r,&mt('Receiving results from [_1]',$server));	&update_status($r,&mt('Receiving results from [_1]',$server));
next;	next;