#!/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 <Account for $data->{'firstname'} $data->{'surname'}

 

printend ; for (my $i=0;$i<$numaccts;$i++){ $accts->[$i]{'amount'}+=0.00; $accts->[$i]{'amountoutstanding'}+=0.00; print < printend ; } print <
FINES & CHARGES AMOUNT STILL OWING
$accts->[$i]{'date'} $accts->[$i]{'description'} printend ; if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){ print "$accts->[$i]{'title'}"; } print < $accts->[$i]{'amount'} $accts->[$i]{'amountoutstanding'}
Total Due $total

 

printend ; print endmenu('member'); print endpage();