BEGIN {
eval { require PerlIO::gzip };
- $GZIP = $@ ? 0 : 1;
+ $GZIP = ($@) ? 0 : 1;
}
unless ( C4::Context->preference('OAI-PMH') ) {
my $self = $class->SUPER::new();
if ( $repository->{ conf } ) {
- foreach my $name ( @{ $self->{ koha_metadata_formats } } ) {
+ foreach my $name ( @{ $repository->{ koha_metadata_format } } ) {
my $format = $repository->{ conf }->{ format }->{ $name };
$self->metadataFormat( HTTP::OAI::MetadataFormat->new(
metadataPrefix => $format->{metadataPrefix},
metadataPrefix => $token->{metadata_prefix},
from => $token->{from},
until => $token->{until},
- offset => $pos ) );
+ offset => $pos ) ) if ($pos > $token->{offset});
return $self;
}
metadataPrefix => $token->{metadata_prefix},
from => $token->{from},
until => $token->{until},
- offset => $pos ) );
+ offset => $pos ) ) if ($pos > $token->{offset});
return $self;
}
use XML::SAX::Writer;
use XML::LibXML;
use XML::LibXSLT;
-use YAML::XS qw( LoadFile );
+use YAML::Syck qw( LoadFile );
use CGI qw/:standard -oldstyle_urls/;
use C4::Context;