From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 6 Mar 2009 02:08:27 +0000 (+0000)
Subject: backporting r12429 -- fixes ingest race condition on normal record saving
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b3ff65e18944d2732294f2d78fd7babcdaf20511;p=Evergreen.git

backporting r12429 -- fixes ingest race condition on normal record saving

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@12434 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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;
 }