|
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 |
my $leader = $record->leader(); |
| 127 |
my $marcflavour = C4::Context->preference("marcflavour"); |
| 128 |
if ($marcflavour eq 'UNIMARC'){substr($leader,9,1) = ' ';$record->leader($leader);} |
| 126 |
print $record->as_usmarc(); |
129 |
print $record->as_usmarc(); |
| 127 |
} |
130 |
} |
| 128 |
} elsif ( $format eq 'xml' ) { |
131 |
} elsif ( $format eq 'xml' ) { |
| 129 |
- |
|
|