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 |
- |
|
|