From 66e682dddf9cc4f08a6e5ad1251d0449ee58102e Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 16 Apr 2009 14:54:40 +0000
Subject: [PATCH] Balance out connect() and disconnect() in _extract_856_uri

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12890 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
index f8260ed8c4..269278e612 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
@@ -1352,7 +1352,7 @@ sub _extract_856_uris {
         $cn = $cn->clone if ($cn);
         $cn->clear_isnew if ($cn);
 
-	$cn ||= $cstore
+        $cn ||= $cstore
             ->request( 'open-ils.cstore.direct.asset.call_number.search' => { owning_lib => $org->id, record => $recid, label => '##URI##' } )
             ->gather(1);
 
@@ -1376,6 +1376,7 @@ sub _extract_856_uris {
     }
 
     $log->debug("Returning ".scalar(@objects)." URI nodes for record $recid");
+    $cstore->disconnect;
     return @objects;
 }
 
@@ -1551,3 +1552,4 @@ __PACKAGE__->register_method(
 
 1;
 
+# vim:et:ts=4:sw=4:
-- 
2.11.0