From 3a3fd3fddc3f3c71f2406fcb150a3eaa7e0cd63b Mon Sep 17 00:00:00 2001 From: Koha User Date: Wed, 25 Oct 2017 15:44:56 +0200 Subject: [PATCH] Bug 18153 : fix unimarc label in export tool --- Koha/Exporter/Record.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/Koha/Exporter/Record.pm b/Koha/Exporter/Record.pm index f9d62df..91c3ba2 100644 --- a/Koha/Exporter/Record.pm +++ b/Koha/Exporter/Record.pm @@ -123,6 +123,16 @@ sub export { Koha::Logger->get->info( $msg ); next; } + # The standard UNIMARC for bibliographic records requires than the + # 9th character (starting from 0) in labels must be blank, but it + # must keep the 'a' value in MARC21 and Koha needs it. Therefore, + # for UNIMARC bibliographic records, it is only corrected for export + my $leader = $record->leader(); + my $marcflavour = C4::Context->preference("marcflavour"); + if ( $marcflavour eq 'UNIMARC' and $record_type eq 'bibs' ) { + substr( $leader, 9, 1 ) = ' '; + $record->leader($leader); + } print $record->as_usmarc(); } } elsif ( $format eq 'xml' ) { -- 2.7.4