From 878402689eb652b09bed0d4f2c7e458d5c5493f4 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 13 Jul 2016 15:41:30 +0000
Subject: [PATCH] Bug 16917 - Error when importing patrons, Column
 'checkprevcheckout' cannot be null
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Error:
DBIx::Class::Storage::DBI::_dbh_execute(): Column 'checkprevcheckout'
cannot be null at C4/Members.pm line 697

Test Plan:
1) Attempt to import a patron via csv
2) Note the error
3) Apply this patch
4) Repeat the import
5) No error!

NOTE: Given that all the other tests ran (comment #2), except
      those in comment #3, I resorted to following the test plan
      above using the attachment provided in comment #5. I
      believe the issues in comment #3 constitute other bugs
      which need fixing and are unrelated this bug. Applying the
      patch does resolve the error triggered, and the code is
      good.

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit f8eb5e7f0e4afea791d17692561fb10162aee78c)
Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
---
 C4/Members.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C4/Members.pm b/C4/Members.pm
index f9b3942489..677e22168a 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -726,6 +726,7 @@ sub AddMember {
     # get only the columns of Borrower
     my @columns = $schema->source('Borrower')->columns;
     my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} )  : () } keys(%data) } ;
+    $new_member->{checkprevcheckout} ||= 'inherit';
     delete $new_member->{borrowernumber};
 
     my $rs = $schema->resultset('Borrower');
-- 
2.39.5