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

(-)a/circ/pendingreserves.pl (-6 / +5 lines)
Lines 20-25 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use constant PULL_INTERVAL => 2;
22
use constant PULL_INTERVAL => 2;
23
use List::MoreUtils qw( uniq );
23
24
24
use C4::Context;
25
use C4::Context;
25
use C4::Output;
26
use C4::Output;
Lines 183-198 if ( C4::Context->preference('IndependentBranches') ){ Link Here
183
}
184
}
184
185
185
# get all distinct unfulfilled reserves
186
# get all distinct unfulfilled reserves
186
my @distinct_holds = Koha::Holds->search(
187
my $distinct_holds = Koha::Holds->search(
187
    { %where },
188
    { %where },
188
    { join => 'itembib', group_by => 'reserve.biblionumber', alias => 'reserve' }
189
    { join => 'itembib', alias => 'reserve' }
189
);
190
);
191
my @biblionumbers = uniq $distinct_holds->get_column('biblionumber');
190
192
191
# make final reserves hash and fill with info
193
# make final reserves hash and fill with info
192
my $reserves;
194
my $reserves;
193
foreach my $dh ( @distinct_holds ){
195
foreach my $bibnum ( @biblionumbers ){
194
195
    my $bibnum = $dh->biblionumber;
196
196
197
    my @items = Koha::Items->search({ biblionumber => $bibnum });
197
    my @items = Koha::Items->search({ biblionumber => $bibnum });
198
    foreach my $i ( @items ){
198
    foreach my $i ( @items ){
199
- 

Return to bug 24488