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