checking for all words in subject
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 11 Nov 2005 20:22:59 +0000 (20:22 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 11 Nov 2005 20:22:59 +0000 (20:22 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2007 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/authority.pm

index 860a8f5..2c38361 100644 (file)
@@ -113,7 +113,7 @@ sub find_see_from_controlled {
                my $doc = $parser->parse_string($m);
                my @nodes = $doc->documentElement->findnodes('//*[substring(@tag,1,1)="1"]/*[@code="a" or @code="d" or @code="x"]');
                my $list = [ map { $_->textContent } @nodes ];
-               $client->respond( $list ) if (_empty_check($$list[0], "metabib::${class}_field_entry"));
+               $client->respond( $list ) if (_empty_check(join(' ',@$list), "metabib::${class}_field_entry"));
        }
        return undef;
 }
@@ -142,7 +142,7 @@ sub find_see_also_from_controlled {
                my $doc = $parser->parse_string($m);
                my @nodes = $doc->documentElement->findnodes('//*[substring(@tag,1,1)="1"]/*[@code="a" or @code="d" or @code="x"]');
                my $list = [ map { $_->textContent } @nodes ];
-               $client->respond( $list ) if (_empty_check($$list[0], "metabib::${class}_field_entry"));
+               $client->respond( $list ) if (_empty_check(join(' ',@$list), "metabib::${class}_field_entry"));
        }
        return undef;
 }