From 01bb4d79b28dee796a3c8d4750fb6ad1733b6312 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 3 Mar 2009 00:58:27 +0000 Subject: [PATCH] proper XPath git-svn-id: svn://svn.open-ils.org/ILS/trunk@12363 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm index 0470cd5996..5a0562ef54 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm @@ -1098,23 +1098,23 @@ sub _extract_856_uris { for my $node (@nodes) { # first, is there a URI? - my $href = $node->findvalue('[local-name()="subfield" and @code="u"]/text()'); + my $href = $node->findvalue('*[local-name()="subfield" and @code="u"]/text()'); next unless ($href); # now, find the best possible label - my $label = $node->findvalue('[local-name()="subfield" and @code="y"]/text()'); - $label ||= $node->findvalue('[local-name()="subfield" and @code="3"]/text()'); + my $label = $node->findvalue('*[local-name()="subfield" and @code="y"]/text()'); + $label ||= $node->findvalue('*[local-name()="subfield" and @code="3"]/text()'); $label ||= $href; # look for use info - my $use = $node->findvalue('[local-name()="subfield" and @code="z"]/text()'); - $use ||= $node->findvalue('[local-name()="subfield" and @code="2"]/text()'); - $use ||= $node->findvalue('[local-name()="subfield" and @code="n"]/text()'); + my $use = $node->findvalue('*[local-name()="subfield" and @code="z"]/text()'); + $use ||= $node->findvalue('*[local-name()="subfield" and @code="2"]/text()'); + $use ||= $node->findvalue('*[local-name()="subfield" and @code="n"]/text()'); # moving on to the URI owner - my $owner = $node->findvalue('[local-name()="subfield" and @code="w"]/text()'); - $owner ||= $node->findvalue('[local-name()="subfield" and @code="n"]/text()'); - $owner ||= $node->findvalue('[local-name()="subfield" and @code="9"]/text()'); # Evergreen special sauce + my $owner = $node->findvalue('*[local-name()="subfield" and @code="w"]/text()'); + $owner ||= $node->findvalue('*[local-name()="subfield" and @code="n"]/text()'); + $owner ||= $node->findvalue('*[local-name()="subfield" and @code="9"]/text()'); # Evergreen special sauce $owner =~ s/^.*?\((\w+)\).*$/$1/o; # unwrap first paren-enclosed string and then ... -- 2.11.0