loncom/interface/lonsearchcourse.pm - diff

Return to lonsearchcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2024/02/11 23:03:13	version 1.14, 2024/04/16 21:09:14
Line 151 sub course_search {	Line 151 sub course_search {
(($listed eq 'absent') \|\| ($listed eq 'grades')));	(($listed eq 'absent') \|\| ($listed eq 'grades')));
}	}
}	}
my $symb=&make_symb($1);	my $symb=&make_symb($rid);
&checkonthis($r,$1,$hash{$key},0,&Apache::lonnet::gettitle($symb),	&checkonthis($r,$rid,$hash{$key},0,&Apache::lonnet::gettitle($symb),
$fulltext,$symb,$target,@allwords);	$fulltext,$symb,$target,@allwords);
}	}
}	}
Line 296 sub checkonthis {	Line 296 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 my $url (split(/\,/,$dependencies)) {	foreach my $item (split(/\,/,$dependencies)) {
if (($url =~ /^\/res\//) && (!$alreadyseen{$id})) {	if (($item =~ /^\/res\//) && (!$alreadyseen{$id})) {
&checkonthis($r,$id,$url,$level+1,'',$fulltext,undef,$target,@allwords);	&checkonthis($r,$id,$item,$level+1,'',$fulltext,undef,$target,@allwords);
}	}
}	}
}	}