256 lines
8.2 KiB
Perl
256 lines
8.2 KiB
Perl
package Koha::Library::FloatLimits;
|
|
|
|
# Copyright ByWater Solutions 2016
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <https://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Koha::Database;
|
|
|
|
use Koha::Library::FloatLimit;
|
|
use Koha::Libraries;
|
|
use C4::Circulation qw(IsBranchTransferAllowed);
|
|
|
|
use base qw(Koha::Objects);
|
|
|
|
=head1 NAME
|
|
|
|
Koha::Library::FloatLimits - Koha Library::FloatLimit object set class
|
|
|
|
=head1 API
|
|
|
|
=head2 Class Methods
|
|
|
|
=head3 lowest_ratio_library
|
|
|
|
=cut
|
|
|
|
sub lowest_ratio_library {
|
|
my ( $self, $item, $branchcode, $from_branch ) = @_;
|
|
my $schema = Koha::Database->new->schema;
|
|
|
|
my @float_limits = $schema->resultset('LibraryFloatLimit')->search(
|
|
{
|
|
itemtype => $item->effective_itemtype,
|
|
float_limit => { '!=' => 0 }
|
|
}
|
|
)->all;
|
|
|
|
# check the items return policy
|
|
my $hbr = Koha::CirculationRules->get_return_branch_policy($item);
|
|
|
|
# if item only floats in the library group we must eliminate all other candidates
|
|
if ( $hbr && $hbr eq 'returnbylibrarygroup' ) {
|
|
my $current_library = Koha::Libraries->find($branchcode);
|
|
my $float_libraries = $current_library->get_float_libraries;
|
|
|
|
if ( $float_libraries->count > 0 ) {
|
|
my @allowed_branchcodes = $float_libraries->get_column('branchcode');
|
|
my %allowed_branches = map { $_ => 1 } @allowed_branchcodes;
|
|
@float_limits = grep { $allowed_branches{ $_->get_column('branchcode') } } @float_limits;
|
|
}
|
|
}
|
|
|
|
return unless @float_limits;
|
|
|
|
my @candidates;
|
|
my $use_item_level = C4::Context->preference('item-level_itypes');
|
|
|
|
foreach my $limit (@float_limits) {
|
|
my $branch = $limit->get_column('branchcode');
|
|
my $float_limit_val = $limit->get_column('float_limit');
|
|
|
|
my $item_count;
|
|
|
|
if ($use_item_level) {
|
|
my $at_branch_count = Koha::Items->search(
|
|
{
|
|
itype => $item->effective_itemtype,
|
|
holdingbranch => $branch,
|
|
onloan => undef
|
|
},
|
|
)->count;
|
|
|
|
# Count items in transit TO this branch
|
|
my $in_transit_to_count = Koha::Items->search(
|
|
{
|
|
itype => $item->effective_itemtype,
|
|
|
|
# Join with active transfers where this branch is the destination
|
|
},
|
|
{
|
|
join => 'branchtransfers',
|
|
where => {
|
|
'branchtransfers.tobranch' => $branch,
|
|
'branchtransfers.datearrived' => undef, # Still in transit
|
|
'branchtransfers.datecancelled' => undef, #Not cancelled
|
|
},
|
|
distinct => 1
|
|
}
|
|
)->count;
|
|
|
|
my $in_transit_from_count = Koha::Items->search(
|
|
{ itype => $item->effective_itemtype },
|
|
{
|
|
join => 'branchtransfers',
|
|
where => {
|
|
'branchtransfers.frombranch' => $branch,
|
|
'branchtransfers.datearrived' => undef, # Still in transit
|
|
'branchtransfers.datecancelled' => undef, #Not cancelled
|
|
},
|
|
distinct => 1
|
|
}
|
|
)->count;
|
|
$item_count = $at_branch_count + $in_transit_to_count - $in_transit_from_count;
|
|
|
|
# artificially adjust counts for the item being checked in
|
|
if ($from_branch) {
|
|
|
|
# This is the checkin branch - artificially add 1
|
|
if ( $branch eq $branchcode ) {
|
|
$item_count++;
|
|
}
|
|
|
|
# This is where the item came from - artificially subtract 1
|
|
if ( $branch eq $from_branch ) {
|
|
$item_count--;
|
|
}
|
|
}
|
|
|
|
} else {
|
|
my $at_branch_count = Koha::Items->search(
|
|
{
|
|
holdingbranch => $branch,
|
|
'biblioitem.itemtype' => $item->effective_itemtype,
|
|
onloan => undef
|
|
},
|
|
)->count;
|
|
|
|
# Count items in transit TO this branch
|
|
my $in_transit_to_count = Koha::Items->search(
|
|
{
|
|
itype => $item->effective_itemtype,
|
|
},
|
|
{
|
|
join => 'branchtransfers',
|
|
where => {
|
|
'branchtransfers.tobranch' => $branch,
|
|
'branchtransfers.datearrived' => undef, # Still in transit
|
|
'branchtransfers.datecancelled' => undef, #Not cancelled
|
|
},
|
|
distinct => 1
|
|
}
|
|
)->count;
|
|
|
|
my $in_transit_from_count = Koha::Items->search(
|
|
{
|
|
itype => $item->effective_itemtype,
|
|
},
|
|
{
|
|
join => 'branchtransfers',
|
|
where => {
|
|
'branchtransfers.frombranch' => $branch,
|
|
'branchtransfers.datearrived' => undef, # Still in transit
|
|
'branchtransfers.datecancelled' => undef, #Not cancelled
|
|
},
|
|
distinct => 1
|
|
}
|
|
)->count;
|
|
$item_count = $at_branch_count + $in_transit_to_count - $in_transit_from_count;
|
|
|
|
# artificially adjust counts for the item being checked in
|
|
if ($from_branch) {
|
|
|
|
# This is the checkin branch - artificially add 1
|
|
if ( $branch eq $branchcode ) {
|
|
$item_count++;
|
|
}
|
|
|
|
# This is where the item came from - artificially subtract 1
|
|
if ( $branch eq $from_branch ) {
|
|
$item_count--;
|
|
}
|
|
}
|
|
}
|
|
|
|
my $ratio = $item_count / $float_limit_val;
|
|
|
|
push @candidates, {
|
|
branchcode => $branch,
|
|
ratio => $ratio,
|
|
float_limit => $float_limit_val
|
|
};
|
|
}
|
|
|
|
# sort the branches by lowest ratio
|
|
# in the event of a tie the item should stay where it is, if the current branch is involved in the tie
|
|
# when the current branch is not involved in the tie a random branch is chosen from those who tied
|
|
@candidates = sort {
|
|
$a->{ratio} <=> $b->{ratio}
|
|
|| ( $a->{branchcode} eq $branchcode ? -1 : 0 ) - ( $b->{branchcode} eq $branchcode ? -1 : 0 )
|
|
|| rand() <=> rand()
|
|
} @candidates;
|
|
|
|
my $UseBranchTransferLimits = C4::Context->preference("UseBranchTransferLimits");
|
|
my $BranchTransferLimitsType =
|
|
C4::Context->preference("BranchTransferLimitsType") eq 'itemtype' ? 'effective_itemtype' : 'ccode';
|
|
|
|
my $transfer_branch;
|
|
for my $candidate (@candidates) {
|
|
|
|
if ($UseBranchTransferLimits) {
|
|
my $allowed = C4::Circulation::IsBranchTransferAllowed(
|
|
$candidate->{branchcode},
|
|
$branchcode,
|
|
$item->$BranchTransferLimitsType
|
|
);
|
|
|
|
$transfer_branch = Koha::Libraries->find( $candidate->{branchcode} ) if $allowed;
|
|
last;
|
|
} else {
|
|
$transfer_branch = Koha::Libraries->find( $candidate->{branchcode} );
|
|
last;
|
|
}
|
|
}
|
|
|
|
return $transfer_branch;
|
|
}
|
|
|
|
=head3 _type
|
|
|
|
=cut
|
|
|
|
sub _type {
|
|
return 'LibraryFloatLimit';
|
|
}
|
|
|
|
=head3 object_class
|
|
|
|
=cut
|
|
|
|
sub object_class {
|
|
return 'Koha::Library::FloatLimit';
|
|
}
|
|
|
|
=head1 AUTHOR
|
|
|
|
Kyle M Hall <kyle@bywatersolutions.com>
|
|
|
|
=cut
|
|
|
|
1;
|