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