From f0f1ab8317a8b5763187e4e7d8ad5b4f9588dc5e Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Wed, 13 Nov 2019 11:11:54 +0100
Subject: [PATCH] Bug 24031: Add plugin hook after_hold_create

It is called after a hold has been placed

Test plan:
1. Write a plugin that implements only after_hold_create (see
   `perldoc Koha::Plugins` for implementation details). Install it and
   enable it
2. Place a hold and verify that your plugin method has been called with
   the right parameters

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 C4/Reserves.pm                        |  3 ++
 Koha/Plugins.pm                       | 47 +++++++++++++++++++++++++++
 t/db_dependent/Koha/Plugins/Plugins.t | 29 ++++++++++++++++-
 3 files changed, 78 insertions(+), 1 deletion(-)

diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index 0f7e58ac5f..e9fd7eda37 100644
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -47,6 +47,7 @@ use Koha::Items;
 use Koha::Libraries;
 use Koha::Old::Hold;
 use Koha::Patrons;
+use Koha::Plugins;
 
 use Carp;
 use Data::Dumper;
@@ -276,6 +277,8 @@ sub AddReserve {
         }
     }
 
+    Koha::Plugins->call('after_hold_create', $hold);
+
     return $reserve_id;
 }
 
diff --git a/Koha/Plugins.pm b/Koha/Plugins.pm
index 9dc42c5155..4e7926b359 100644
--- a/Koha/Plugins.pm
+++ b/Koha/Plugins.pm
@@ -52,6 +52,29 @@ sub new {
     return bless( $args, $class );
 }
 
+=head2 call
+
+Calls a plugin method for all enabled plugins
+
+    @responses = Koha::Plugins->call($method, @args)
+
+=cut
+
+sub call {
+    my ($class, $method, @args) = @_;
+
+    if (C4::Context->preference('UseKohaPlugins') && C4::Context->config('enable_plugins')) {
+        my @plugins = $class->new({ enable_plugins => 1 })->GetPlugins({ method => $method });
+        my @responses;
+        foreach my $plugin (@plugins) {
+            my $response = $plugin->$method(@args);
+            push @responses, $response;
+        }
+
+        return @responses;
+    }
+}
+
 =head2 GetPlugins
 
 This will return a list of all available plugins, optionally limited by
@@ -161,6 +184,30 @@ sub InstallPlugins {
 1;
 __END__
 
+=head1 AVAILABLE HOOKS
+
+=head2 after_hold_create
+
+=head3 Parameters
+
+=over
+
+=item * C<$hold> - A Koha::Hold object that has just been inserted in database
+
+=back
+
+=head3 Return value
+
+None
+
+=head3 Example
+
+    sub after_hold_create {
+        my ($self, $hold) = @_;
+
+        warn "New hold for borrower " . $hold->borrower->borrowernumber;
+    }
+
 =head1 AUTHOR
 
 Kyle M Hall <kyle.m.hall@gmail.com>
diff --git a/t/db_dependent/Koha/Plugins/Plugins.t b/t/db_dependent/Koha/Plugins/Plugins.t
index 178c5447f0..ed19ecf204 100755
--- a/t/db_dependent/Koha/Plugins/Plugins.t
+++ b/t/db_dependent/Koha/Plugins/Plugins.t
@@ -25,7 +25,7 @@ use File::Temp qw( tempdir tempfile );
 use FindBin qw($Bin);
 use Module::Load::Conditional qw(can_load);
 use Test::MockModule;
-use Test::More tests => 51;
+use Test::More tests => 52;
 
 use C4::Context;
 use Koha::Database;
@@ -46,6 +46,33 @@ BEGIN {
 
 my $schema = Koha::Database->new->schema;
 
+subtest 'call() tests' => sub {
+    plan tests => 2;
+
+    $schema->storage->txn_begin;
+    # Temporarily remove any installed plugins data
+    Koha::Plugins::Methods->delete;
+
+    my $plugins = Koha::Plugins->new({ enable_plugins => 1 });
+    my @plugins = $plugins->InstallPlugins;
+    foreach my $plugin (@plugins) {
+        $plugin->enable();
+    }
+
+    my @responses = Koha::Plugins->call('check_password', { password => 'foo' });
+
+    my $expected = [ { error => 1, msg => 'PIN should be four digits' } ];
+    is_deeply(\@responses, $expected, 'call() should return all responses from plugins');
+
+    # Make sure parameters are correctly passed to the plugin method
+    my @responses = Koha::Plugins->call('check_password', { password => '1234' });
+
+    my $expected = [ { error => 0 } ];
+    is_deeply(\@responses, $expected, 'call() should return all responses from plugins');
+
+    $schema->storage->txn_rollback;
+};
+
 subtest 'GetPlugins() tests' => sub {
 
     plan tests => 2;
-- 
2.21.0 (Apple Git-122.2)