Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 78 lines (71 sloc) 2.207 kB
#!/usr/bin/perl
#written 11/1/2000 by chris@katipo.co.nz
#script to write off accounts
use strict;
use CGI;
use C4::Database;
use C4::Stats;
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;
while ( my ($key, $value) = each %inp){
# print $key,$value;
my $accounttype=$input->param("accounttype$value");
$bornum=$input->param("bornum$value");
my $itemno=$input->param("itemnumber$value");
my $amount=$input->param("amount$value");
if ($accounttype eq 'Res'){
my $accountno=$input->param("accountno$value");
writeoff($bornum,$accountno,$itemno,$accounttype,$amount);
} else {
writeoff($bornum,'',$itemno,$accounttype,$amount);
}
}
#print $input->header;
$bornum=$input->param('bornum');
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,$amount)=@_;
my $user=$input->remote_user;
$user=~ s/Levin/C/;
$user=~ s/Foxton/F/;
$user=~ s/Shannon/S/;
my $dbh=C4Connect;
my $env;
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;
$query="select max(accountno) from accountlines";
$sth=$dbh->prepare($query);
$sth->execute;
my $account=$sth->fetchrow_hashref;
$sth->finish;
$account->{'max(accountno)'}++;
$query="insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype)
values ('$bornum','$account->{'max(accountno)'}','$itemnum',now(),'$amount','Writeoff','W')";
$sth=$dbh->prepare($query);
$sth->execute;
$sth->finish;
# print $query;
$dbh->disconnect;
UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum);
}
Jump to Line
Something went wrong with that request. Please try again.