version 1.167, 2003/03/08 01:43:12
|
version 1.168, 2003/03/08 03:24:58
|
Line 428 sub course_search {
|
Line 428 sub course_search {
|
&tiehash(); |
&tiehash(); |
foreach (keys %hash) { |
foreach (keys %hash) { |
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) { |
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) { |
&checkonthis($r,$hash{$_},0,$hash{'title_'.$1},@allwords,$fulltext); |
&checkonthis($r,$hash{$_},0,$hash{'title_'.$1},$fulltext,@allwords); |
} |
} |
} |
} |
&untiehash(); |
&untiehash(); |
Line 456 sub untiehash {
|
Line 456 sub untiehash {
|
# =============================== This pulls up a resource and its dependencies |
# =============================== This pulls up a resource and its dependencies |
|
|
sub checkonthis { |
sub checkonthis { |
my ($r,$url,$level,$title,@allwords,$fulltext)=@_; |
my ($r,$url,$level,$title,$fulltext,@allwords)=@_; |
$alreadyseen{$url}=1; |
$alreadyseen{$url}=1; |
$r->rflush(); |
$r->rflush(); |
my $result=&Apache::lonnet::metadata($url,'title').' '. |
my $result=&Apache::lonnet::metadata($url,'title').' '. |
Line 464 sub checkonthis {
|
Line 464 sub checkonthis {
|
&Apache::lonnet::metadata($url,'abstract').' '. |
&Apache::lonnet::metadata($url,'abstract').' '. |
&Apache::lonnet::metadata($url,'keywords'); |
&Apache::lonnet::metadata($url,'keywords'); |
if (($url) && ($fulltext)) { |
if (($url) && ($fulltext)) { |
$result.=&Apache::lonnet::ssibody($url); |
$result.=&Apache::lonnet::ssi_body($url); |
} |
} |
$result=~s/\s+/ /gs; |
$result=~s/\s+/ /gs; |
my $applies=0; |
my $applies=0; |
Line 490 sub checkonthis {
|
Line 490 sub checkonthis {
|
&Apache::lonnet::metadata($url,'dependencies'); |
&Apache::lonnet::metadata($url,'dependencies'); |
foreach (split(/\,/,$dependencies)) { |
foreach (split(/\,/,$dependencies)) { |
if (($_=~/^\/res\//) && (!$alreadyseen{$_})) { |
if (($_=~/^\/res\//) && (!$alreadyseen{$_})) { |
&checkonthis($r,$_,$level+1,'',@allwords,$fulltext); |
&checkonthis($r,$_,$level+1,'',$fulltext,@allwords); |
} |
} |
} |
} |
} |
} |