From 76a662ca2d120c3e6ec839c7c545f9ff60c2653d Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 18 Mar 2010 00:04:07 +0000
Subject: [PATCH] Correct constructor call, and added logger line
git-svn-id: svn://svn.open-ils.org/ILS/trunk@15897 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/support-scripts/marc_stream_importer.pl | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/Open-ILS/src/support-scripts/marc_stream_importer.pl b/Open-ILS/src/support-scripts/marc_stream_importer.pl
index 668dfa17ca..8ea533644f 100755
--- a/Open-ILS/src/support-scripts/marc_stream_importer.pl
+++ b/Open-ILS/src/support-scripts/marc_stream_importer.pl
@@ -193,10 +193,11 @@ sub process_batch_data {
my $data = shift or $logger->error("process_batch_data called without any data");
$data or return;
- my ($handle, $tempfile) = File::Temp->new(DIR => $tempdir) or die "Cannot write tempfile in $tempdir";
+ my ($handle, $tempfile) = File::Temp->tempfile("$0_XXXX", DIR => $tempdir) or die "Cannot write tempfile in $tempdir";
print $handle $data;
close $handle;
+ $logger->info("Calling process_spool on tempfile $tempfile (queue: $queue_id; source: $bib_source)");
my $resp = process_spool($tempfile);
if (oils_event_equals($resp, 'NO_SESSION')) { # has the session timed out?
--
2.11.0