|
Lines 649-656
foreach my $flag ( sort keys %$flags ) {
Link Here
|
| 649 |
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; |
649 |
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; |
| 650 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
650 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
| 651 |
|
651 |
|
| 652 |
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
|
|
| 653 |
|
| 654 |
if ( $borrower->{'category_type'} eq 'C') { |
652 |
if ( $borrower->{'category_type'} eq 'C') { |
| 655 |
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); |
653 |
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); |
| 656 |
my $cnt = scalar(@$catcodes); |
654 |
my $cnt = scalar(@$catcodes); |
|
Lines 740-746
$template->param(
Link Here
|
| 740 |
message => $message, |
738 |
message => $message, |
| 741 |
CGIselectborrower => $CGIselectborrower, |
739 |
CGIselectborrower => $CGIselectborrower, |
| 742 |
totalprice => sprintf('%.2f', $totalprice), |
740 |
totalprice => sprintf('%.2f', $totalprice), |
| 743 |
totaldue => sprintf('%.2f', $total), |
741 |
totaldue => sprintf('%.2f', $borrower->{account_balance}), |
| 744 |
todayissues => \@todaysissues, |
742 |
todayissues => \@todaysissues, |
| 745 |
previssues => \@previousissues, |
743 |
previssues => \@previousissues, |
| 746 |
relissues => \@relissues, |
744 |
relissues => \@relissues, |