boraccount.pl

   1 #!/usr/bin/perl
   2
   3 #wrriten 11/1/2000 by chris@katipo.oc.nz
   4 #script to display borrowers account details
   5
   6 use strict;
   7 use C4::Output;
   8 use CGI;
   9 use C4::Search;
  10 my $input=new CGI;
  11
  12
  13 my $bornum=$input->param('bornum');
  14 #get borrower details
  15 my $data=borrdata('',$bornum);
  16
  17
  18 #get account details
  19 my %bor;
  20 $bor{'borrowernumber'}=$bornum;
  21 my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
  22
  23
  24
  25 print $input->header;
  26 print startpage();
  27 print startmenu('member');
  28 print <<printend
  29 <FONT SIZE=6><em>Account for $data->{'firstname'} $data->{'surname'}</em></FONT><P>
  30 <a href=/cgi-bin/koha/maninvoice.pl?bornum=$bornum><image src=/images/create-man-invoice.gif border=0></a>
  31  &nbsp; <a href=/cgi-bin/koha/mancredit.pl?bornum=$bornum><image src=/images/create-man-credit.gif border=0></a>
  32 <center>
  33 <p>
  34 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
  35 <TR VALIGN=TOP>
  36 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><B>FINES & CHARGES</TD>
  37 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>AMOUNT</TD>
  38 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>STILL OWING</TD>
  39 </TR>
  40
  41 printend
  42 ;
  43 for (my $i=0;$i<$numaccts;$i++){
  44   $accts->[$i]{'amount'}+=0.00;
  45   $accts->[$i]{'amountoutstanding'}+=0.00;
  46   print <<printend
  47   <tr VALIGN=TOP  >
  48   <td>$accts->[$i]{'date'}</td>
  49   <TD>$accts->[$i]{'description'}
  50 printend
  51 ;
  52   if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
  53      print "$accts->[$i]{'title'}";
  54   }
  55   print <<printend
  56   </td>
  57
  58   <td>$accts->[$i]{'amount'}</td>
  59   <TD>$accts->[$i]{'amountoutstanding'}</td>
  60 </tr>
  61 printend
  62 ;
  63 }
  64 print <<printend
  65 <tr VALIGN=TOP  >
  66 <TD></td>
  67 <TD colspan=2><b>Total Due</b></td>
  68
  69 <TD><b>$total</b></td>
  70
  71 </tr>
  72 </table>
  73 <br clear=all>
  74 <p> &nbsp; </p>
  75
  76 printend
  77 ;
  78 print endmenu('member');
  79 print endpage();
  80