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

(-)a/Koha/OAI/Server/ListBase.pm (-1 / +2 lines)
Lines 162-168 sub GetRecords { Link Here
162
                  ) );
162
                  ) );
163
                }
163
                }
164
            } else {
164
            } else {
165
                $timestamp =~ s/ /T/, $timestamp .= 'Z';
165
                $timestamp =~ s/ /T/;
166
                $timestamp .= 'Z';
166
                $self->identifier( new HTTP::OAI::Header(
167
                $self->identifier( new HTTP::OAI::Header(
167
                    identifier => $repository->{ koha_identifier} . ':' . $biblionumber,
168
                    identifier => $repository->{ koha_identifier} . ':' . $biblionumber,
168
                    datestamp  => $timestamp,
169
                    datestamp  => $timestamp,
(-)a/Koha/OAI/Server/ResumptionToken.pm (-3 / +9 lines)
Lines 34-41 use base ("HTTP::OAI::ResumptionToken"); Link Here
34
# - offset
34
# - offset
35
# - deleted
35
# - deleted
36
36
37
sub deleted { shift->_elem('deleted',@_) }
38
39
sub new {
37
sub new {
40
    my ($class, %args) = @_;
38
    my ($class, %args) = @_;
41
39
Lines 78-83 sub new { Link Here
78
    return $self;
76
    return $self;
79
}
77
}
80
78
79
sub deleted {
80
# FIXME It seems that this sub is not used and that if it would be
81
# used, it would not return what you expect (since deleted is not
82
# found in the _elem hash).
83
# Note: sub _elem is found in HTTP::OAI::Encapsulation.
84
    my $self = shift;
85
    return $self->_elem( 'deleted', @_ );
86
}
87
81
sub _strip_UTC_designators {
88
sub _strip_UTC_designators {
82
    my ( $timestamp ) = @_;
89
    my ( $timestamp ) = @_;
83
    $timestamp =~ s/T/ /g;
90
    $timestamp =~ s/T/ /g;
84
- 

Return to bug 15108