From 448620326037815f2dc444dab77674c6a8d5a115 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 4 Sep 2009 20:17:14 +0000 Subject: [PATCH] on marc record import, call ingest after the create xact has been committed git-svn-id: svn://svn.open-ils.org/ILS/trunk@13968 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index 2bdc235fe7..0aaa921882 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -255,11 +255,17 @@ sub biblio_record_xml_import { return $e->die_event unless $e->checkauth; return $e->die_event unless $e->allowed('IMPORT_MARC', $e->requestor->ws_ou); - my $res = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import( - $e, $xml, $source, $auto_tcn, $self->api_name =~ /override/); + my $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import( + $e, $xml, $source, $auto_tcn, $self->api_name =~ /override/, 1); - $e->commit unless $U->event_code($res); - return $res; + return $record if $U->event_code($record); + + $e->commit; + + my $ses = OpenSRF::AppSession->create('open-ils.ingest'); + $ses->request('open-ils.ingest.full.biblio.record', $record->id); + + return $record; } __PACKAGE__->register_method( -- 2.43.2