[open-ils-commits] r12429 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-05 14:24:30 -0500 (Thu, 05 Mar 2009)
New Revision: 12429

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
removed another version of the ingest race condition

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-03-05 18:01:26 UTC (rev 12428)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-03-05 19:24:30 UTC (rev 12429)
@@ -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;
 }