Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 8378 - <fine> in overdues changed to <<items.fine>>

Browse source 
This patch reintroduces fines in overdue_notices.pl with minimal
changes to exsiting code.

It DOES changes template syntax, it used to be <fine>USD</fine> but
currency was not recalculated and used only to select format, so
now we are using active system currency because values are in it
anyway.

Example notify template:

<item>"<<biblio.title>>" by <<biblio.author>>, <<items.itemcallnumber>>,
Barcode: <<items.barcode>> Fine: <<items.fine>> </item>

If your active currency doesn't have valid ISO code this code will
fallback to sprintf with two decimal digits, and you can insert
currency symbol in template itself (currency field is not editable
through web interface, so this fallback might be useful for existing
installations).

Test scenario:
1. configure fine amount under "Circulation and fines rules"
   for patron category and item type
2. checkout item with correct type to partron in correct
   category with due date set to yesterday
3. verify that overdue notice uses new <<items.fine>> tag
4. run ./misc/cronjobs/fines.pl to calculate fines
5. run ./misc/cronjobs/overdue_notices.pl -n
   and verify that fine amount is included

Notes: Tested using the default ODUE notice, changing:
<fines>USD</fines>
for
<<items.fine>>

Everything worked as expected with finesmode=production set.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
This commit is contained in:
Dobrica Pavlinusic 2013-03-19 13:40:50 +01:00 committed by Jared Camins-Esakov
parent b6b5f2b59a
commit 15b6a41a67
1 changed files with 5 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
misc/cronjobs/overdue_notices.pl
View file

@ -40,6 +40,7 @@ use C4::Dates qw/format_date/;
use C4::Debug;
use C4::Letters;
use C4::Overdues qw(GetFine);
use C4::Budgets qw(GetCurrency);
=head1 NAME
@ -687,13 +688,7 @@ sub parse_letter {
$tables{'branches'} = $p;
}
my $currency_format;
if ( defined $params->{'letter'}->{'content'}
and $params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o )
{ # process any fine tags...
$currency_format = $1;
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<item.fine>>/o;
}
my $currency_format = GetCurrency()->{currency};
my @item_tables;
if ( my $i = $params->{'items'} ) {
@ -705,8 +700,9 @@ sub parse_letter {
$item_format = $1;
}
$item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL)
if $currency_format;
$item->{'fine'} = currency_format($currency_format, "$fine", FMT_SYMBOL);
# if active currency isn't correct ISO code fallback to sprintf
$item->{'fine'} = sprintf('%.2f', $fine) unless $item->{'fine'};
push @item_tables, {
'biblio' => $item->{'biblionumber'},