View | Details | Raw Unified | Return to bug 9454
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-12 / +14 lines)
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
- 

Return to bug 9454