1 package Koha::MetadataRecord;
3 # Copyright 2013 C & P Bibliography Services
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 Koha::MetadataRecord - base class for metadata records
26 my $record = new Koha::MetadataRecord({ 'record' => $record });
30 Object-oriented class that encapsulates all metadata (i.e. bibliographic
31 and authority) records in Koha.
40 use base qw(Class::Accessor);
42 __PACKAGE__->mk_accessors(qw( record schema format id ));
47 my $metadata_record = new Koha::MetadataRecord({
54 Returns a Koha::MetadataRecord object encapsulating record metadata.
56 C<$record> is expected to be a deserialized object (for example
57 a MARC::Record or XML::LibXML::Document object or JSON).
59 C<$schema> is used to describe the metadata schema (for example
60 marc21, unimarc, dc, mods, etc).
62 C<$format> is used to specify the serialization format. It is important
63 for Koha::RecordProcessor because it will pick the right Koha::Filter
64 implementation based on this parameter. Valid values are:
66 MARC (for MARC::Record objects)
67 XML (for XML::LibXML::Document objects)
68 JSON (for JSON objects)
70 (optional) C<$id> is used so the record carries its own id and Koha doesn't
71 need to look for it inside the record.
80 if (!defined $params->{ record }) {
81 carp 'No record passed';
85 my $record = $params->{ record };
86 my $schema = $params->{ schema } // 'marc21';
87 my $format = $params->{ format } // 'MARC';
88 my $id = $params->{ id };
90 my $self = $class->SUPER::new({
101 =head2 createMergeHash
103 Create a hash for use when merging records. At the moment the only
104 metadata schema supported is MARC.
108 sub createMergeHash {
109 my ($self, $tagslib) = @_;
110 if ($self->schema =~ m/marc/) {
111 return Koha::Util::MARC::createMergeHash($self->record, $tagslib);