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

(-)a/C4/Letters.pm (-2 / +1 lines)
Lines 645-651 sub GetPreparedLetter { Link Here
645
645
646
    my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
646
    my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
647
    $letter->{content} =~ s/<<OPACBaseURL>>/$OPACBaseURL/go;
647
    $letter->{content} =~ s/<<OPACBaseURL>>/$OPACBaseURL/go;
648
    
648
649
    my ($totalfine) = C4::Members::GetMemberAccountRecords($tables->{borrowers});
649
    my ($totalfine) = C4::Members::GetMemberAccountRecords($tables->{borrowers});
650
    $totalfine = sprintf("%.2f", $totalfine);
650
    $totalfine = sprintf("%.2f", $totalfine);
651
    $letter->{content} =~ s/<<borrowers.totalfine>>/$totalfine/go;
651
    $letter->{content} =~ s/<<borrowers.totalfine>>/$totalfine/go;
652
- 

Return to bug 13961