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> +   <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>   </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="   "; --- 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="   ";