projects
/
Biblio-Z3950.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e4864a1
)
join multi-line fields
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 12:08:43 +0000
(14:08 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 12:08:43 +0000
(14:08 +0200)
COBISS.pm
patch
|
blob
|
history
diff --git
a/COBISS.pm
b/COBISS.pm
index
c324898
..
81b532e
100644
(file)
--- 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 ])}{} ) {