@@ -, +, @@ --- C4/Branch.pm | 9 +-------- C4/Circulation.pm | 4 ++-- admin/smart-rules.pl | 4 ++-- t/db_dependent/Branch.t | 4 ---- tools/letter.pl | 2 +- tools/overduerules.pl | 2 +- 6 files changed, 7 insertions(+), 18 deletions(-) --- a/C4/Branch.pm +++ a/C4/Branch.pm @@ -31,9 +31,8 @@ BEGIN { @EXPORT = qw( &GetBranch &GetBranches - &mybranch ); - @EXPORT_OK = qw( &onlymine &mybranch ); + @EXPORT_OK = qw( &onlymine ); } =head1 NAME @@ -128,12 +127,6 @@ sub onlymine { && C4::Context->userenv->{branch}; } -# always returns a string for OK comparison via "eq" or "ne" -sub mybranch { - C4::Context->userenv or return ''; - return C4::Context->userenv->{branch} || ''; -} - =head2 GetBranch $branch = GetBranch( $query, $branches ); --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -167,7 +167,7 @@ System Pref options. # sub barcodedecode { my ($barcode, $filter) = @_; - my $branch = C4::Branch::mybranch(); + my $branch = C4::Context::mybranch(); $filter = C4::Context->preference('itemBarcodeInputFilter') unless $filter; $filter or return $barcode; # ensure filter is defined, else return untouched barcode if ($filter eq 'whitespace') { @@ -3120,7 +3120,7 @@ sub GetIssuingCharges { if ( my $item_data = $sth->fetchrow_hashref ) { $item_type = $item_data->{itemtype}; $charge = $item_data->{rentalcharge}; - my $branch = C4::Branch::mybranch(); + my $branch = C4::Context::mybranch(); my $discount_query = q|SELECT rentaldiscount, issuingrules.itemtype, issuingrules.branchcode FROM borrowers --- a/admin/smart-rules.pl +++ a/admin/smart-rules.pl @@ -52,10 +52,10 @@ my $type=$input->param('type'); my $branch = $input->param('branch'); unless ( $branch ) { if ( C4::Context->preference('DefaultToLoggedInLibraryCircRules') ) { - $branch = Koha::Libraries->search->count() == 1 ? undef : C4::Branch::mybranch(); + $branch = Koha::Libraries->search->count() == 1 ? undef : C4::Context::mybranch(); } else { - $branch = C4::Branch::onlymine() ? ( C4::Branch::mybranch() || '*' ) : '*'; + $branch = C4::Branch::onlymine() ? ( C4::Context::mybranch() || '*' ) : '*'; } } $branch = '*' if $branch eq 'NO_LIBRARY_SET'; --- a/t/db_dependent/Branch.t +++ a/t/db_dependent/Branch.t @@ -38,7 +38,6 @@ can_ok( 'C4::Branch', qw( GetBranch GetBranches - mybranch ) ); @@ -194,7 +193,4 @@ is_deeply( $b2info->get_categories->count, 1, 'BRB has the category CAT1' ); Koha::LibraryCategory->new($cat2)->store; is( Koha::LibraryCategories->search->count, $count_cat + 3, "Two categories added" ); -#TODO later: test mybranchine and onlymine -# Actually we cannot mock C4::Context->userenv in unit tests - $schema->storage->txn_rollback; --- a/tools/letter.pl +++ a/tools/letter.pl @@ -358,7 +358,7 @@ sub default_display { unless ( defined $branchcode ) { if ( C4::Context->preference('DefaultToLoggedInLibraryNoticesSlips') ) { - $branchcode = C4::Branch::mybranch(); + $branchcode = C4::Context::mybranch(); } } --- a/tools/overduerules.pl +++ a/tools/overduerules.pl @@ -74,7 +74,7 @@ my $type = $input->param('type'); my $branch = $input->param('branch'); $branch = defined $branch ? $branch - : C4::Context->preference('DefaultToLoggedInLibraryOverdueTriggers') ? C4::Branch::mybranch() + : C4::Context->preference('DefaultToLoggedInLibraryOverdueTriggers') ? C4::Context::mybranch() : Koha::Libraries->search->count() == 1 ? undef : undef; $branch ||= q{}; --