++ed by:
KLEE

1 PAUSE user

Patrick Hochstenbach
and 9 contributors

NAME

Catmandu::Fix::Bind::marc_each - a binder that loops over MARC fields

SYNOPSIS

    # Only add the 720 field to the authors when the $e subfield contains a 'promotor'
    do marc_each()
        if marc_match("720e","promotor")
            marc_map("720ab",authors.$append)
        end
    end

    # Delete all the 500 fields
    do marc_each()
        if marc_has("500")
            reject()
        end
    end

DESCRIPTION

The marc_each binder will iterate over each individual MARC field and execute the fixes on each individual field.

When a MARC record contains:

    500  $aTest
    500  $aTest2$eskip
    500  $aTest3

then the Fix bellow will copy all 500 fields to note field, except for 500 fields with a subfield $e equal to "skip".

    do marc_each()
        unless marc_match("500e",skip)
            marc_map("500",note.$append)
        end
    end

The result will be:

    note: [Test,Test3]

CONFIGURATION

var

Optional loop variable which contains a HASH containing MARC field information with the following fields:

    tag        - The names of the MARC field
    ind1       - The value of the first indicator
    ind2       - The value of the second indicator
    subfields  - An array of subfield items. Each subfield item is a
                 hash of the subfield code and subfield value

Given the MARC field:

    500[1, ] $aTest$bRest

the loop variable will contain:

    tag: 500
    ind1: 1
    ind2: ' '
    subfields:
        - a : Test
        - b : Rest

The loop variables can be used to have extra control over the processing of the MARC fields.

    do marc_each(var:this)
      # Set the indicator1 of all MARC 500 field to the value "3"
      if all_match(this.tag,500)
        set_field(tag.ind1,3)
        # Store the result in the MARC file
        marc_remove(500)
        marc_paste(this)
      end
    end

SEE ALSO

Catmandu::Fix::Bind