[open-ils-commits] r16417 - trunk/Open-ILS/src/support-scripts (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-05-11 22:55:24 -0400 (Tue, 11 May 2010)
New Revision: 16417

Modified:
   trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl
Log:
call recv to pull responses off the wire

Modified: trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl	2010-05-11 19:53:25 UTC (rev 16416)
+++ trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl	2010-05-12 02:55:24 UTC (rev 16417)
@@ -274,14 +274,14 @@
     # clean up the successfully imported vandelay records to prevent queue bloat
     my $pcrud = OpenSRF::AppSession->create('open-ils.pcrud');
     $pcrud->connect;
-    $pcrud->request('open-ils.pcrud.transaction.begin', $authtoken);
+    $pcrud->request('open-ils.pcrud.transaction.begin', $authtoken)->recv;
     my $err;
 
     foreach (@cleanup_recs) {
 
         try { 
 
-            $pcrud->request('open-ils.pcrud.delete.vqbr', $authtoken, $_);
+            $pcrud->request('open-ils.pcrud.delete.vqbr', $authtoken, $_)->recv;
 
         } catch Error with {
             $err = shift;
@@ -289,7 +289,7 @@
         };
     }
 
-    $pcrud->request('open-ils.pcrud.transaction.commit', $authtoken) unless $err;
+    $pcrud->request('open-ils.pcrud.transaction.commit', $authtoken)->recv unless $err;
     $pcrud->disconnect;
 }