|
Lines 815-824
Returns a reference to all baskets that belong to basketgroup $basketgroupid.
Link Here
|
| 815 |
sub GetBasketsByBasketgroup { |
815 |
sub GetBasketsByBasketgroup { |
| 816 |
my $basketgroupid = shift; |
816 |
my $basketgroupid = shift; |
| 817 |
my $query = qq{ |
817 |
my $query = qq{ |
| 818 |
SELECT *, aqbasket.booksellerid as booksellerid |
818 |
SELECT aqbasket.*, aqcontract.contractnumber, |
| 819 |
FROM aqbasket |
819 |
aqcontract.contractstartdate, |
| 820 |
LEFT JOIN aqcontract USING(contractnumber) WHERE basketgroupid=? |
820 |
aqcontract.contractenddate, |
| 821 |
}; |
821 |
aqcontract.contractname, |
|
|
822 |
aqcontract.contractdescription, |
| 823 |
aqbooksellers.invoiceprice |
| 824 |
FROM aqbasket |
| 825 |
LEFT JOIN aqbooksellers |
| 826 |
ON aqbasket.booksellerid=aqbooksellers.id |
| 827 |
LEFT JOIN aqcontract USING(contractnumber) |
| 828 |
WHERE basketgroupid=? |
| 829 |
}; |
| 822 |
my $dbh = C4::Context->dbh; |
830 |
my $dbh = C4::Context->dbh; |
| 823 |
my $sth = $dbh->prepare($query); |
831 |
my $sth = $dbh->prepare($query); |
| 824 |
$sth->execute($basketgroupid); |
832 |
$sth->execute($basketgroupid); |
| 825 |
- |
|
|