(borrowernumber, accountno, offsetaccount, offsetamount)
values
('$data->{'borrowernumber'}','$accdata->{'accountno'}','$nextaccntno','$newamtos')";
- my $usth = $dbh->prepare($updquery);
+ $usth = $dbh->prepare($updquery);
$usth->execute;
$usth->finish;
}
$sth->execute();
my $cnt=0;
if (my $data=$sth->fetchrow_hashref) {
- @itemswaiting[$cnt] =$data;
+ $itemswaiting[$cnt] =$data;
$cnt ++
}
$sth->finish;
$datedue = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
}
my @date = split("-",$datedue);
- my $odatedue = (@date[2]+0)."-".(@date[1]+0)."-".@date[0];
+ my $odatedue = ($date[2]+0)."-".($date[1]+0)."-".$date[0];
my $issquery = "select * from issues where borrowernumber='$bornum' and
itemnumber='$itemno' and returndate is null";
my $sth=$dbh->prepare($issquery);
set date_due = '$datedue', renewals = '$renews'
where borrowernumber='$bornum' and
itemnumber='$itemno' and returndate is null";
- my $sth=$dbh->prepare($updquery);
+ $sth=$dbh->prepare($updquery);
$sth->execute;
$sth->finish;
my $discount = $data2->{'rentaldiscount'};
$charge = ($charge *(100 - $discount)) / 100;
}
- $sth2->{'finish'};
+ $sth2->finish;
}
$sth1->finish;
return ($charge);