@@ -, +, @@ C4::Context::only_my_library --- C4/Branch.pm | 8 -------- C4/Context.pm | 9 +++++++++ C4/Utils/DataTables/Members.pm | 2 +- Koha/Libraries.pm | 6 +----- admin/smart-rules.pl | 2 +- circ/overdue.pl | 7 ------- members/member.pl | 2 +- 7 files changed, 13 insertions(+), 23 deletions(-) --- a/C4/Branch.pm +++ a/C4/Branch.pm @@ -48,14 +48,6 @@ The functions in this module deal with branches. =cut -sub onlymine { - return - C4::Context->preference('IndependentBranches') - && C4::Context->userenv - && !C4::Context->IsSuperLibrarian() - && C4::Context->userenv->{branch}; -} - =head2 GetBranch $branch = GetBranch( $query, $branches ); --- a/C4/Context.pm +++ a/C4/Context.pm @@ -1185,6 +1185,15 @@ sub mybranch { C4::Context->userenv or return ''; return C4::Context->userenv->{branch} || ''; } +sub only_my_library { + return + C4::Context->preference('IndependentBranches') + && C4::Context->userenv + && !C4::Context->IsSuperLibrarian() + && C4::Context->userenv->{branch}; +} + + 1; __END__ --- a/C4/Utils/DataTables/Members.pm +++ a/C4/Utils/DataTables/Members.pm @@ -25,7 +25,7 @@ sub search { # If branches are independent and user is not superlibrarian # The search has to be only on the user branch - if ( C4::Branch::onlymine ) { + if ( C4::Context::only_my_library ) { my $userenv = C4::Context->userenv; $branchcode = $userenv->{'branch'}; --- a/Koha/Libraries.pm +++ a/Koha/Libraries.pm @@ -45,11 +45,7 @@ Koha::Libraries - Koha Library Object set class sub search_filtered { my ( $self, $params, $attributes ) = @_; - if ( C4::Context->preference('IndependentBranches') - and C4::Context->userenv - and not C4::Context->IsSuperLibrarian() - and C4::Context->userenv->{branch} - ) { + if ( C4::Context::only_my_library ) { $params->{branchcode} = C4::Context->userenv->{branch}; } --- a/admin/smart-rules.pl +++ a/admin/smart-rules.pl @@ -55,7 +55,7 @@ unless ( $branch ) { $branch = Koha::Libraries->search->count() == 1 ? undef : C4::Context::mybranch(); } else { - $branch = C4::Branch::onlymine() ? ( C4::Context::mybranch() || '*' ) : '*'; + $branch = C4::Context::only_my_library() ? ( C4::Context::mybranch() || '*' ) : '*'; } } $branch = '*' if $branch eq 'NO_LIBRARY_SET'; --- a/circ/overdue.pl +++ a/circ/overdue.pl @@ -88,13 +88,6 @@ while (my ($itemtype, $description) =$req->fetchrow) { itemtypename => $description, }; } -my $onlymine = - C4::Context->preference('IndependentBranches') - && C4::Context->userenv - && !C4::Context->IsSuperLibrarian() - && C4::Context->userenv->{branch}; - -$branchfilter = C4::Context->userenv->{'branch'} if ($onlymine && !$branchfilter); # Filtering by Patron Attributes # @patron_attr_filter_loop is non empty if there are any patron attribute filters --- a/members/member.pl +++ a/members/member.pl @@ -49,7 +49,7 @@ my $quicksearch = $input->param('quicksearch') // 0; if ( $quicksearch and $searchmember ) { my $branchcode; - if ( C4::Branch::onlymine ) { + if ( C4::Context::only_my_library ) { my $userenv = C4::Context->userenv; $branchcode = $userenv->{'branch'}; } --