gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 27131: Add get_items_that_can_fill 

Signed-off-by: Andrew Nugged <nugged@gmail.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2020-12-02 09:23:42 +01:00
parent 03a9bdc851
commit 919caa19c8
2 changed files with 37 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Koha/Holds.pm
View File

@ -92,6 +92,40 @@ sub forced_hold_level {
return;
}
sub get_items_that_can_fill {
my ( $self ) = @_;
my @biblionumbers = $self->get_column('biblionumber');
my @branchtransfers = map { $_->itemnumber }
Koha::Item::Transfers->search(
{ datearrived => undef },
{
columns => ['itemnumber'],
collapse => 1,
}
);
my @waiting_holds = map { $_->itemnumber }
Koha::Holds->search(
{ 'found' => 'W' },
{
columns => ['itemnumber'],
collapse => 1,
}
);
return Koha::Items->search(
{
biblionumber => { in => \@biblionumbers },
itemlost => 0,
withdrawn => 0,
notforloan => 0,
onloan => undef,
itemnumber => { -not_in => [ @branchtransfers, @waiting_holds ] },
}
);
}
=head3 type
=cut

19
circ/pendingreserves.pl
View File

@ -188,27 +188,14 @@ if ( C4::Context->preference('IndependentBranches') ){
}
# get all distinct unfulfilled reserves
my @biblionumbers = Koha::Holds->search(
my $holds = Koha::Holds->search(
{ %where },
{ join => 'itembib', alias => 'reserve', distinct => 1, columns => qw[me.biblionumber] }
)->get_column('biblionumber');
my @branchtransfers = map { $_->itemnumber } Koha::Item::Transfers->search({ datearrived => undef }, { columns => [ 'itemnumber' ], collapse => 1 });
my @waiting_holds = map { $_->itemnumber } Koha::Holds->search({'found' => 'W'}, { columns => [ 'itemnumber' ], collapse => 1 });
my @all_items = Koha::Items->search(
{
biblionumber => { in => \@biblionumbers },
itemlost => 0,
withdrawn => 0,
notforloan => 0,
onloan => undef,
itemnumber => { -not_in => [ @branchtransfers, @waiting_holds ] },
}
);
my @biblionumbers = $holds->get_column('biblionumber');
my $all_items;
foreach my $item ( @all_items ) {
foreach my $item ( $holds->get_items_that_can_fill ) {
push @{$all_items->{$item->biblionumber}}, $item;
}