View | Details | Raw Unified | Return to bug 13961
Collapse All | Expand All

(-)a/C4/Letters.pm (-6 / +7 lines)
Lines 637-647 sub GetPreparedLetter { Link Here
637
    my $currency_format = (defined($active_currency)) ? $active_currency->currency : undef;
637
    my $currency_format = (defined($active_currency)) ? $active_currency->currency : undef;
638
638
639
    my $borrowernumber = $tables->{borrowers};
639
    my $borrowernumber = $tables->{borrowers};
640
    my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber  });
640
    if($borrowernumber && !ref($borrowernumber)){
641
    my ($totalfine) = $lines->total_outstanding;
641
        my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber  });
642
    my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL);
642
        my ($totalfine) = $lines->total_outstanding;
643
    $totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted;
643
        my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL);
644
    $letter->{content} =~ s/<<borrowers.account_balance>>/$totalfine_formatted/go;
644
        $totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted;
645
        $letter->{content} =~ s/<<borrowers.account_balance>>/$totalfine_formatted/go;
646
    }
645
647
646
    if ($want_librarian) {
648
    if ($want_librarian) {
647
        # parsing librarian name
649
        # parsing librarian name
648
- 

Return to bug 13961