From 5ae48c036a39dd252c80d8a1dfc602f933f5068d Mon Sep 17 00:00:00 2001
From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 9 Sep 2011 19:16:39 +0000
Subject: [PATCH] insert_856_9: more accurate detection of incumbent subfield-9 data

---
 sql/base/base.sql |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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');
       }
-- 
1.7.2.5