[open-ils-commits] r10642 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-19 13:07:36 -0400 (Fri, 19 Sep 2008)
New Revision: 10642

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
now using the local, uni-transaction versions of bib create/update

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-19 16:27:30 UTC (rev 10641)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-19 17:07:36 UTC (rev 10642)
@@ -2,28 +2,22 @@
 use strict; use warnings;
 use OpenILS::Application;
 use base qw/OpenILS::Application/;
-
 use Unicode::Normalize;
 use OpenSRF::EX qw/:try/;
-
 use OpenSRF::AppSession;
 use OpenSRF::Utils::SettingsClient;
 use OpenSRF::Utils::Cache;
-
 use OpenILS::Utils::Fieldmapper;
 use OpenILS::Utils::CStoreEditor qw/:funcs/;
-
 use MARC::Batch;
 use MARC::Record;
 use MARC::File::XML;
-
 use OpenILS::Utils::Fieldmapper;
-
 use Time::HiRes qw(time);
-
 use OpenSRF::Utils::Logger qw/$logger/;
 use MIME::Base64;
 use OpenILS::Application::AppUtils;
+use OpenILS::Application::Cat::BibCommon;
 my $U = 'OpenILS::Application::AppUtils';
 
 sub initialize {}
@@ -532,23 +526,15 @@
             my $record;
             if(defined $overlay_map->{$rec_id}) {
                 $logger->info("vl: overlaying record $rec_id");
-                $record = $U->simplereq(
-                    'open-ils.cat',
-                    'open-ils.cat.biblio.record.xml.update',
-                    $auth, $overlay_map->{$rec_id}, $rec->marc); #$rec->bib_source);
+                $record = OpenILS::Application::Cat::BibCommon->biblio_record_replace_marc(
+                    $e, $rec_id, $rec->marc); #$rec->bib_source
             } else {
                 $logger->info("vl: importing new record");
-                $record = $U->simplereq(
-                    'open-ils.cat',
-                    'open-ils.cat.biblio.record.xml.import',
-                    $auth, $rec->marc); #$rec->bib_source);
+                $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
+                    $e, $rec->marc); #$rec->bib_source
             }
 
-            if($U->event_code($record)) {
-                $e->rollback;
-                return $record;
-            }
-
+            return $record if $U->event_code($record);
             $rec->imported_as($record->id);
             $rec->import_time('now');
             $e->update_vandelay_queued_bib_record($rec) or return $e->die_event;