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

(-)a/misc/cronjobs/overdue_notices.pl (-10 / +5 lines)
Lines 40-45 use C4::Dates qw/format_date/; Link Here
40
use C4::Debug;
40
use C4::Debug;
41
use C4::Letters;
41
use C4::Letters;
42
use C4::Overdues qw(GetFine);
42
use C4::Overdues qw(GetFine);
43
use C4::Budgets qw(GetCurrency);
43
44
44
=head1 NAME
45
=head1 NAME
45
46
Lines 707-719 sub parse_letter { Link Here
707
        $tables{'branches'} = $p;
708
        $tables{'branches'} = $p;
708
    }
709
    }
709
710
710
    my $currency_format;
711
    my $currency_format = GetCurrency()->{currency};
711
    if ( defined $params->{'letter'}->{'content'}
712
        and $params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o )
713
    {    # process any fine tags...
714
        $currency_format = $1;
715
        $params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<item.fine>>/o;
716
    }
717
712
718
    my @item_tables;
713
    my @item_tables;
719
    if ( my $i = $params->{'items'} ) {
714
    if ( my $i = $params->{'items'} ) {
Lines 725-732 sub parse_letter { Link Here
725
                $item_format = $1;
720
                $item_format = $1;
726
            }
721
            }
727
722
728
            $item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL)
723
            $item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL);
729
              if $currency_format;
724
            # if active currency isn't correct ISO code fallback to sprintf
725
            $item->{'fine'} = sprintf('%.2f', $fine) unless $item->{'fine'};
730
726
731
            push @item_tables, {
727
            push @item_tables, {
732
                'biblio' => $item->{'biblionumber'},
728
                'biblio' => $item->{'biblionumber'},
733
- 

Return to bug 8378