[open-ils-commits] r16417 - trunk/Open-ILS/src/support-scripts (erickson)
svn at svn.open-ils.org
svn at svn.open-ils.org
Tue May 11 22:55:27 EDT 2010
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;
}
More information about the open-ils-commits
mailing list