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