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 |
- |
|
|