From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4> Date: Wed, 6 May 2009 18:27:45 +0000 (+0000) Subject: make subfield 9 the first place we look for a Located URI owner X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4f1d0fe7d6152fa4b07100f42f4deaae5d315789;p=evergreen%2Fmasslnc.git make subfield 9 the first place we look for a Located URI owner git-svn-id: svn://svn.open-ils.org/ILS/trunk@13093 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm index 269278e612..291b9946f5 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm @@ -1317,9 +1317,9 @@ sub _extract_856_uris { $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()'); + my $owner = $node->findvalue('*[local-name()="subfield" and @code="9"]/text()'); # Evergreen special sauce + $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 ...