From 04a5fe09c474019e8fb4f3c8d8bb5a261b74664a Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 17 Jul 2009 16:36:15 +0000 Subject: [PATCH] autodetect marcxml (or, rather, "not binary marc") at vandelay staging import git-svn-id: svn://svn.open-ils.org/ILS/trunk@13620 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm index 563851b9f1..f3121f3b1c 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm @@ -232,7 +232,12 @@ sub process_spool { $logger->info("vandelay spooling $fingerprint purpose=$purpose file=$filename"); - my $marctype = 'USMARC'; # ? + my $marctype = 'USMARC'; + + open F, $filename; + $marctype = 'XML' if (getc(F) =~ /^\D/o); + close F; + my $batch = new MARC::Batch ($marctype, $filename); $batch->strict_off; -- 2.11.0