[open-ils-commits] r13973 - tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-04 16:21:46 -0400 (Fri, 04 Sep 2009)
New Revision: 13973

Modified:
   tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
on marc record import, call ingest after the create xact has been committed

Modified: tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-09-04 20:18:28 UTC (rev 13972)
+++ tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-09-04 20:21:46 UTC (rev 13973)
@@ -255,11 +255,17 @@
     return $e->die_event unless $e->checkauth;
     return $e->die_event unless $e->allowed('IMPORT_MARC', $e->requestor->ws_ou);
 
-    my $res = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
-        $e, $xml, $source, $auto_tcn, $self->api_name =~ /override/);
+    my $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
+        $e, $xml, $source, $auto_tcn, $self->api_name =~ /override/, 1);
 
-    $e->commit unless $U->event_code($res);
-    return $res;
+    return $record if $U->event_code($record);
+
+    $e->commit;
+
+    my $ses = OpenSRF::AppSession->create('open-ils.ingest');
+    $ses->request('open-ils.ingest.full.biblio.record', $record->id);
+
+    return $record;
 }
 
 __PACKAGE__->register_method(