chris
25 years ago
2 changed files with 60 additions and 2 deletions
@ -0,0 +1,55 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
#written 11/1/2000 by chris@katipo.co.nz |
|||
#script to write off accounts |
|||
|
|||
use strict; |
|||
use CGI; |
|||
use C4::Database; |
|||
my $input=new CGI; |
|||
|
|||
#print $input->header; |
|||
#print $input->dump; |
|||
|
|||
my%inp; |
|||
|
|||
my @name=$input->param; |
|||
for (my $i=0;$i<@name;$i++){ |
|||
my $test=$input->param($name[$i]); |
|||
if ($test eq 'wo'){ |
|||
my $temp=$name[$i]; |
|||
$temp=~ s/payfine//; |
|||
$inp{$name[$i]}=$temp; |
|||
} |
|||
} |
|||
my $bornum=$input->param('bornum'); |
|||
while ( my ($key, $value) = each %inp){ |
|||
# print $key,$value; |
|||
my $accounttype=$input->param("accounttype$value"); |
|||
my $itemno=$input->param("itemnumber$value"); |
|||
if ($accounttype eq 'Res'){ |
|||
my $accountno=$input->param("accountno$value"); |
|||
writeoff($bornum,$accountno,$itemno,$accounttype); |
|||
} else { |
|||
writeoff($bornum,'',$itemno,$accounttype); |
|||
} |
|||
} |
|||
|
|||
print $input->redirect("/cgi-bin/koha/pay.pl?bornum=$bornum"); |
|||
|
|||
#needs to be shifted to a module when time permits |
|||
sub writeoff{ |
|||
my ($bornum,$accountnum,$itemnum,$accounttype)=@_; |
|||
my $dbh=C4Connect; |
|||
my $query="Update accountlines set amountoutstanding=0 where "; |
|||
if ($accounttype eq 'Res'){ |
|||
$query.="accounttype='Res' and accountno='$accountnum' and borrowernumber='$bornum'"; |
|||
} else { |
|||
$query.="accounttype='$accounttype' and itemnumber='$itemnum' and borrowernumber='$bornum'"; |
|||
} |
|||
my $sth=$dbh->prepare($query); |
|||
# print $query; |
|||
$sth->execute; |
|||
$sth->finish; |
|||
$dbh->disconnect; |
|||
} |
Loading…
Reference in new issue