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 eq 'oaidc' || 'srwdc' || 'rdfdc' ) { |
297 |
if ( $format =~ /oaidc|srwdc|rdfdc/ ) { |
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" . |
301 |
- |
|
|