From 4c1344ad714f28630f71c3cd778f4e4fd5d87852 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 23 Oct 2010 14:08:43 +0200 Subject: [PATCH] join multi-line fields --- COBISS.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/COBISS.pm b/COBISS.pm index c324898..81b532e 100644 --- a/COBISS.pm +++ b/COBISS.pm @@ -141,6 +141,9 @@ diag "fetch_marc $nr [$id] $format"; my $marc = MARC::Record->new; + $comarc =~ s/[\r\n]+\s{5}//gs; # join continuation lines +warn "## comarc join: $comarc\n"; + foreach my $line ( split(/[\r\n]+/, $comarc) ) { if ( $line !~ s{^(\d\d\d)([01 ])([01 ])}{} ) { -- 2.20.1