From ff464b5dde61127d5efcf195e528d79e58c943b3 Mon Sep 17 00:00:00 2001 From: Stephane Delaune Date: Wed, 22 Feb 2017 12:53:17 +0100 Subject: [PATCH] Bug 18153 : fix unimarc label in export tool The standard UNIMARC requires than the 9th character (starting from 0) in labels must be blank (while it may be 'a' in marc21), but under certain conditions (e.g. when a iso2709 file is imported) Koha's unimarc records can have an invalid char. 'a' in label pos.9 So when we want to export them with export's tool, if marcflavour syspref is UNIMARC, we need to delete this bad 'a' char from label pos.9 (to have blank) : this patch make this Signed-off-by: Alex Buckley --- Koha/Exporter/Record.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Koha/Exporter/Record.pm b/Koha/Exporter/Record.pm index 193f87e..d2d092b 100644 --- a/Koha/Exporter/Record.pm +++ b/Koha/Exporter/Record.pm @@ -123,6 +123,9 @@ sub export { Koha::Logger->get->info( $msg ); next; } + my $leader = $record->leader(); + my $marcflavour = C4::Context->preference("marcflavour"); + if ($marcflavour eq 'UNIMARC'){substr($leader,9,1) = ' ';$record->leader($leader);} print $record->as_usmarc(); } } elsif ( $format eq 'xml' ) { -- 2.1.4