Koha/OAI/Server/GetRecord.pm

   1 # Copyright Tamil s.a.r.l. 2008-2015
   2 # Copyright Biblibre 2008-2015
   3 #
   4 # This file is part of Koha.
   5 #
   6 # Koha is free software; you can redistribute it and/or modify it
   7 # under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 3 of the License, or
   9 # (at your option) any later version.
  10 #
  11 # Koha is distributed in the hope that it will be useful, but
  12 # WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  18
  19 package Koha::OAI::Server::GetRecord;
  20
  21 use Modern::Perl;
  22 use HTTP::OAI;
  23 use C4::Biblio;
  24 use C4::OAI::Sets;
  25 use MARC::File::XML;
  26
  27 use base ("HTTP::OAI::GetRecord");
  28
  29
  30 sub new {
  31     my ($class, $repository, %args) = @_;
  32
  33     my $self = HTTP::OAI::GetRecord->new(%args);
  34
  35     my $dbh = C4::Context->dbh;
  36     my $sth = $dbh->prepare("
  37         SELECT timestamp
  38         FROM   biblioitems
  39         WHERE  biblionumber=? " );
  40     my $prefix = $repository->{koha_identifier} . ':';
  41     my ($biblionumber) = $args{identifier} =~ /^$prefix(.*)/;
  42     $sth->execute( $biblionumber );
  43     my ($timestamp, $deleted);
  44     unless ( ($timestamp) = $sth->fetchrow ) {
  45         unless ( ($timestamp) = $dbh->selectrow_array(q/
  46             SELECT timestamp
  47             FROM deletedbiblio
  48             WHERE biblionumber=? /, undef, $biblionumber ))
  49         {
  50             return HTTP::OAI::Response->new(
  51              requestURL  => $repository->self_url(),
  52              errors      => [ new HTTP::OAI::Error(
  53                 code    => 'idDoesNotExist',
  54                 message => "There is no biblio record with this identifier",
  55                 ) ],
  56             );
  57         }
  58         else {
  59             $deleted = 1;
  60         }
  61     }
  62
  63     # We fetch it using this method, rather than the database directly,
  64     # so it'll include the item data
  65     my $marcxml;
  66     $marcxml = $repository->get_biblio_marcxml($biblionumber, $args{metadataPrefix})
  67         unless $deleted;
  68     my $oai_sets = GetOAISetsBiblio($biblionumber);
  69     my @setSpecs;
  70     foreach (@$oai_sets) {
  71         push @setSpecs, $_->{spec};
  72     }
  73
  74     #$self->header( HTTP::OAI::Header->new( identifier  => $args{identifier} ) );
  75     $self->record(
  76         $deleted
  77         ? Koha::OAI::Server::DeletedRecord->new($timestamp, \@setSpecs, %args)
  78         : Koha::OAI::Server::Record->new($repository, $marcxml, $timestamp, \@setSpecs, %args)
  79     );
  80     return $self;
  81 }
  82
  83 1;