Lines 377-383
$account->add_debit({ amount => 15, interface => 'test', type => 'OVERDUE'})->st
Link Here
|
377 |
my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber }); |
377 |
my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber }); |
378 |
my $totalfine = $lines->total_outstanding; |
378 |
my $totalfine = $lines->total_outstanding; |
379 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
379 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
380 |
my $currency_format = $active_currency->currency if defined($active_currency); |
380 |
my $currency_format = (defined($active_currency)) ? $active_currency->currency : undef; |
381 |
my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL); |
381 |
my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL); |
382 |
$totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted; |
382 |
$totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted; |
383 |
|
383 |
|
384 |
- |
|
|