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

(-)a/C4/Record.pm (-1 / +1 lines)
Lines 294-300 sub marc2dcxml { Link Here
294
        };
294
        };
295
    } elsif ( $record =~ /^MARC::Record/ ) { # if OK makes xslt transformation
295
    } elsif ( $record =~ /^MARC::Record/ ) { # if OK makes xslt transformation
296
        my $xslt_engine = Koha::XSLT_Handler->new;
296
        my $xslt_engine = Koha::XSLT_Handler->new;
297
        if ( $format =~ /oaidc|srwdc|rdfdc/ ) {
297
        if ( $format =~ /^(dc|oaidc|srwdc|rdfdc)$/i ) {
298
            $output = $xslt_engine->transform( $marcxml, $xsl );
298
            $output = $xslt_engine->transform( $marcxml, $xsl );
299
        } else {
299
        } else {
300
            croak "The format argument ($format) not accepted.\n" .
300
            croak "The format argument ($format) not accepted.\n" .
(-)a/opac/opac-export.pl (-2 / +1 lines)
Lines 78-84 elsif ($format =~ /bibtex/) { Link Here
78
    $marc = marc2bibtex($marc,$biblionumber);
78
    $marc = marc2bibtex($marc,$biblionumber);
79
    $format = 'bibtex';
79
    $format = 'bibtex';
80
}
80
}
81
elsif ($format =~ /dc$/) {
81
elsif ($format =~ /^(dc|oaidc|srwdc|rdfdc)$/i ) {
82
    # TODO: Dublin Core leaks fields marked hidden by framework.
82
    # TODO: Dublin Core leaks fields marked hidden by framework.
83
    $marc = marc2dcxml($marc, undef, $biblionumber, $format);
83
    $marc = marc2dcxml($marc, undef, $biblionumber, $format);
84
    $format = "dublin-core.xml";
84
    $format = "dublin-core.xml";
85
- 

Return to bug 20097