Browse Source

got it so accounts can be paid off

master
chris 21 years ago
parent
commit
97176f0553
1 changed files with 8 additions and 2 deletions
  1. +8
    -2
      pay.pl

+ 8
- 2
pay.pl View File

@@ -7,6 +7,7 @@ use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Accounts2;
my $input=new CGI;


@@ -18,7 +19,7 @@ my $data=borrdata('',$bornum);
#get account details
my %bor;
$bor{'borrowernumber'}=$bornum;
my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);

my @names=$input->param;
my %inp;
@@ -30,8 +31,13 @@ for (my $i=0;$i<@names;$i++){
$check=1;
}
}
my %env;
my $total=$input->param('total');
if ($check ==0){
if ($total ne ''){
recordpayment(\%env,$bornum,$total);
}
my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
print $input->header;
print startpage();
print startmenu('member');


Loading…
Cancel
Save