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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-03-17 20:04:07 -0400 (Wed, 17 Mar 2010)
New Revision: 15897

Modified:
   trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl
Log:
Correct constructor call, and added logger line

Modified: trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl	2010-03-18 00:04:06 UTC (rev 15896)
+++ trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl	2010-03-18 00:04:07 UTC (rev 15897)
@@ -193,10 +193,11 @@
     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?