@@ -, +, @@ $ git grep DelBasket --- C4/Acquisition.pm | 28 +--------------------------- 1 file changed, 1 insertion(+), 27 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -53,7 +53,7 @@ BEGIN { require Exporter; @ISA = qw(Exporter); @EXPORT = qw( - &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket + &GetBasket &NewBasket &CloseBasket &ReopenBasket &ModBasket &GetBasketAsCSV &GetBasketGroupAsCSV &GetBasketsByBookseller &GetBasketsByBasketgroup &GetBasketsInfosByBookseller @@ -486,32 +486,6 @@ sub ReOpenBasketgroup { #------------------------------------------------------------# - -=head3 DelBasket - - &DelBasket($basketno); - -Deletes the basket that has basketno field $basketno in the aqbasket table. - -=over - -=item C<$basketno> is the primary key of the basket in the aqbasket table. - -=back - -=cut - -sub DelBasket { - my ( $basketno ) = @_; - my $query = "DELETE FROM aqbasket WHERE basketno=?"; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare($query); - $sth->execute($basketno); - return; -} - -#------------------------------------------------------------# - =head3 ModBasket &ModBasket($basketinfo); --