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

(-)a/misc/cronjobs/overdue_notices.pl (-4 lines)
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
- 

Return to bug 4904