[open-ils-commits] r13093 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-05-06 14:27:45 -0400 (Wed, 06 May 2009)
New Revision: 13093

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
make subfield 9 the first place we look for a Located URI owner

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-05-06 18:18:23 UTC (rev 13092)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-05-06 18:27:45 UTC (rev 13093)
@@ -1317,9 +1317,9 @@
         $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 ...