From ce15a83f74a57248ed8be5e622facf84e3f72cc5 Mon Sep 17 00:00:00 2001 From: rangi Date: Wed, 2 May 2001 21:11:41 +0000 Subject: [PATCH] Turned off the tidy accounts feature in the view accounts screen (boraccount.pl) And got it so outstanding credits are shown on the moremember.pl (view member screen) --- boraccount.pl | 15 ++------------- moremember.pl | 2 +- 2 files changed, 3 insertions(+), 14 deletions(-) diff --git a/boraccount.pl b/boraccount.pl index 822ca5968c..db67e21a9d 100755 --- a/boraccount.pl +++ b/boraccount.pl @@ -27,6 +27,8 @@ print startpage(); print startmenu('member'); print <Account for $data->{'firstname'} $data->{'surname'}

+ +  

@@ -34,10 +36,8 @@ print <FINES & CHARGES - -
printend ; for (my $i=0;$i<$numaccts;$i++){ @@ -57,7 +57,6 @@ printend
- printend ; @@ -70,17 +69,7 @@ print <$total - - - -
AMOUNT STILL OWINGFIX
$accts->[$i]{'amount'} $accts->[$i]{'amountoutstanding'}[$i]{'accountno'} value="$accts->[$i]{'amount'}">
- - - - - -

 

diff --git a/moremember.pl b/moremember.pl index 772a058927..3a7d2fdef6 100755 --- a/moremember.pl +++ b/moremember.pl @@ -121,7 +121,7 @@ for (my$i=0;$i<$numaccts;$i++){ #if ($accts->[$i]{'accounttype'} ne 'Pay'){ my $amount= $accts->[$i]{'amount'} + 0.00; my $amount2= $accts->[$i]{'amountoutstanding'} + 0.00; - if ($amount2 > 0){ + if ($amount2 != 0){ print ""; my $item="   "; @temp=split('-',$accts->[$i]{'date'}); -- 2.39.5