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 <center>
  31 <p>
  32 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
  33 <TR VALIGN=TOP>
  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>
  38 </TR>
  39
  40 <form method=post action=tidyaccounts.pl>
  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   <td><input type=text size=5 name=$accts->[$i]{'accountno'} value="$accts->[$i]{'amount'}"></td>
  61 </tr>
  62 printend
  63 ;
  64 }
  65 print <<printend
  66 <tr VALIGN=TOP  >
  67 <TD></td>
  68 <TD colspan=2><b>Total Due</b></td>
  69
  70 <TD><b>$total</b></td>
  71
  72 </tr>
  73
  74
  75
  76
  77 </table>
  78 <input type=hidden name=bornum value=$bornum>
  79 <input type=submit value="Tidy Accounts">
  80 </form>
  81
  82
  83
  84 <br clear=all>
  85 <p> &nbsp; </p>
  86
  87 printend
  88 ;
  89 print endmenu('member');
  90 print endpage();
  91