|
Lines 552-560
foreach my $flag ( sort keys %$flags ) {
Link Here
|
| 552 |
} |
552 |
} |
| 553 |
} |
553 |
} |
| 554 |
|
554 |
|
| 555 |
my $amountold = $flags ? $flags->{'CHARGES'}->{'message'} || 0 : 0; |
|
|
| 556 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
| 557 |
|
| 558 |
my $total = $patron ? $patron->account->balance : 0; |
555 |
my $total = $patron ? $patron->account->balance : 0; |
| 559 |
|
556 |
|
| 560 |
if ( $patron && $patron->is_child) { |
557 |
if ( $patron && $patron->is_child) { |
|
Lines 632-638
$template->param(
Link Here
|
| 632 |
borrowernumber => $borrowernumber, |
629 |
borrowernumber => $borrowernumber, |
| 633 |
branch => $branch, |
630 |
branch => $branch, |
| 634 |
was_renewed => scalar $query->param('was_renewed') ? 1 : 0, |
631 |
was_renewed => scalar $query->param('was_renewed') ? 1 : 0, |
| 635 |
amountold => $amountold, |
|
|
| 636 |
barcodes => $barcodes, |
632 |
barcodes => $barcodes, |
| 637 |
stickyduedate => $stickyduedate, |
633 |
stickyduedate => $stickyduedate, |
| 638 |
duedatespec => $duedatespec, |
634 |
duedatespec => $duedatespec, |