View | Details | Raw Unified | Return to bug 8203
Collapse All | Expand All

(-)a/authorities/export.pl (-2 / +1 lines)
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
- 

Return to bug 8203