Lines 365-371
$account->add_debit({ amount => 15, interface => 'test', type => 'OVERDUE'})->st
Link Here
|
365 |
my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber }); |
365 |
my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber }); |
366 |
my $totalfine = $lines->total_outstanding; |
366 |
my $totalfine = $lines->total_outstanding; |
367 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
367 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
368 |
my $currency_format = $active_currency->currency if defined($active_currency); |
368 |
my $currency_format = (defined($active_currency)) ? $active_currency->currency : undef; |
369 |
my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL); |
369 |
my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL); |
370 |
$totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted; |
370 |
$totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted; |
371 |
|
371 |
|
372 |
- |
|
|