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