|
Lines 798-811
Returns a reference to the array of all the basketgroups of bookseller $booksell
Link Here
|
| 798 |
|
798 |
|
| 799 |
sub GetBasketgroups { |
799 |
sub GetBasketgroups { |
| 800 |
my $booksellerid = shift; |
800 |
my $booksellerid = shift; |
| 801 |
die "bookseller id is required to edit a basketgroup" unless $booksellerid; |
801 |
die 'bookseller id is required to edit a basketgroup' unless $booksellerid; |
| 802 |
my $query = "SELECT * FROM aqbasketgroups WHERE booksellerid=? ORDER BY `id` DESC"; |
802 |
my $query = 'SELECT * FROM aqbasketgroups WHERE booksellerid=? ORDER BY id DESC'; |
| 803 |
my $dbh = C4::Context->dbh; |
803 |
my $dbh = C4::Context->dbh; |
| 804 |
my $sth = $dbh->prepare($query); |
804 |
my $sth = $dbh->prepare($query); |
| 805 |
$sth->execute($booksellerid); |
805 |
$sth->execute($booksellerid); |
| 806 |
my $results = $sth->fetchall_arrayref({}); |
806 |
return $sth->fetchall_arrayref({}); |
| 807 |
$sth->finish; |
|
|
| 808 |
return $results |
| 809 |
} |
807 |
} |
| 810 |
|
808 |
|
| 811 |
#------------------------------------------------------------# |
809 |
#------------------------------------------------------------# |
| 812 |
- |
|
|