From 8c95f8104c1669aa113d40bfec728c4c5d2e006e Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 6 Mar 2009 02:09:00 +0000 Subject: [PATCH] backporting r12429 -- fixes ingest race condition on normal record saving git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4_0@12435 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index d7278d8a9b..40b13edea9 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -160,12 +160,20 @@ sub biblio_record_replace_marc { return $e->die_event unless $e->checkauth; return $e->die_event unless $e->allowed('CREATE_MARC', $e->requestor->ws_ou); + my $no_ingest = 1; + my $res = OpenILS::Application::Cat::BibCommon->biblio_record_replace_marc( $e, $recid, $newxml, $source, $self->api_name =~ /replace/o, - $self->api_name =~ /override/o); + $self->api_name =~ /override/o, + $no_ingest + ); $e->commit unless $U->event_code($res); + + my $ses = OpenSRF::AppSession->create('open-ils.ingest'); + $ses->request('open-ils.ingest.full.biblio.record', $recid); + return $res; } -- 2.11.0