|
Lines 58-64
SELECT
Link Here
|
| 58 |
ecost_tax_included, budgetdate, entrydate, |
58 |
ecost_tax_included, budgetdate, entrydate, |
| 59 |
aqbasket.booksellerid, |
59 |
aqbasket.booksellerid, |
| 60 |
aqbooksellers.name as vendorname, |
60 |
aqbooksellers.name as vendorname, |
| 61 |
GROUP_CONCAT(DISTINCT itype), |
61 |
GROUP_CONCAT(DISTINCT itype SEPARATOR '|') AS itypes, |
| 62 |
title |
62 |
title |
| 63 |
FROM (aqorders, aqbasket) |
63 |
FROM (aqorders, aqbasket) |
| 64 |
LEFT JOIN biblio ON |
64 |
LEFT JOIN biblio ON |
|
Lines 93-98
my @ordered;
Link Here
|
| 93 |
|
93 |
|
| 94 |
my $total = 0; |
94 |
my $total = 0; |
| 95 |
while ( my $data = $sth->fetchrow_hashref ) { |
95 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
96 |
$data->{'itemtypes'} = [split('\|', $data->{itypes})]; |
| 96 |
my $left = $data->{'tleft'}; |
97 |
my $left = $data->{'tleft'}; |
| 97 |
if ( !$left || $left eq '' ) { |
98 |
if ( !$left || $left eq '' ) { |
| 98 |
$left = $data->{'quantity'}; |
99 |
$left = $data->{'quantity'}; |