Lines 540-548
foreach my $flag ( sort keys %$flags ) {
Link Here
|
540 |
} |
540 |
} |
541 |
} |
541 |
} |
542 |
|
542 |
|
543 |
my $amountold = $flags ? $flags->{'CHARGES'}->{'message'} || 0 : 0; |
|
|
544 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
545 |
|
546 |
my $total = $patron ? $patron->account->balance : 0; |
543 |
my $total = $patron ? $patron->account->balance : 0; |
547 |
|
544 |
|
548 |
if ( $patron && $patron->category->category_type eq 'C') { |
545 |
if ( $patron && $patron->category->category_type eq 'C') { |
Lines 624-630
$template->param(
Link Here
|
624 |
borrowernumber => $borrowernumber, |
621 |
borrowernumber => $borrowernumber, |
625 |
branch => $branch, |
622 |
branch => $branch, |
626 |
was_renewed => scalar $query->param('was_renewed') ? 1 : 0, |
623 |
was_renewed => scalar $query->param('was_renewed') ? 1 : 0, |
627 |
amountold => $amountold, |
|
|
628 |
barcodes => $barcodes, |
624 |
barcodes => $barcodes, |
629 |
stickyduedate => $stickyduedate, |
625 |
stickyduedate => $stickyduedate, |
630 |
duedatespec => $duedatespec, |
626 |
duedatespec => $duedatespec, |