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