From eab0b5b1d1d503dc659f030763e6054e7f06e30d Mon Sep 17 00:00:00 2001 From: Blou Date: Tue, 27 Sep 2016 09:15:49 -0400 Subject: [PATCH] Bug 17328 - Borrowers table modifications must provide valid values for int columns --- C4/Members.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/C4/Members.pm b/C4/Members.pm index 4b2d7ff..281204c 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -585,7 +585,11 @@ sub ModMember { $new_borrower->{dateexpiry} ||= undef if exists $new_borrower->{dateexpiry}; $new_borrower->{debarred} ||= undef if exists $new_borrower->{debarred}; $new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id}; - + $new_borrower->{flags} = 0 unless $new_borrower->{flags}; + $new_borrower->{gonenoaddress} = 0 unless $new_borrower->{gonenoaddress}; + $new_borrower->{lost} = 0 unless $new_borrower->{lost}; + $new_borrower->{guarantorid} = 0 unless $new_borrower->{guarantorid}; + my $rs = $schema->resultset('Borrower')->search({ borrowernumber => $new_borrower->{borrowernumber}, }); @@ -678,6 +682,10 @@ sub AddMember { $data{'dateofbirth'} = undef if ( not $data{'dateofbirth'} ); $data{'debarred'} = undef if ( not $data{'debarred'} ); $data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); + $data{flags} = 0 unless $data{flags}; + $data{gonenoaddress} = 0 unless $data{gonenoaddress}; + $data{lost} = 0 unless $data{lost}; + $data{guarantorid} = 0 unless $data{guarantorid}; # get only the columns of Borrower my @columns = $schema->source('Borrower')->columns; -- 2.1.0