From eb955e8940928d255e540a4df299246bd9a76463 Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Fri, 4 Dec 2020 12:03:52 +0000
Subject: [PATCH] Bug 26457: Throw exception if update of issues table fails

While this won't prevent the deadlock, it should catch the case where
a deadlock causes the DB update to fail and provide feedback to the user
and rollback the transaction

I don't know how to trigger the deadlock, I can only confirm that we see it, and
that this should catch it.

To test:
1 - Apply patches
2 - Checkout several items to a patron
3 - Confirm that 'Renew all' feature continues to work as expected and all items are renewed

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 4062116352e6136e846f8a1c0567323c2c122213)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 C4/Circulation.pm           |  6 ++++++
 Koha/Exceptions/Checkout.pm | 15 +++++++++++++++
 svc/renew                   | 13 +++++++++++--
 3 files changed, 32 insertions(+), 2 deletions(-)
 create mode 100644 Koha/Exceptions/Checkout.pm

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index cc74dd89c6..f2a91d208c 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -59,6 +59,7 @@ use Koha::Charges::Fees;
 use Koha::Config::SysPref;
 use Koha::Checkouts::ReturnClaims;
 use Koha::SearchEngine::Indexer;
+use Koha::Exceptions::Checkout;
 use Carp;
 use List::MoreUtils qw( uniq any );
 use Scalar::Util qw( looks_like_number );
@@ -3040,6 +3041,11 @@ sub AddRenewal {
         );
 
         $sth->execute( $datedue->strftime('%Y-%m-%d %H:%M'), $renews, $unseen_renewals, $lastreneweddate, $borrowernumber, $itemnumber );
+        if ( $sth->err ){
+            Koha::Exceptions::Checkout::FailedRenewal->throw(
+                error => 'Update of issue# ' . $issue->issue_id . ' failed with error: ' . $sth->errstr
+            );
+        }
 
         # Update the renewal count on the item, and tell zebra to reindex
         $renews = ( $item_object->renewals || 0 ) + 1;
diff --git a/Koha/Exceptions/Checkout.pm b/Koha/Exceptions/Checkout.pm
new file mode 100644
index 0000000000..ed4b0a5a27
--- /dev/null
+++ b/Koha/Exceptions/Checkout.pm
@@ -0,0 +1,15 @@
+package Koha::Exceptions::Checkout;
+
+use Modern::Perl;
+
+use Exception::Class (
+    'Koha::Exceptions::Checkout' => {
+        description => "Something went wrong!"
+    },
+    'Koha::Exceptions::Checkout::FailedRenewal' => {
+        isa         => 'Koha::Exceptions::Checkout',
+        description => "Renewing checkout failed"
+    },
+);
+
+1;
diff --git a/svc/renew b/svc/renew
index e7792ddd60..df330ad3aa 100755
--- a/svc/renew
+++ b/svc/renew
@@ -21,6 +21,7 @@ use Modern::Perl;
 
 use CGI;
 use JSON qw(to_json);
+use Try::Tiny;
 
 use C4::Circulation;
 use C4::Context;
@@ -67,8 +68,16 @@ if ( $data->{error} && $data->{error} eq 'on_reserve' && C4::Context->preference
 }
 
 if ( $data->{renew_okay} ) {
-    $date_due = AddRenewal( $borrowernumber, $itemnumber, $branchcode, $date_due, undef, undef, $seen );
-    $data->{date_due} = output_pref( { dt => $date_due, as_due_date => 1 } );
+    try{
+        $date_due = AddRenewal( $borrowernumber, $itemnumber, $branchcode, $date_due, undef, undef, $seen );
+        $data->{date_due} = output_pref( { dt => $date_due, as_due_date => 1 } );
+    } catch {
+        if ( ref($_) eq 'Koha::Exceptions::Checkout::FailedRenewal' ) {
+            $data->{error} = 'renewal_failed';
+        } else {
+            $_->rethrow;
+        }
+    };
 }
 
 print to_json($data);
-- 
2.39.5