|
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 |
- |
|
|