|
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 |
- |
|
|