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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-02 21:39:34 -0500 (Mon, 02 Mar 2009)
New Revision: 12367

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
provide a cstore object

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-03-03 02:38:08 UTC (rev 12366)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-03-03 02:39:34 UTC (rev 12367)
@@ -400,7 +400,10 @@
 	my $bib = shift;
 	my $xml = OpenILS::Application::Ingest::entityize($bib->marc);
 
+	my $cstore = OpenSRF::AppSession->connect( 'open-ils.cstore' );
 	my $cn = $cstore->request( 'open-ils.cstore.direct.asset.call_number.search' => { id => { '!=' => undef }, { limit => 1 } } )->gather(1);
+    $cstore->disconnect;
+
     my $max_cn = int($cn->id) + 1000;
 
 	my $document = $parser->parse_string($xml);