|
Lines 662-671
sub parse_letter { # FIXME: this code should probably be moved to C4::Letters:pa
Link Here
|
| 662 |
$item_format = $1; |
662 |
$item_format = $1; |
| 663 |
} |
663 |
} |
| 664 |
if ($params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/) { # process any fine tags... |
664 |
if ($params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/) { # process any fine tags... |
| 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); |
665 |
my $formatted_fine = currency_format("$1", "$fine", FMT_SYMBOL); |
| 667 |
use strict; |
|
|
| 668 |
$formatted_fine = Encode::encode("utf8", $formatted_fine); |
| 669 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/$formatted_fine/; |
666 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/$formatted_fine/; |
| 670 |
} |
667 |
} |
| 671 |
$params->{'letter'} = C4::Letters::parseletter( $params->{'letter'}, 'biblio', $item ); |
668 |
$params->{'letter'} = C4::Letters::parseletter( $params->{'letter'}, 'biblio', $item ); |
| 672 |
- |
|
|