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