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 1771-1777
fields from the reserves table of the Koha database, plus
Link Here
|
1771 |
|
1772 |
|
1772 |
sub _FilterHoldsForIndependentBranches { |
1773 |
sub _FilterHoldsForIndependentBranches { |
1773 |
my ( @reserves) = @_; |
1774 |
my ( @reserves) = @_; |
1774 |
if ( C4::Context->preference("IndependentBranchesTransfers") && !C4::Context->IsSuperLibrarian() && scalar @reserves) { |
1775 |
if ( C4::Context->preference("IndependentBranchesTransfers") && scalar @reserves) |
|
|
1776 |
{ |
1775 |
my @results; |
1777 |
my @results; |
1776 |
foreach my $res (@reserves) { |
1778 |
foreach my $res (@reserves) { |
1777 |
push( @results, $res ) if ($res->{branchcode} eq C4::Context->userenv->{'branch'}); |
1779 |
push( @results, $res ) if ($res->{branchcode} eq C4::Context->userenv->{'branch'}); |
1778 |
- |
|
|