91 lines
1.9 KiB
Perl
Executable file
91 lines
1.9 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#wrriten 11/1/2000 by chris@katipo.oc.nz
|
|
#script to display borrowers account details
|
|
|
|
use strict;
|
|
use C4::Output;
|
|
use CGI;
|
|
use C4::Search;
|
|
my $input=new CGI;
|
|
|
|
|
|
my $bornum=$input->param('bornum');
|
|
#get borrower details
|
|
my $data=borrdata('',$bornum);
|
|
|
|
|
|
#get account details
|
|
my %bor;
|
|
$bor{'borrowernumber'}=$bornum;
|
|
my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
|
|
|
|
|
|
|
|
print $input->header;
|
|
print startpage();
|
|
print startmenu('member');
|
|
print <<printend
|
|
<FONT SIZE=6><em>Account for $data->{'firstname'} $data->{'surname'}</em></FONT><P>
|
|
<center>
|
|
<p>
|
|
<TABLE CELLSPACING=0 CELLPADDING=5 border=1 >
|
|
<TR VALIGN=TOP>
|
|
<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++){
|
|
$accts->[$i]{'amount'}+=0.00;
|
|
$accts->[$i]{'amountoutstanding'}+=0.00;
|
|
print <<printend
|
|
<tr VALIGN=TOP >
|
|
<td>$accts->[$i]{'date'}</td>
|
|
<TD>$accts->[$i]{'description'}
|
|
printend
|
|
;
|
|
if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
|
|
print "$accts->[$i]{'title'}";
|
|
}
|
|
print <<printend
|
|
</td>
|
|
|
|
<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
|
|
;
|
|
}
|
|
print <<printend
|
|
<tr VALIGN=TOP >
|
|
<TD></td>
|
|
<TD colspan=2><b>Total Due</b></td>
|
|
|
|
<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> </p>
|
|
|
|
printend
|
|
;
|
|
print endmenu('member');
|
|
print endpage();
|
|
|