version 1.236, 2005/02/02 21:08:23
|
version 1.237, 2005/02/02 22:02:41
|
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); |
} |
} |
} |
} |