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

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-04-16 10:54:40 -0400 (Thu, 16 Apr 2009)
New Revision: 12890

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
Balance out connect() and disconnect() in _extract_856_uri


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-04-16 14:54:21 UTC (rev 12889)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-04-16 14:54:40 UTC (rev 12890)
@@ -1352,7 +1352,7 @@
         $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 @@
     }
 
     $log->debug("Returning ".scalar(@objects)." URI nodes for record $recid");
+    $cstore->disconnect;
     return @objects;
 }
 
@@ -1551,3 +1552,4 @@
 
 1;
 
+# vim:et:ts=4:sw=4: