filters => [ 'ExpandCodedFields' ],

            filters => [ 'ExpandCodedFields', 'Punctuation' ],

- 

package Koha::Filter::MARC::Punctuation;

# Copyright 2024 join2

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

=head1 NAME

Koha::Filter::MARC::Punctuation - Automatically add punctuation to

Marc records if the leader specifies they were catalogued without it.

Documentation for proper punctuation:

https://www.loc.gov/aba/pcc/documents/isbdmarc2016.pdf

=head1 SYNOPSIS

=head1 DESCRIPTION

If the Marc leader 18 specifies, that the record was catalogued

without punctuation add the proper punctuation chars to the individual

fields before passing the record on to fruther processing. Once this

filter is applied it should be safe for further steps to assume that

the record holds Marc punctuation. (The records in the database are

_not_ changed.)

Trigger to add punctuation: leader 18 is either `n` or `c`.

Currently handled fields:

- 245

- 246

- 247

=cut

use strict;

use warnings;

use base qw(Koha::RecordProcessor::Base);

our $NAME = 'Punctuation';

=head2 filter

    my $newrecord = $filter->filter($record);

Return title fiels with proper punctuation either as the record held

them already or as they were added.

=cut

sub filter {

    my ( $self, $record ) = @_;

    return

        unless $record and ref($record) eq 'MARC::Record';

    my $leader = $record->leader();

    my $punctuation_omitted = (substr($leader, 18, 1) eq 'c') or

                              (substr($leader, 18, 1) eq 'n');

    if ($punctuation_omitted) {

        foreach my $field ( $record->fields ) {

            if ($field->tag() eq "245") {

                # simple chars _preceeding_ a subfield

                my %pchrs = (

                    'b' => ' : ',

                    'c' => ' / ',

                    'd' => ' ; ',

                    'e' => '. ',

                    'f' => ', ',

                    'g' => ', ',

                    'k' => ' : ',

                    'n' => '. ',

                    'p' => ', ',

                    's' => '. ',

                );

                my $i = 0;

                foreach my $subfield ( $field->subfields ) {

                    my $key   = $subfield->[0];

                    my $value = $subfield->[1];

                    if ( exists $pchrs{$key} ) {

                        $value = $pchrs{$key} . $value;

                    }

                    # media type needs to be enclosed

                    if ($key eq 'h') {

                        $value = '[' . $value . ']';

                    }

                    $field->add_subfields( $key => $value );    # add subfield to the end of the subfield list

                    $field->delete_subfield( pos => 0 );        # delete the subfield at the top of the subfield list

                    $i++;

                    # TBD does titles always end with a `.`?

                }

            }

            if (($field->tag() eq "246") or

                ($field->tag() eq "247")) {

                my %pchrs = (

                    'b' => ' : ',

                    'f' => ', ',

                    'n' => '. ',

                    'q' => ', ',

                    'r' => ' = ',

                    't' => ' = ',

                );

                my $i = 0;

                foreach my $subfield ( $field->subfields ) {

                    my $key   = $subfield->[0];

                    my $value = $subfield->[1];

                    if ( exists $pchrs{$key} ) {

                        $value = $pchrs{$key} . $value;

                    }

                    if ($key eq 'i') {

                        # _append_ a char to i

                        $value .= ': ';

                    }

                    if ($key eq 'g') {

                        $value = '(' . $value . ')';

                    }

                    # media type needs to be enclosed

                    if ($key eq 'h') {

                        $value = '[' . $value . ']';

                    }

                    $field->add_subfields( $key => $value );    # add subfield to the end of the subfield list

                    $field->delete_subfield( pos => 0 );        # delete the subfield at the top of the subfield list

                    $i++;

                    # TBD does titles always end with a `.`?

                }

            }

        }

   }

    return $record;

}

1;