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