[open-ils-commits] r12435 - branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-05 21:09:00 -0500 (Thu, 05 Mar 2009)
New Revision: 12435

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
backporting r12429 -- fixes ingest race condition on normal record saving

Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-03-06 02:08:27 UTC (rev 12434)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-03-06 02:09:00 UTC (rev 12435)
@@ -160,12 +160,20 @@
 	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;
 }