From 418ec5535818313bf10d6b0967cdc0b735b3e3f5 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 19 Sep 2008 17:48:15 +0000
Subject: [PATCH] using local authority create/overlay methods.  some cleanup
 of overaly target handling

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10645 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Vandelay.pm   | 32 ++++++++++------------
 1 file changed, 14 insertions(+), 18 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index fff90c3a18..2883f622f5 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
@@ -18,6 +18,7 @@ use OpenSRF::Utils::Logger qw/$logger/;
 use MIME::Base64;
 use OpenILS::Application::AppUtils;
 use OpenILS::Application::Cat::BibCommon;
+use OpenILS::Application::Cat::AuthCommon;
 my $U = 'OpenILS::Application::AppUtils';
 
 sub initialize {}
@@ -515,6 +516,9 @@ sub import_record_list_impl {
     my %queues;
 
     for my $rec_id (@$rec_ids) {
+
+        my $overlay_target = $overlay_map->{$rec_id};
+
         if($type eq 'bib') {
 
             my $rec = $e->retrieve_vandelay_queued_bib_record($rec_id) 
@@ -524,10 +528,10 @@ sub import_record_list_impl {
             $queues{$rec->queue} = 1;
 
             my $record;
-            if(defined $overlay_map->{$rec_id}) {
-                $logger->info("vl: overlaying record $rec_id");
+            if(defined $overlay_target) {
+                $logger->info("vl: overlaying record $overlay_target");
                 $record = OpenILS::Application::Cat::BibCommon->biblio_record_replace_marc(
-                    $e, $rec_id, $rec->marc); #$rec->bib_source
+                    $e, $overlay_target, $rec->marc); #$rec->bib_source
             } else {
                 $logger->info("vl: importing new record");
                 $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
@@ -548,25 +552,17 @@ sub import_record_list_impl {
             $queues{$rec->queue} = 1;
 
             my $record;
-            if(defined $overlay_map->{$rec_id}) {
-                $logger->info("vl: overlaying record $rec_id");
-                $record = $U->simplereq(
-                    'open-ils.cat',
-                    'open-ils.cat.authority.record.overlay',
-                    $auth, $overlay_map->{$rec_id}, $rec->marc); #$rec->bib_source);
+            if(defined $overlay_target) {
+                $logger->info("vl: overlaying record $overlay_target");
+                $record = OpenILS::Utils::Cat::AuthCommon->overlay_authority_record(
+                    $overlay_target, $rec->marc); #$source);
             } else {
                 $logger->info("vl: importing new record");
-                $record = $U->simplereq(
-                    'open-ils.cat',
-                    'open-ils.cat.authority.record.import',
-                    $auth, $rec->marc); #$rec->bib_source);
-            }
-
-            if($U->event_code($record)) {
-                $e->rollback;
-                return $record;
+                $record = OpenILS::Utils::Cat::AuthCommon->import_authority_record(
+                    $rec->marc) #$source);
             }
 
+            return $record if $U->event_code($record);
             $rec->imported_as($record->id);
             $rec->import_time('now');
             $e->update_vandelay_queued_authority_record($rec) or return $e->die_event;
-- 
2.11.0