- my ($basketno,$bibnum,$title,$quantity,$listprice,$booksellerid,$authorisedby,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$sub,$invoice,$sort1,$sort2)=@_;
- if ($budget eq 'now'){
- $budget="now()";
- } else {
- $budget="'2001-07-01'";
- }
- if ($sub eq 'yes'){
- $sub=1;
- } else {
- $sub=0;
- }
- # if $basket empty, it's also a new basket, create it
- unless ($basketno) {
- $basketno=newbasket($booksellerid,$authorisedby);
- }
- my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("insert into aqorders
- (biblionumber,title,basketno,quantity,listprice,notes,
- biblioitemnumber,rrp,ecost,gst,unitprice,subscription,sort1,sort2)
- values (?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
- $sth->execute($bibnum,$title,$basketno,$quantity,$listprice,$notes,
- $bibitemnum,$rrp,$ecost,$gst,$cost,$sub,$sort1,$sort2);
- $sth->finish;
- #get ordnum MYSQL dependant, but $dbh->last_insert_id returns null
- my $ordnum = $dbh->{'mysql_insertid'};
- $sth=$dbh->prepare("insert into aqorderbreakdown (ordernumber,bookfundid) values
- (?,?)");
- $sth->execute($ordnum,$bookfund);
- $sth->finish;
- return $basketno;
+ my (
+ $basketno, $bibnum, $title, $quantity,
+ $listprice, $booksellerid, $authorisedby, $notes,
+ $bookfund, $bibitemnum, $rrp, $ecost,
+ $gst, $budget, $cost, $sub,
+ $invoice, $sort1, $sort2
+ )
+ = @_;
+ my $sth;
+ my $dbh;
+ if ( !$budget || $budget eq 'now' ) {
+ $sth = $dbh->prepare(
+ "INSERT INTO aqorders
+ (biblionumber,title,basketno,quantity,listprice,notes,
+ biblioitemnumber,rrp,ecost,gst,unitprice,subscription,sort1,sort2,budgetdate,entrydate)
+ VALUES ( ?,?,?,?,?,?,?,?,?,?,?,?,?,?,now(),now() )"
+ );
+ $sth->execute(
+ $bibnum, $title, $basketno, $quantity, $listprice,
+ $notes, $bibitemnum, $rrp, $ecost, $gst,
+ $cost, $sub, $sort1, $sort2
+ );
+ }
+ else {
+
+ ##FIXME HARDCODED DATE.
+ $budget = "'2006-07-01'";
+ $sth = $dbh->prepare(
+ "INSERT INTO aqorders
+ (biblionumber,title,basketno,quantity,listprice,notes,
+ biblioitemnumber,rrp,ecost,gst,unitprice,subscription,sort1,sort2,budgetdate,entrydate)
+ VALUES ( ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,now() )"
+ );
+ $sth->execute(
+ $bibnum, $title, $basketno, $quantity, $listprice,
+ $notes, $bibitemnum, $rrp, $ecost, $gst,
+ $cost, $sub, $sort1, $sort2, $budget
+ );
+
+ }
+ $sth->finish;
+
+ #get ordnum MYSQL dependant, but $dbh->last_insert_id returns null
+ my $ordnum = $dbh->{'mysql_insertid'};
+ $sth = $dbh->prepare(
+ "INSERT INTO aqorderbreakdown (ordernumber,bookfundid) VALUES
+ (?,?)"
+ );
+ $sth->execute( $ordnum, $bookfund );
+ $sth->finish;
+ return $basketno;