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