View | Details | Raw Unified | Return to bug 18153
Collapse All | Expand All

(-)a/Koha/Exporter/Record.pm (-1 / +10 lines)
Lines 123-128 sub export { Link Here
123
                Koha::Logger->get->info( $msg );
123
                Koha::Logger->get->info( $msg );
124
                next;
124
                next;
125
            }
125
            }
126
            # The standard UNIMARC for bibliographic records requires than the
127
            # 9th character (starting from 0) in labels must be blank, but it
128
            # must keep the 'a' value in MARC21 and Koha needs it. Therefore,
129
            # for UNIMARC bibliographic records, it is only corrected for export
130
            my $leader = $record->leader();
131
            my $marcflavour = C4::Context->preference("marcflavour");
132
            if ( $marcflavour eq 'UNIMARC' and $record_type eq 'bibs' ) {
133
                substr( $leader, 9, 1 ) = ' ';
134
                $record->leader($leader);
135
            }
126
            print $record->as_usmarc();
136
            print $record->as_usmarc();
127
        }
137
        }
128
    } elsif ( $format eq 'xml' ) {
138
    } elsif ( $format eq 'xml' ) {
129
- 

Return to bug 18153