|
Lines 30-36
if ( $op eq "export" ) {
Link Here
|
| 30 |
my $marc = GetAuthority($authid); |
30 |
my $marc = GetAuthority($authid); |
| 31 |
|
31 |
|
| 32 |
if ( $format =~ /marcxml/ ) { |
32 |
if ( $format =~ /marcxml/ ) { |
| 33 |
$marc = marc2marcxml($marc); |
33 |
$marc = marc2marcxml($marc, 'UTF-8', C4::Context->preference("marcflavour") eq 'UNIMARC' ? 'UNIMARCAUTH' : 'MARC21' ); |
| 34 |
} |
34 |
} |
| 35 |
elsif ($format=~ /mads/) { |
35 |
elsif ($format=~ /mads/) { |
| 36 |
$marc = marc2madsxml($marc); |
36 |
$marc = marc2madsxml($marc); |
| 37 |
- |
|
|