3 #wrriten 11/1/2000 by chris@katipo.oc.nz
4 #script to display borrowers account details
7 # Copyright 2000-2002 Katipo Communications
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License along with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA 02111-1307 USA
31 my $bornum=$input->param('bornum');
33 my $data=borrdata('',$bornum);
38 $bor{'borrowernumber'}=$bornum;
39 my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
45 print startmenu('member');
47 <FONT SIZE=6><em>Account for $data->{'firstname'} $data->{'surname'}</em></FONT><P>
48 <a href=/cgi-bin/koha/maninvoice.pl?bornum=$bornum><image src=/images/create-man-invoice.gif border=0></a>
49 <a href=/cgi-bin/koha/mancredit.pl?bornum=$bornum><image src=/images/create-man-credit.gif border=0></a>
52 <TABLE CELLSPACING=0 CELLPADDING=5 border=1 >
54 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><B>FINES & CHARGES</TD>
55 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>AMOUNT</TD>
56 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>STILL OWING</TD>
61 for (my $i=0;$i<$numaccts;$i++){
62 $accts->[$i]{'amount'}+=0.00;
63 $accts->[$i]{'amountoutstanding'}+=0.00;
66 <td>$accts->[$i]{'date'}</td>
67 <TD>$accts->[$i]{'description'}
70 if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
71 print "$accts->[$i]{'title'}";
76 <td>$accts->[$i]{'amount'}</td>
77 <TD>$accts->[$i]{'amountoutstanding'}</td>
85 <TD colspan=2><b>Total Due</b></td>
87 <TD><b>$total</b></td>
96 print endmenu('member');