From ce15a83f74a57248ed8be5e622facf84e3f72cc5 Mon Sep 17 00:00:00 2001
From: rangi <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 <<printend
 <FONT SIZE=6><em>Account for $data->{'firstname'} $data->{'surname'}</em></FONT><P>
+<a href=/cgi-bin/koha/maninvoice.pl?bornum=$bornum><image src=/images/create-man-invoice.gif border=0></a>
+ &nbsp; <a href=/cgi-bin/koha/mancredit.pl?bornum=$bornum><image src=/images/create-man-credit.gif border=0></a>
 <center>
 <p>
 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
@@ -34,10 +36,8 @@ print <<printend
 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><B>FINES & CHARGES</TD>
 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>AMOUNT</TD>
 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>STILL OWING</TD>
-<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>FIX</B></TD>
 </TR>
 
-<form method=post action=tidyaccounts.pl>
 printend
 ;
 for (my $i=0;$i<$numaccts;$i++){
@@ -57,7 +57,6 @@ printend
 
   <td>$accts->[$i]{'amount'}</td>
   <TD>$accts->[$i]{'amountoutstanding'}</td>
-  <td><input type=text size=5 name=$accts->[$i]{'accountno'} value="$accts->[$i]{'amount'}"></td>
 </tr>
 printend
 ;
@@ -70,17 +69,7 @@ print <<printend
 <TD><b>$total</b></td>
 
 </tr>
-
-
-
-
 </table>
-<input type=hidden name=bornum value=$bornum>
-<input type=submit value="Tidy Accounts">
-</form>
-
-
-
 <br clear=all>
 <p> &nbsp; </p>
 
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 "<tr VALIGN=TOP  >";
     my $item=" &nbsp; ";
     @temp=split('-',$accts->[$i]{'date'});
-- 
2.39.5