Lines 47-52
use Koha::Libraries;
Link Here
|
47 |
use Koha::Patrons; |
47 |
use Koha::Patrons; |
48 |
use Koha::Plugins; |
48 |
use Koha::Plugins; |
49 |
use Koha::Policy::Holds; |
49 |
use Koha::Policy::Holds; |
|
|
50 |
use Data::Dumper; |
50 |
|
51 |
|
51 |
use List::MoreUtils qw( any ); |
52 |
use List::MoreUtils qw( any ); |
52 |
|
53 |
|
Lines 1794-1800
fields from the reserves table of the Koha database, plus
Link Here
|
1794 |
|
1795 |
|
1795 |
sub _FilterHoldsForIndependentBranches { |
1796 |
sub _FilterHoldsForIndependentBranches { |
1796 |
my ( @reserves) = @_; |
1797 |
my ( @reserves) = @_; |
1797 |
if ( C4::Context->preference("IndependentBranchesTransfers") && !C4::Context->IsSuperLibrarian() && scalar @reserves) { |
1798 |
if ( C4::Context->preference("IndependentBranchesTransfers") && scalar @reserves) |
|
|
1799 |
{ |
1798 |
my @results; |
1800 |
my @results; |
1799 |
foreach my $res (@reserves) { |
1801 |
foreach my $res (@reserves) { |
1800 |
push( @results, $res ) if ($res->{branchcode} eq C4::Context->userenv->{'branch'}); |
1802 |
push( @results, $res ) if ($res->{branchcode} eq C4::Context->userenv->{'branch'}); |
1801 |
- |
|
|