From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Oct 2010 12:08:43 +0000 (+0200)
Subject: join multi-line fields
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=4c1344ad714f28630f71c3cd778f4e4fd5d87852

join multi-line fields
---

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 ])}{} ) {