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