durrrr TCNFILE
authorsboyette <sboyette@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 21 Aug 2008 16:25:03 +0000 (16:25 +0000)
committersboyette <sboyette@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 21 Aug 2008 16:25:03 +0000 (16:25 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10403 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/extras/import/marc2bre.pl

index 1bf78bd..b1b90c6 100755 (executable)
@@ -223,7 +223,7 @@ PROCESS: while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) {
 
 if ($tcnfile) {
     open TCNFILE, '>', $tcnfile;
-    print "$_\n" for (keys %dontuse_id);
+    print TCNFILE "$_\n" for (keys %dontuse_id);
 }