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 269278e..291b994 100644 (file)
--- 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 ...