---
name: "Catmandu::Fix::Bind::mab_each"
section: "3pm"
platform: "linux"
package: "libcatmandu-mab2-perl"
version: "0.24-2"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Catmandu::Fix::Bind::mab_each"
---

# Catmandu::Fix::Bind::mab\_each(3pm)

a binder that loops over MAB2 fields

## NAME

Catmandu::Fix::Bind::mab\_each - a binder that loops over MAB2 fields

## SYNOPSIS

```
    # Only add field 331 to the title when field 412 matches 'Heise'
    do mab_each()
        if mab_match("412","Heise")
            mab_map("331",title)
        end
    end
    # Delete all the 700 subject fields
    do mab_each()
        if mab_match("700",".*")
            reject()
        end
    end
```

## DESCRIPTION

The mab\_each binder will iterate over each individual MAB2 field and  execute the fixes only in context over each individual field.

If a MAB2 record contains:

```
    705    $a775.05$c775
    705    $a702.08$c702
```

then the fix

```
    do mab_each()
        mab_map("705a",subject.$append)
    end
```

will have the same effect as

```
    mab_map("705a",subject.$append)
```

because `"mab_map"` by default loops over all repeated MAB2 fields. But the  `"mab_each"` bind has the advantage to process fields in context. E.g. to  only map fields where the subfield `$c` doesn't contain '702' you  can write:

```
    do mab_each()
        unless mab_match("705","702")
            mab_map("705",subject.$append)
        end
    end
```

## SEE ALSO

Catmandu::Fix::Bind

## AUTHOR

Johann Rolschewski \<jorol@cpan.org\>

## COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Johann Rolschewski.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.