From 6e1bc5940528c0e3c2a4556be0be06c24ad01386 Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 5 Mar 2009 19:24:30 +0000 Subject: [PATCH] removed another version of the ingest race condition git-svn-id: svn://svn.open-ils.org/ILS/trunk@12429 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