From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 20 Aug 2010 16:27:50 +0000 (+0000)
Subject: More precise deduping for insert_tags
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=96965bbc9a9d05e52cf71d5c721383038eddcbda

More precise deduping for insert_tags
---

diff --git a/sql/base/base.sql b/sql/base/base.sql
index 0e61798..569dd07 100644
--- a/sql/base/base.sql
+++ b/sql/base/base.sql
@@ -793,11 +793,11 @@ CREATE OR REPLACE FUNCTION migration_tools.insert_tags (TEXT, TEXT) RETURNS TEXT
     my @incumbents = ();
 
     foreach my $field ( $marc->fields() ) {
-      push @incumbents, $field->as_string();
+      push @incumbents, $field->as_formatted();
     }
 
     foreach $field ( $to_insert->fields() ) {
-      if (!grep {$_ eq $field->as_string()} @incumbents) {
+      if (!grep {$_ eq $field->as_formatted()} @incumbents) {
         $marc->insert_fields_ordered( ($field) );
       }
     }