From f5be9b97b893e9d5b98c15cb4cde12cb43304c1b Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 23 Jun 2020 16:23:06 -0300 Subject: [PATCH] Bug 25855: Add a post_renewal_action plugin hook This patch adds a new hook to notify plugins about renewal actions. To test it: 1. Apply the unit tests 2. Run: $ kshell k$ prove t/db_dependent/Koha/Plugins/Circulation_hooks.t => FAIL: The tests expect some warnings to show, and they don't (i.e. the sample plugin hook is not being called). 3. Apply this patch 4. Repeat 2 => SUCCESS: Tests pass! The hook is being called on renewal! 5. Sign off :-D Sponsored-by: ByWater Solutions Signed-off-by: Kyle M Hall --- C4/Circulation.pm | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 7a3b21b903..fd3c8140eb 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -62,6 +62,7 @@ use Koha::Checkouts::ReturnClaims; use Carp; use List::MoreUtils qw( uniq any ); use Scalar::Util qw( looks_like_number ); +use Try::Tiny; use Date::Calc qw( Today Today_and_Now @@ -3059,6 +3060,20 @@ sub AddRenewal { DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' }); } + _post_renewal_actions( + { + renewal_library_id => + $item_object->renewal_branchcode( { branch => $branch } ), + charge => $charge, + item_id => $itemnumber, + item_type => $itemtype, + shelving_location => $item_object->location // q{}, + patron_id => $borrowernumber, + collection_code => $item_object->ccode // q{}, + date_due => $datedue + } + ) if C4::Context->config("enable_plugins"); + # Add the renewal to stats UpdateStats( { @@ -4197,6 +4212,10 @@ sub GetTopIssues { return @$rows; } +=head2 Internal methods + +=cut + sub _CalculateAndUpdateFine { my ($params) = @_; @@ -4273,6 +4292,29 @@ sub _item_denied_renewal { return 0; } +=head3 _post_renewal_actions + +Internal method that calls the post_renewal_action plugin hook on configured +plugins. + +=cut + +sub _post_renewal_actions { + my ($params) = @_; + + my @plugins = Koha::Plugins->new->GetPlugins({ + method => 'post_renewal_action', + }); + + foreach my $plugin ( @plugins ) { + try { + $plugin->post_renewal_action( $params ); + } + catch { + warn "$_"; + }; + } +} 1; -- 2.24.1 (Apple Git-126)