/ 
Catmandu-MARC-1.161
River stage one • 1 direct dependent • 1 total dependent
/ Catmandu::Fix::marc_copy

NAME

Catmandu::Fix::marc_copy - copy marc data in a structured way to a new field

SYNOPSIS

# fixed field
marc_copy(001, fixed001)

Can result in:

fixed001 : [
    {
        "tag": "001",
        "ind1": null,
        "ind2": null,
        "content": "fol05882032 "
    }
]

And

# variable field
marc_copy(650, subjects)

Can result in:

subjects:[
    {
        "subfields" : [
            {
                "a" : "Perl (Computer program language)"
            }
        ],
        "ind1" : " ",
        "ind2" : "0",
        "tag" : "650"
  },
  {
        "ind1" : " ",
        "subfields" : [
            {
                "a" : "Web servers."
            }
        ],
        "tag" : "650",
        "ind2" : "0"
  }
]

DESCRIPTION

Copy MARC data referred by MARC_TAG in a structured way to JSON path.

In contrast to Catmandu::Fix::marc_map and Catmandu::Fix::marc_spec marc_copy will not only copy data content (values) but also all data elements like tag, indicators and subfield codes into a nested data structure.

METHODS

marc_copy(MARC_PATH, JSON_PATH, [equals: REGEX])

Copy this MARC fields referred by a MARC_PATH to a JSON_PATH.

When the MARC_PATH points to a MARC tag then only the fields mathching the MARC tag will be copied. When the MATCH_PATH contains indicators or subfields, then only the MARC_FIELDS which contain data in these subfields will be copied. Optional, a equals regular expression can be provided that should match the subfields that need to be copied:

# Copy all the 300 fields
marc_copy(300,tmp)

# Copy all the 300 fields with indicator 1 = 1
marc_copy(300[1],tmp)

# Copy all the 300 fields which have subfield c
marc_copy(300c,tmp)

# Copy all the 300 fields which have subfield c equal to 'ABC'
marc_copy(300c,tmp,equal:"^ABC")

INLINE

This Fix can be used inline in a Perl script:

use Catmandu::Fix::marc_copy as => 'marc_copy';

my $data = { record => ['650', ' ', 0, 'a', 'Perl'] };

$data = marc_copy($data,'650','subject');

print $data->{subject}->[0]->{tag} , "\n"; # '650'
print $data->{subject}->[0]->{ind1} , "\n"; # ' '
print $data->{subject}->[0]->{ind2} , "\n"; # 0
print $data->{subject}->[0]->{subfields}->[0]->{a} , "\n"; # 'Perl'

SEE ALSO

LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.