From e65776a6d208667058918ab03fa36c8da243c082 Mon Sep 17 00:00:00 2001
From: David Cook <dcook@prosentient.com.au>
Date: Thu, 29 Oct 2020 05:23:10 +0000
Subject: [PATCH] Bug 26853: Throw a fatal error if import_biblios insert fails

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 8b70bd03f7371deb8dd7ef25e2036c0bbc9b1698)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
---
 C4/ImportBatch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm
index 7d0d7bab5a..6c60c675a8 100644
--- a/C4/ImportBatch.pm
+++ b/C4/ImportBatch.pm
@@ -1637,7 +1637,7 @@ sub _add_biblio_fields {
     # FIXME no controlnumber, originalsource
     $isbn = C4::Koha::GetNormalizedISBN($isbn);
     my $sth = $dbh->prepare("INSERT INTO import_biblios (import_record_id, title, author, isbn, issn) VALUES (?, ?, ?, ?, ?)");
-    $sth->execute($import_record_id, $title, $author, $isbn, $issn);
+    $sth->execute($import_record_id, $title, $author, $isbn, $issn) or die $sth->errstr;
     $sth->finish();
                 
 }
-- 
2.39.5