View | Details | Raw Unified | Return to bug 9886
Collapse All | Expand All

(-)a/C4/Letters.pm (-2 / +5 lines)
Lines 620-626 sub _parseletter { Link Here
620
    while ( my ($field, $val) = each %$values ) {
620
    while ( my ($field, $val) = each %$values ) {
621
        my $replacetablefield = "<<$table.$field>>";
621
        my $replacetablefield = "<<$table.$field>>";
622
        my $replacefield = "<<$field>>";
622
        my $replacefield = "<<$field>>";
623
        $val =~ s/\p{P}(?=$)//g if $val;
623
        $val =~ s/\p{P}$// if $val && $table=~/biblio/;
624
            #BZ 9886: Assuming that we want to eliminate ISBD punctuation here
625
            #Therefore adding the test on biblio. This includes biblioitems,
626
            #but excludes items. Removed unneeded global and lookahead.
627
624
        my $replacedby   = defined ($val) ? $val : '';
628
        my $replacedby   = defined ($val) ? $val : '';
625
        ($letter->{title}  ) and do {
629
        ($letter->{title}  ) and do {
626
            $letter->{title}   =~ s/$replacetablefield/$replacedby/g;
630
            $letter->{title}   =~ s/$replacetablefield/$replacedby/g;
627
- 

Return to bug 9886