$overdueItemsCounted++ if $DEBUG;
my $difference=$date-$date2;
my ($amount,$type,$printout)=
$overdueItemsCounted++ if $DEBUG;
my $difference=$date-$date2;
my ($amount,$type,$printout)=
- CalcFine($data->[$i]->{'itemnumber'},
- $borrower->{'categorycode'},
- $difference);
+ CalcFine($data->[$i]->{'itemnumber'},
+ $borrower->{'categorycode'},
+ $difference);
- my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
- $sth->execute($borrower->{'guarantor'});
- my $tdata=$sth->fetchrow_hashref;
- $sth->finish;
- $borrower->{'phone'}=$tdata->{'phone'};
+ my $dbh = C4::Context->dbh;
+ my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
+ $sth->execute($borrower->{'guarantor'});
+ my $tdata=$sth->fetchrow_hashref;
+ $sth->finish;
+ $borrower->{'phone'}=$tdata->{'phone'};
#
# print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 fine\n";
}
if ($difference >= 28){ # FIXME
#
# print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 fine\n";
}
if ($difference >= 28){ # FIXME
#
my $borrower=BorType($data->[$i]->{'borrowernumber'});
if ($borrower->{'cardnumber'} ne ''){
my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
#
my $borrower=BorType($data->[$i]->{'borrowernumber'});
if ($borrower->{'cardnumber'} ne ''){
my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
- my $dbh = C4::Context->dbh;
- my $env;
- my $accountno=C4::Circulation::Circ2::getnextacctno($env,$data->[$i]->{'borrowernumber'},$dbh);
- my $item=getbibliofromitemnumber($env,$dbh,$data->[$i]->{'itemnumber'});
- if ($item->{'itemlost'} ne '1' && $item->{'itemlost'} ne '2' ){
+ my $dbh = C4::Context->dbh;
+ my $accountno=C4::Circulation::Circ2::getnextacctno($data->[$i]->{'borrowernumber'});
+ my $item=GetBiblioFromItemNumber($data->[$i]->{'itemnumber'});
+ if ($item->{'itemlost'} ne '1' && $item->{'itemlost'} ne '2' ){
- my $sth=$dbh->prepare("Insert into accountlines
- (borrowernumber,itemnumber,accountno,date,amount,
- description,accounttype,amountoutstanding) values
- (?,?,?,now(),?,?,'L',?)");
- $sth->execute($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'},
- $accountno,$cost,"Lost item $item->{'title'} $item->{'barcode'} $due",$cost);
- $sth->finish;
- $sth=$dbh->prepare("update items set itemlost=2 where itemnumber=?");
- $sth->execute($data->[$i]->{'itemnumber'});
- $sth->finish;
- }
+ my $sth=$dbh->prepare("INSERT INTO accountlines
+ (borrowernumber,itemnumber,accountno,date,amount,
+ description,accounttype,amountoutstanding) VALUES
+ (?,?,?,now(),?,?,'L',?)");
+ $sth->execute($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'},
+ $accountno,$cost,"Lost item $item->{'title'} $item->{'barcode'} $due",$cost);
+ $sth->finish;
+ $sth=$dbh->prepare("update items set itemlost=2 where itemnumber=?");
+ $sth->execute($data->[$i]->{'itemnumber'});
+ $sth->finish;
+ }