Lines 134-140
sub GetSuppliersWithLateIssues {
Link Here
|
134 |
my $dbh = C4::Context->dbh; |
134 |
my $dbh = C4::Context->dbh; |
135 |
my $statuses = join(',', ( LATE, MISSING_STATUSES, CLAIMED ) ); |
135 |
my $statuses = join(',', ( LATE, MISSING_STATUSES, CLAIMED ) ); |
136 |
my $query = qq| |
136 |
my $query = qq| |
137 |
SELECT DISTINCT id, name |
137 |
SELECT COUNT(*) as count, id, name |
138 |
FROM subscription |
138 |
FROM subscription |
139 |
LEFT JOIN serial ON serial.subscriptionid=subscription.subscriptionid |
139 |
LEFT JOIN serial ON serial.subscriptionid=subscription.subscriptionid |
140 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id |
140 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id |
Lines 144-149
sub GetSuppliersWithLateIssues {
Link Here
|
144 |
OR serial.STATUS IN ( $statuses ) |
144 |
OR serial.STATUS IN ( $statuses ) |
145 |
) |
145 |
) |
146 |
AND subscription.closed = 0 |
146 |
AND subscription.closed = 0 |
|
|
147 |
GROUP BY aqbooksellers.id |
147 |
ORDER BY name|; |
148 |
ORDER BY name|; |
148 |
return $dbh->selectall_arrayref($query, { Slice => {} }); |
149 |
return $dbh->selectall_arrayref($query, { Slice => {} }); |
149 |
} |
150 |
} |