|
Lines 660-667
foreach my $flag ( sort keys %$flags ) {
Link Here
|
| 660 |
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; |
660 |
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; |
| 661 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
661 |
$amountold =~ s/^.*\$//; # remove upto the $, if any |
| 662 |
|
662 |
|
| 663 |
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
|
|
| 664 |
|
| 665 |
if ( $borrowernumber && $borrower->{'category_type'} eq 'C') { |
663 |
if ( $borrowernumber && $borrower->{'category_type'} eq 'C') { |
| 666 |
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); |
664 |
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); |
| 667 |
my $cnt = scalar(@$catcodes); |
665 |
my $cnt = scalar(@$catcodes); |
|
Lines 732-738
$template->param(
Link Here
|
| 732 |
message => $message, |
730 |
message => $message, |
| 733 |
CGIselectborrower => $CGIselectborrower, |
731 |
CGIselectborrower => $CGIselectborrower, |
| 734 |
totalprice => sprintf('%.2f', $totalprice), |
732 |
totalprice => sprintf('%.2f', $totalprice), |
| 735 |
totaldue => sprintf('%.2f', $total), |
733 |
totaldue => sprintf('%.2f', $borrower->{account_balance}), |
| 736 |
todayissues => \@todaysissues, |
734 |
todayissues => \@todaysissues, |
| 737 |
previssues => \@previousissues, |
735 |
previssues => \@previousissues, |
| 738 |
relissues => \@relissues, |
736 |
relissues => \@relissues, |