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 $prefix = $repository->{koha_identifier} . ':';
  36     my ($biblionumber) = $args{identifier} =~ /^$prefix(.*)/;
  37     my $items_included = $repository->items_included( $args{metadataPrefix} );
  38     my $dbh = C4::Context->dbh;
  39     my $sql;
  40     my @bind_params = ($biblionumber);
  41     if ( $items_included ) {
  42         # Take latest timestamp of biblio and any items
  43         # Or timestamp of deleted items where bib not deleted
  44         $sql .= "
  45             SELECT timestamp
  46             FROM   biblio_metadata
  47             WHERE  biblionumber=?
  48               UNION
  49             SELECT deleteditems.timestamp FROM deleteditems JOIN biblio USING (biblionumber)
  50             WHERE  deleteditems.biblionumber=?
  51               UNION
  52             SELECT timestamp from items
  53             WHERE  biblionumber=?
  54         ";
  55         push @bind_params, $biblionumber;
  56         push @bind_params, $biblionumber;
  57         $sql = "
  58             SELECT max(timestamp) as timestamp
  59             FROM ($sql) bib
  60         ";
  61     } else {
  62         $sql = "
  63             SELECT max(timestamp) as timestamp
  64             FROM   biblio_metadata
  65             WHERE  biblionumber=?
  66         ";
  67     }
  68
  69     my $sth = $dbh->prepare( $sql ) || die( 'Could not prepare statement: ' . $dbh->errstr );
  70     $sth->execute( @bind_params ) || die( 'Could not execute statement: ' . $sth->errstr );
  71     my ($timestamp, $deleted);
  72     # If there are no rows in biblio_metadata, try deletedbiblio_metadata
  73     unless ( ($timestamp = $sth->fetchrow) ) {
  74         $sql = "
  75             SELECT max(timestamp)
  76             FROM   deletedbiblio_metadata
  77             WHERE  biblionumber=?
  78         ";
  79         @bind_params = ($biblionumber);
  80
  81         $sth = $dbh->prepare($sql) || die('Could not prepare statement: ' . $dbh->errstr);
  82         $sth->execute( @bind_params ) || die('Could not execute statement: ' . $sth->errstr);
  83         unless ( ($timestamp = $sth->fetchrow) )
  84         {
  85             return HTTP::OAI::Response->new(
  86              requestURL  => $repository->self_url(),
  87              errors      => [ HTTP::OAI::Error->new(
  88                 code    => 'idDoesNotExist',
  89                 message => "There is no biblio record with this identifier",
  90                 ) ],
  91             );
  92         }
  93         $deleted = 1;
  94     }
  95
  96     my $oai_sets = GetOAISetsBiblio($biblionumber);
  97     my @setSpecs;
  98     foreach (@$oai_sets) {
  99         push @setSpecs, $_->{spec};
 100     }
 101
 102     if ($deleted) {
 103         $self->record(
 104             Koha::OAI::Server::DeletedRecord->new($timestamp, \@setSpecs, %args)
 105         );
 106     } else {
 107         # We fetch it using this method, rather than the database directly,
 108         # so it'll include the item data
 109         my $marcxml = $repository->get_biblio_marcxml($biblionumber, $args{metadataPrefix});
 110         $self->record(
 111             Koha::OAI::Server::Record->new($repository, $marcxml, $timestamp, \@setSpecs, %args)
 112         );
 113     }
 114     return $self;
 115 }
 116
 117 1;