|
Lines 555-563
foreach my $flag ( sort keys %$flags ) {
Link Here
|
| 555 |
} |
555 |
} |
| 556 |
} |
556 |
} |
| 557 |
|
557 |
|
| 558 |
my $amountold = $flags ? $flags->{'CHARGES'}->{'message'} || 0 : 0; |
|
|
| 559 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
| 560 |
|
| 561 |
my $total = $patron ? $patron->account->balance : 0; |
558 |
my $total = $patron ? $patron->account->balance : 0; |
| 562 |
|
559 |
|
| 563 |
if ( $patron && $patron->category->category_type eq 'C') { |
560 |
if ( $patron && $patron->category->category_type eq 'C') { |
|
Lines 639-645
$template->param(
Link Here
|
| 639 |
borrowernumber => $borrowernumber, |
636 |
borrowernumber => $borrowernumber, |
| 640 |
branch => $branch, |
637 |
branch => $branch, |
| 641 |
was_renewed => scalar $query->param('was_renewed') ? 1 : 0, |
638 |
was_renewed => scalar $query->param('was_renewed') ? 1 : 0, |
| 642 |
amountold => $amountold, |
|
|
| 643 |
barcodes => $barcodes, |
639 |
barcodes => $barcodes, |
| 644 |
stickyduedate => $stickyduedate, |
640 |
stickyduedate => $stickyduedate, |
| 645 |
duedatespec => $duedatespec, |
641 |
duedatespec => $duedatespec, |