Koha/boraccount.pl
2000-12-19 23:45:51 +00:00

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> &nbsp; </p>
printend
;
print endmenu('member');
print endpage();