gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug: 1953. using placeholders in C4::Acquisition::NewOrder. 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Andrew Moore 2008-03-20 17:32:12 -05:00 committed by Joshua Ferraro
parent a610782e6c
commit 5285bb04fe
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C4/Acquisition.pm
View File

@ -403,18 +403,18 @@ sub NewOrder {
my $month = localtime->mon() + 1; # months starts at 0, add 1
if ( !$budget || $budget eq 'now' ) {
$budget = "now()";
$budget = undef;
}
# if month is july or more, budget start is 1 jul, next year.
elsif ( $month >= '7' ) {
++$year; # add 1 to year , coz its next year
$budget = "'$year-07-01'";
$budget = "$year-07-01";
}
else {
# START OF NEW BUDGET, 1ST OF JULY, THIS YEAR
$budget = "'$year-07-01'";
$budget = "$year-07-01";
}
if ( $sub eq 'yes' ) {
@ -434,14 +434,14 @@ sub NewOrder {
INSERT INTO aqorders
( biblionumber,title,basketno,quantity,listprice,notes,
biblioitemnumber,rrp,ecost,gst,unitprice,subscription,sort1,sort2,budgetdate,entrydate,purchaseordernumber)
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,$budget,now(),? )
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,COALESCE(?,NOW()),NOW(),? )
";
my $sth = $dbh->prepare($query);
$sth->execute(
$bibnum, $title, $basketno, $quantity, $listprice,
$notes, $bibitemnum, $rrp, $ecost, $gst,
$cost, $sub, $sort1, $sort2, $purchaseorder
$cost, $sub, $sort1, $sort2, $budget, $purchaseorder
);
$sth->finish;