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

(-)a/C4/Overdues.pm (-7 lines)
Lines 1009-1022 sub parse_overdues_letter { Link Here
1009
1009
1010
    my @item_tables;
1010
    my @item_tables;
1011
    if ( my $i = $params->{'items'} ) {
1011
    if ( my $i = $params->{'items'} ) {
1012
        my $item_format = '';
1013
        foreach my $item (@$i) {
1012
        foreach my $item (@$i) {
1014
            my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'});
1013
            my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'});
1015
            if ( !$item_format and defined $params->{'letter'}->{'content'} ) {
1016
                $params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/;
1017
                $item_format = $1;
1018
            }
1019
1020
            $item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL);
1014
            $item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL);
1021
            # if active currency isn't correct ISO code fallback to sprintf
1015
            # if active currency isn't correct ISO code fallback to sprintf
1022
            $item->{'fine'} = sprintf('%.2f', $fine) unless $item->{'fine'};
1016
            $item->{'fine'} = sprintf('%.2f', $fine) unless $item->{'fine'};
1023
- 

Return to bug 17968