gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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)
This commit is contained in:
rangi 2001-05-02 21:11:41 +00:00
parent d0edf609e6
commit ce15a83f74
2 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
boraccount.pl
View File

@ -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>

2
moremember.pl
View File

@ -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'});