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 687-699
sub parse_letter {
Link Here
|
687 |
$tables{'branches'} = $p; |
688 |
$tables{'branches'} = $p; |
688 |
} |
689 |
} |
689 |
|
690 |
|
690 |
my $currency_format; |
691 |
my $currency_format = GetCurrency()->{currency}; |
691 |
if ( defined $params->{'letter'}->{'content'} |
|
|
692 |
and $params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o ) |
693 |
{ # process any fine tags... |
694 |
$currency_format = $1; |
695 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<item.fine>>/o; |
696 |
} |
697 |
|
692 |
|
698 |
my @item_tables; |
693 |
my @item_tables; |
699 |
if ( my $i = $params->{'items'} ) { |
694 |
if ( my $i = $params->{'items'} ) { |
Lines 705-712
sub parse_letter {
Link Here
|
705 |
$item_format = $1; |
700 |
$item_format = $1; |
706 |
} |
701 |
} |
707 |
|
702 |
|
708 |
$item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL) |
703 |
$item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL); |
709 |
if $currency_format; |
704 |
# if active currency isn't correct ISO code fallback to sprintf |
|
|
705 |
$item->{'fine'} = sprintf('%.2f', $fine) unless $item->{'fine'}; |
710 |
|
706 |
|
711 |
push @item_tables, { |
707 |
push @item_tables, { |
712 |
'biblio' => $item->{'biblionumber'}, |
708 |
'biblio' => $item->{'biblionumber'}, |
713 |
- |
|
|