Attachment 108349 Details for Bug 25114 – Bug 25114: Remove duplicated logic from GetLoanLength()

[patch] Bug 25114: Remove duplicated logic from GetLoanLength()

Bug-25114-Remove-duplicated-logic-from-GetLoanLeng.patch (text/plain), 3.25 KB, created by Katrin Fischer on 2020-08-16 10:14:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Katrin Fischer

Created: 2020-08-16 10:14:27 UTC

Size: 3.25 KB

patch

obsolete

>From c5c93cdc1a098acbe3d6a6f01ca03bcf64572ad1 Mon Sep 17 00:00:00 2001
>From: Lari Taskula <lari.taskula@hypernova.fi>
>Date: Sat, 11 Apr 2020 19:48:48 +0000
>Subject: [PATCH] Bug 25114: Remove duplicated logic from GetLoanLength()
>MIME-Version: 1.0
>Content-Type: text/plain; charset=UTF-8
>Content-Transfer-Encoding: 8bit
>
>Remove duplicated logic for searching circulation rules.
>
>This can be replaced with get_effective_rules().
>
>To test:
>1. prove t/db_dependent/Circulation/GetHardDueDate.t
>
>Signed-off-by: Joonas KylmÃ¤lÃ¤ <joonas.kylmala@helsinki.fi>
>
>Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
>---
> C4/Circulation.pm | 71 ++++++++++---------------------------------------------
> 1 file changed, 13 insertions(+), 58 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index f530d92a72..d314000cf0 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -1604,50 +1604,6 @@ Get loan length for an itemtype, a borrower type and a branch
> sub GetLoanLength {
>     my ( $categorycode, $itemtype, $branchcode ) = @_;
> 
>-    # Set search precedences
>-    my @params = (
>-        {
>-            categorycode => $categorycode,
>-            itemtype     => $itemtype,
>-            branchcode   => $branchcode,
>-        },
>-        {
>-            categorycode => $categorycode,
>-            itemtype     => undef,
>-            branchcode   => $branchcode,
>-        },
>-        {
>-            categorycode => undef,
>-            itemtype     => $itemtype,
>-            branchcode   => $branchcode,
>-        },
>-        {
>-            categorycode => undef,
>-            itemtype     => undef,
>-            branchcode   => $branchcode,
>-        },
>-        {
>-            categorycode => $categorycode,
>-            itemtype     => $itemtype,
>-            branchcode   => undef,
>-        },
>-        {
>-            categorycode => $categorycode,
>-            itemtype     => undef,
>-            branchcode   => undef,
>-        },
>-        {
>-            categorycode => undef,
>-            itemtype     => $itemtype,
>-            branchcode   => undef,
>-        },
>-        {
>-            categorycode => undef,
>-            itemtype     => undef,
>-            branchcode   => undef,
>-        },
>-    );
>-
>     # Initialize default values
>     my $rules = {
>         issuelength   => 0,
>@@ -1655,21 +1611,20 @@ sub GetLoanLength {
>         lengthunit    => 'days',
>     };
> 
>-    # Search for rules!
>-    foreach my $rule_name (qw( issuelength renewalperiod lengthunit )) {
>-        foreach my $params (@params) {
>-            my $rule = Koha::CirculationRules->search(
>-                {
>-                    rule_name => $rule_name,
>-                    %$params,
>-                }
>-            )->next();
>+    my $found = Koha::CirculationRules->get_effective_rules( {
>+        branchcode => $branchcode,
>+        categorycode => $categorycode,
>+        itemtype => $itemtype,
>+        rules => [
>+            'issuelength',
>+            'renewalperiod',
>+            'lengthunit'
>+        ],
>+    } );
> 
>-            if ($rule) {
>-                $rules->{$rule_name} = $rule->rule_value;
>-                last;
>-            }
>-        }
>+    # Search for rules!
>+    foreach my $rule_name (keys %$found) {
>+        $rules->{$rule_name} = $found->{$rule_name};
>     }
> 
>     return $rules;
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 25114: 102766 | 102767 | 102768 | 105785 | 108349