From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 9 Sep 2011 19:16:39 +0000 (+0000)
Subject: insert_856_9: more accurate detection of incumbent subfield-9 data
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=5ae48c036a39dd252c80d8a1dfc602f933f5068d

insert_856_9: more accurate detection of incumbent subfield-9 data
---

diff --git a/sql/base/base.sql b/sql/base/base.sql
index 8bcff20..d9c9e12 100644
--- a/sql/base/base.sql
+++ b/sql/base/base.sql
@@ -1079,7 +1079,7 @@ CREATE OR REPLACE FUNCTION migration_tools.insert_856_9 (TEXT, TEXT) RETURNS TEX
 
     foreach my $field ( $marc->field('856') ) {
       if ( scalar(grep( /(netlibrary|overdrive)\.com/i, $field->subfield('u'))) > 0 &&
-           scalar(grep( $shortname, $field->subfield('9'))) == 0 ) {
+           ! ( $field->as_string('9') =~ m/$shortname/ ) ) {
         $field->add_subfields( '9' => $shortname );
 				$field->update( ind2 => '0');
       }