[Koha-devel] CVS: koha boraccount.pl,1.1.1.1,1.2 moremember.pl,1.5,1.6
Chris Cormack
rangi at users.sourceforge.net
Wed May 2 23:11:43 CEST 2001
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=" ";
More information about the Koha-devel
mailing list