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

(-)a/C4/Acquisition.pm (-28 / +1 lines)
Lines 53-59 BEGIN { Link Here
53
    require Exporter;
53
    require Exporter;
54
    @ISA    = qw(Exporter);
54
    @ISA    = qw(Exporter);
55
    @EXPORT = qw(
55
    @EXPORT = qw(
56
        &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket
56
        &GetBasket &NewBasket &CloseBasket &ReopenBasket &ModBasket
57
        &GetBasketAsCSV &GetBasketGroupAsCSV
57
        &GetBasketAsCSV &GetBasketGroupAsCSV
58
        &GetBasketsByBookseller &GetBasketsByBasketgroup
58
        &GetBasketsByBookseller &GetBasketsByBasketgroup
59
        &GetBasketsInfosByBookseller
59
        &GetBasketsInfosByBookseller
Lines 486-517 sub ReOpenBasketgroup { Link Here
486
486
487
#------------------------------------------------------------#
487
#------------------------------------------------------------#
488
488
489
490
=head3 DelBasket
491
492
  &DelBasket($basketno);
493
494
Deletes the basket that has basketno field $basketno in the aqbasket table.
495
496
=over
497
498
=item C<$basketno> is the primary key of the basket in the aqbasket table.
499
500
=back
501
502
=cut
503
504
sub DelBasket {
505
    my ( $basketno ) = @_;
506
    my $query = "DELETE FROM aqbasket WHERE basketno=?";
507
    my $dbh = C4::Context->dbh;
508
    my $sth = $dbh->prepare($query);
509
    $sth->execute($basketno);
510
    return;
511
}
512
513
#------------------------------------------------------------#
514
515
=head3 ModBasket
489
=head3 ModBasket
516
490
517
  &ModBasket($basketinfo);
491
  &ModBasket($basketinfo);
518
- 

Return to bug 26580