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