3 #wrriten 11/1/2000 by chris@katipo.oc.nz
4 #script to display borrowers account details
13 my $bornum=$input->param('bornum');
15 my $data=borrdata('',$bornum);
20 $bor{'borrowernumber'}=$bornum;
21 my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
27 print startmenu('member');
29 <FONT SIZE=6><em>Account for $data->{'firstname'} $data->{'surname'}</em></FONT><P>
32 <TABLE CELLSPACING=0 CELLPADDING=5 border=1 >
34 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><B>FINES & CHARGES</TD>
35 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>AMOUNT</TD>
36 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>STILL OWING</TD>
37 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>FIX</B></TD>
40 <form method=post action=tidyaccounts.pl>
43 for (my $i=0;$i<$numaccts;$i++){
44 $accts->[$i]{'amount'}+=0.00;
45 $accts->[$i]{'amountoutstanding'}+=0.00;
48 <td>$accts->[$i]{'date'}</td>
49 <TD>$accts->[$i]{'description'}
52 if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
53 print "$accts->[$i]{'title'}";
58 <td>$accts->[$i]{'amount'}</td>
59 <TD>$accts->[$i]{'amountoutstanding'}</td>
60 <td><input type=text size=5 name=$accts->[$i]{'accountno'} value="$accts->[$i]{'amount'}"></td>
68 <TD colspan=2><b>Total Due</b></td>
70 <TD><b>$total</b></td>
78 <input type=hidden name=bornum value=$bornum>
79 <input type=submit value="Tidy Accounts">
89 print endmenu('member');