Lines 190-207
The other parameters are optional, see ModBasketHeader for more info on them.
Link Here
|
190 |
=cut |
190 |
=cut |
191 |
|
191 |
|
192 |
sub NewBasket { |
192 |
sub NewBasket { |
193 |
my ( $booksellerid, $authorisedby, $basketname, $basketnote, $basketbooksellernote, $basketcontractnumber, $deliveryplace, $billingplace ) = @_; |
193 |
my ( $booksellerid, $authorisedby, $basketname, $basketnote, |
|
|
194 |
$basketbooksellernote, $basketcontractnumber, $deliveryplace, |
195 |
$billingplace ) = @_; |
194 |
my $dbh = C4::Context->dbh; |
196 |
my $dbh = C4::Context->dbh; |
195 |
my $query = " |
197 |
my $query = |
196 |
INSERT INTO aqbasket |
198 |
'INSERT INTO aqbasket (creationdate,booksellerid,authorisedby) ' |
197 |
(creationdate,booksellerid,authorisedby) |
199 |
. 'VALUES (now(),?,?)'; |
198 |
VALUES (now(),'$booksellerid','$authorisedby') |
200 |
$dbh->do( $query, {}, $booksellerid, $authorisedby ); |
199 |
"; |
201 |
|
200 |
my $sth = |
202 |
my $basket = $dbh->{mysql_insertid}; |
201 |
$dbh->do($query); |
203 |
$basketname ||= q{}; # default to empty strings |
202 |
#find & return basketno MYSQL dependant, but $dbh->last_insert_id always returns null :-( |
204 |
$basketnote ||= q{}; |
203 |
my $basket = $dbh->{'mysql_insertid'}; |
205 |
$basketbooksellernote ||= q{}; |
204 |
ModBasketHeader($basket, $basketname || '', $basketnote || '', $basketbooksellernote || '', $basketcontractnumber || undef, $booksellerid, $deliveryplace || undef, $billingplace || undef ); |
206 |
ModBasketHeader( $basket, $basketname, $basketnote, $basketbooksellernote, |
|
|
207 |
$basketcontractnumber, $booksellerid, $deliveryplace, $billingplace ); |
205 |
return $basket; |
208 |
return $basket; |
206 |
} |
209 |
} |
207 |
|
210 |
|
208 |
- |
|
|