[BACK]Return to lonsearchcat.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsearchcat.pm between versions 1.167 and 1.168

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);
        }         }
     }      }
 }  }
Removed from v.1.167  
changed lines
  Added in v.1.168

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>