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