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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
index f8260ed..269278e 100644 (file)
--- 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: