[Koha-devel] CVS: koha boraccount.pl,1.1.1.1,1.2 moremember.pl,1.5,1.6

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv8060

Modified Files:
        boraccount.pl moremember.pl 
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
===================================================================
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 <<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>
***************
*** 35,42 ****
  <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
  ;
--- 37,42 ----
***************
*** 58,62 ****
    <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
--- 58,61 ----
***************
*** 71,85 ****
  
  </tr>
- 
- 
- 
- 
  </table>
- <input type=hidden name=bornum value=$bornum>
- <input type=submit value="Tidy Accounts">
- </form>
- 
- 
- 
  <br clear=all>
  <p> &nbsp; </p>
--- 70,74 ----

Index: moremember.pl
===================================================================
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= $accts->[$i]{'amount'} + 0.00;
      my $amount2= $accts->[$i]{'amountoutstanding'} + 0.00;
!   if ($amount2 > 0){
      print "<tr VALIGN=TOP  >";
      my $item=" &nbsp; ";
--- 122,126 ----
    my $amount= $accts->[$i]{'amount'} + 0.00;
      my $amount2= $accts->[$i]{'amountoutstanding'} + 0.00;
!   if ($amount2 != 0){
      print "<tr VALIGN=TOP  >";
      my $item=" &nbsp; ";