Browse Source

script to show borrowers account details

master
chris 22 years ago
parent
commit
cff1cd2835
  1. 89
      boraccount.pl
  2. 4
      fines.pl

89
boraccount.pl

@ -0,0 +1,89 @@
#!/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=4><B>FINES & CHARGES</TD>
<td bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>CALCULATE</TD>
</TR>
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]{'accounttype'}</td>
<td>$accts->[$i]{'amount'}</td>
<TD>$accts->[$i]{'amountoutstanding'}</td>
</tr>
printend
;
}
print <<printend
<tr VALIGN=TOP >
<TD></td>
<TD colspan=2><b>Total Due</b></td>
<TD><b>$total</b></td>
</tr>
</form>
</table>
<br clear=all>
<p> &nbsp; </p>
printend
;
print endmenu('member');
print endpage();

4
fines.pl

@ -13,8 +13,8 @@ my $count2=0;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$mon++;
$year=$year+1900;
my $date=Date_DaysSince999($mon,$mday,$year);
#my $date=Date_DaysSince999(1,14,2000);
#my $date=Date_DaysSince999($mon,$mday,$year);
my $date=Date_DaysSince999(1,18,2000);
my $bornum;
my $borrower;
my $max=5;

Loading…
Cancel
Save