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

Merge branch 'bug_9454' into 3.12-master

This commit is contained in:
Jared Camins-Esakov 2013-02-15 07:44:09 -05:00
parent b60a8397c1 6ade3cf57e
commit 621be0ccd8
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
C4/Acquisition.pm
View File

@ -190,18 +190,21 @@ The other parameters are optional, see ModBasketHeader for more info on them.
=cut
sub NewBasket {
my ( $booksellerid, $authorisedby, $basketname, $basketnote, $basketbooksellernote, $basketcontractnumber, $deliveryplace, $billingplace ) = @_;
my ( $booksellerid, $authorisedby, $basketname, $basketnote,
$basketbooksellernote, $basketcontractnumber, $deliveryplace,
$billingplace ) = @_;
my $dbh = C4::Context->dbh;
my $query = "
INSERT INTO aqbasket
(creationdate,booksellerid,authorisedby)
VALUES (now(),'$booksellerid','$authorisedby')
";
my $sth =
$dbh->do($query);
#find & return basketno MYSQL dependant, but $dbh->last_insert_id always returns null :-(
my $basket = $dbh->{'mysql_insertid'};
ModBasketHeader($basket, $basketname || '', $basketnote || '', $basketbooksellernote || '', $basketcontractnumber || undef, $booksellerid, $deliveryplace || undef, $billingplace || undef );
my $query =
'INSERT INTO aqbasket (creationdate,booksellerid,authorisedby) '
. 'VALUES (now(),?,?)';
$dbh->do( $query, {}, $booksellerid, $authorisedby );
my $basket = $dbh->{mysql_insertid};
$basketname ||= q{}; # default to empty strings
$basketnote ||= q{};
$basketbooksellernote ||= q{};
ModBasketHeader( $basket, $basketname, $basketnote, $basketbooksellernote,
$basketcontractnumber, $booksellerid, $deliveryplace, $billingplace );
return $basket;
}