View | Details | Raw Unified | Return to bug 31009
Collapse All | Expand All

(-)a/C4/Serials.pm (-1 / +2 lines)
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
}
(-)a/serials/claims.pl (-2 lines)
Lines 47-53 my ($template, $loggedinuser, $cookie) Link Here
47
# supplierlist is returned in name order
47
# supplierlist is returned in name order
48
my $supplierlist = GetSuppliersWithLateIssues();
48
my $supplierlist = GetSuppliersWithLateIssues();
49
for my $s (@{$supplierlist} ) {
49
for my $s (@{$supplierlist} ) {
50
    $s->{count} = scalar  GetLateOrMissingIssues($s->{id});
51
    if ($supplierid && $s->{id} == $supplierid) {
50
    if ($supplierid && $s->{id} == $supplierid) {
52
        $s->{selected} = 1;
51
        $s->{selected} = 1;
53
    }
52
    }
54
- 

Return to bug 31009