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'}; |