From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 15 Jul 2009 16:15:46 +0000 (+0000)
Subject: Merging 13599 from trunk: Protect against duplicate Located URIs at ingest time
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=182cad6643649871bead40c0704673e5c92435f7;p=Evergreen.git

Merging 13599 from trunk: Protect against duplicate Located URIs at ingest time

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@13600 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 1d30d187cb..5789fe0c10 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
@@ -175,11 +175,19 @@ sub rw_biblio_ingest_single_object {
             }
         }
 
+        # Check for an existing CN-URI map
+        $tmp = $cstore->request(
+            'open-ils.cstore.direct.asset.uri_call_number_map.id_list',
+            { call_number => $u->{call_number}->id, uri => $u->{uri}->id }
+        )->gather(1);
+
+        next if ($tmp);
+
         my $umap = Fieldmapper::asset::uri_call_number_map->new;
         $umap->uri($u->{uri}->id);
         $umap->call_number($u->{call_number}->id);
 
-        $cstore->request( 'open-ils.cstore.direct.asset.uri_call_number_map.create' => $umap )->gather(1) if (!$tmp);
+        $cstore->request( 'open-ils.cstore.direct.asset.uri_call_number_map.create' => $umap )->gather(1);
     }
 
     # update full_rec stuff ...