|
Lines 665-671
sub parse_letter { # FIXME: this code should probably be moved to C4::Letters:pa
Link Here
|
| 665 |
no strict; # currency_format behaves badly if we quote the bareword for some reason... |
665 |
no strict; # currency_format behaves badly if we quote the bareword for some reason... |
| 666 |
my $formatted_fine = currency_format("$1", "$fine", FMT_SYMBOL); |
666 |
my $formatted_fine = currency_format("$1", "$fine", FMT_SYMBOL); |
| 667 |
use strict; |
667 |
use strict; |
| 668 |
$formatted_fine = Encode::encode("utf8", $formatted_fine); |
|
|
| 669 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/$formatted_fine/; |
668 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/$formatted_fine/; |
| 670 |
} |
669 |
} |
| 671 |
$params->{'letter'} = C4::Letters::parseletter( $params->{'letter'}, 'biblio', $item ); |
670 |
$params->{'letter'} = C4::Letters::parseletter( $params->{'letter'}, 'biblio', $item ); |
| 672 |
- |
|
|