Attachment 47760 Details for Bug 15758 – Bug 15758: Koha::Libraries - Move mybranch to C4::Context

[patch] Bug 15758: Koha::Libraries - Move mybranch to C4::Context

Bug-15758-KohaLibraries---Move-mybranch-to-C4Conte.patch (text/plain), 4.50 KB, created by Jonathan Druart on 2016-02-08 17:45:59 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2016-02-08 17:45:59 UTC

Size: 4.50 KB

patch

obsolete

>From cebbfb81f76a48e501961836f7e030b3a4673ac8 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 a15e4bf..8cedd8b 100644
>--- a/C4/Branch.pm
>+++ b/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 );
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index c02b47c..90bc68b 100644
>--- a/C4/Circulation.pm
>+++ b/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
>diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl
>index 0e9fa36..87c09f3 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 a950321..3fc5036 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 fd370c0..f18d4bd 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.1.0

Actions: View | Diff | Splinter Review

Attachments on bug 15758: 47746 | 47747 | 47748 | 47749 | 47750 | 47751 | 47752 | 47753 | 47759 | 47760 | 47761 | 47762 | 47763 | 47764 | 47765 | 52723 | 52724 | 52726 | 52727 | 52728 | 52729 | 52730 | 52731 | 52736 | 52788 | 52789 | 52790 | 52791 | 52792 | 52793 | 52794 | 52795 | 52913 | 52914 | 52915 | 52916 | 52917 | 52918 | 52919 | 52920 | 53893 | 53894 | 53895 | 53896 | 53897 | 53898 | 53899 | 53900 | 53997 | 53998 | 53999 | 54000 | 54001 | 54002 | 54003 | 54004 | 54029 | 54030 | 54031 | 54032 | 54033 | 54034 | 54035 | 54036 | 54037 | 54038 | 54039 | 54040 | 54041 | 54042 | 54043 | 54044 | 54861 | 54862 | 54863 | 54864 | 54865 | 54866 | 54867 | 54868 | 54908 | 54909 | 54921 | 54925 | 55061 | 55062 | 55063 | 55064 | 55065 | 55066 | 55067 | 55068 | 55069 | 55070 | 55071 | 55072 | 55073 | 55346 | 55347 | 55348 | 55349 | 55350 | 55351 | 55352 | 55353 | 55354 | 55355 | 55356 | 55357 | 55358 | 55445