From e3c2b6bcfa7b75e47be2a6b7006797835feb4ffd Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Thu, 4 Feb 2016 15:24:12 +0000
Subject: [PATCH] Bug 15758: Koha::Libraries - Move mybranch to C4::Context

---
 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(-)

diff --git a/C4/Branch.pm b/C4/Branch.pm
index f2d7bf1..7f1b713 100644
--- a/C4/Branch.pm
+++ b/C4/Branch.pm
@@ -29,9 +29,8 @@ BEGIN {
 	@EXPORT = qw(
 		&GetBranch
 		&GetBranches
-		&mybranch
 	);
-    @EXPORT_OK = qw( &onlymine &mybranch );
+    @EXPORT_OK = qw( &onlymine );
 }
 
 =head1 NAME
@@ -126,12 +125,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 );
diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index c887dc9..e9f0a3d 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -168,7 +168,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') {
@@ -3236,7 +3236,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
diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl
index 7c71c68..b161244 100755
--- a/admin/smart-rules.pl
+++ b/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';
diff --git a/t/db_dependent/Branch.t b/t/db_dependent/Branch.t
index 348adb3..9d4a5b9 100644
--- a/t/db_dependent/Branch.t
+++ b/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;
diff --git a/tools/letter.pl b/tools/letter.pl
index 0f72cd6..39b2aa2 100755
--- a/tools/letter.pl
+++ b/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();
         }
     }
 
diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index f21092d..5c35a8c 100755
--- a/tools/overduerules.pl
+++ b/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{};
-- 
2.8.1