Lines 654-661
foreach my $flag ( sort keys %$flags ) {
Link Here
|
654 |
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; |
654 |
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; |
655 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
655 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
656 |
|
656 |
|
657 |
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
|
|
658 |
|
659 |
if ( $borrower->{'category_type'} eq 'C') { |
657 |
if ( $borrower->{'category_type'} eq 'C') { |
660 |
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); |
658 |
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); |
661 |
my $cnt = scalar(@$catcodes); |
659 |
my $cnt = scalar(@$catcodes); |
Lines 726-732
$template->param(
Link Here
|
726 |
message => $message, |
724 |
message => $message, |
727 |
CGIselectborrower => $CGIselectborrower, |
725 |
CGIselectborrower => $CGIselectborrower, |
728 |
totalprice => sprintf('%.2f', $totalprice), |
726 |
totalprice => sprintf('%.2f', $totalprice), |
729 |
totaldue => sprintf('%.2f', $total), |
727 |
totaldue => sprintf('%.2f', $borrower->{account_balance}), |
730 |
todayissues => \@todaysissues, |
728 |
todayissues => \@todaysissues, |
731 |
previssues => \@previousissues, |
729 |
previssues => \@previousissues, |
732 |
relissues => \@relissues, |
730 |
relissues => \@relissues, |