Lines 48-53
use Koha::Old::Holds;
Link Here
|
48 |
use Koha::Patrons; |
48 |
use Koha::Patrons; |
49 |
use Koha::Plugins; |
49 |
use Koha::Plugins; |
50 |
use Koha::Policy::Holds; |
50 |
use Koha::Policy::Holds; |
|
|
51 |
use Data::Dumper; |
51 |
|
52 |
|
52 |
use List::MoreUtils qw( any ); |
53 |
use List::MoreUtils qw( any ); |
53 |
|
54 |
|
Lines 1802-1808
fields from the reserves table of the Koha database, plus
Link Here
|
1802 |
|
1803 |
|
1803 |
sub _FilterHoldsForIndependentBranches { |
1804 |
sub _FilterHoldsForIndependentBranches { |
1804 |
my ( @reserves) = @_; |
1805 |
my ( @reserves) = @_; |
1805 |
if ( C4::Context->preference("IndependentBranchesTransfers") && !C4::Context->IsSuperLibrarian() && scalar @reserves) { |
1806 |
if ( C4::Context->preference("IndependentBranchesTransfers") && scalar @reserves) |
|
|
1807 |
{ |
1806 |
my @results; |
1808 |
my @results; |
1807 |
foreach my $res (@reserves) { |
1809 |
foreach my $res (@reserves) { |
1808 |
push( @results, $res ) if ($res->{branchcode} eq C4::Context->userenv->{'branch'}); |
1810 |
push( @results, $res ) if ($res->{branchcode} eq C4::Context->userenv->{'branch'}); |
1809 |
- |
|
|