) );
}
} else {
$timestamp =~ s/ /T/, $timestamp .= 'Z';
$timestamp =~ s/ /T/;
$timestamp .= 'Z';
$self->identifier( new HTTP::OAI::Header(
identifier => $repository->{ koha_identifier} . ':' . $biblionumber,
datestamp => $timestamp,
# - offset
# - deleted
sub deleted { shift->_elem('deleted',@_) }
sub new {
my ($class, %args) = @_;
return $self;
sub deleted {
# FIXME It seems that this sub is not used and that if it would be
# used, it would not return what you expect (since deleted is not
# found in the _elem hash).
# Note: sub _elem is found in HTTP::OAI::Encapsulation.
my $self = shift;
return $self->_elem( 'deleted', @_ );
sub _strip_UTC_designators {
my ( $timestamp ) = @_;
$timestamp =~ s/T/ /g;
-