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