From rangi@users.sourceforge.net Wed May 2 14:11:44 2001 From: Chris Cormack To: koha-devel@lists.koha-community.org Subject: [Koha-devel] CVS: koha boraccount.pl,1.1.1.1,1.2 moremember.pl,1.5,1.6 Date: Wed, 02 May 2001 14:11:43 -0700 Message-ID: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============6442671848135364191==" --===============6442671848135364191== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv8060 Modified Files: boraccount.pl moremember.pl=20 Log Message: 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) Index: boraccount.pl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/koha/koha/boraccount.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** boraccount.pl 2000/12/19 23:45:51 1.1.1.1 --- boraccount.pl 2001/05/02 21:11:41 1.2 *************** *** 28,31 **** --- 28,33 ---- print <Account for $data->{'firstname'} $data->{'surname'}=

+ +  

*************** *** 35,42 **** AMOUNT STILL OWING - FIX =20 -

printend ; --- 37,42 ---- *************** *** 58,62 **** $accts->[$i]{'amount'} $accts->[$i]{'amountoutstanding'} - [$i]{'accountno'} value=3D= "$accts->[$i]{'amount'}"> printend --- 58,61 ---- *************** *** 71,85 **** =20 -=20 -=20 -=20 -=20 - - - -=20 -=20 -=20

 

--- 70,74 ---- Index: moremember.pl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/koha/koha/moremember.pl,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -r1.5 -r1.6 *** moremember.pl 2001/03/29 02:11:36 1.5 --- moremember.pl 2001/05/02 21:11:41 1.6 *************** *** 122,126 **** my $amount=3D $accts->[$i]{'amount'} + 0.00; my $amount2=3D $accts->[$i]{'amountoutstanding'} + 0.00; ! if ($amount2 > 0){ print ""; my $item=3D"   "; --- 122,126 ---- my $amount=3D $accts->[$i]{'amount'} + 0.00; my $amount2=3D $accts->[$i]{'amountoutstanding'} + 0.00; ! if ($amount2 !=3D 0){ print ""; my $item=3D"   "; --===============6442671848135364191==--