Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Alex Arnaud <alex.arnaud@biblibre.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
return(1, $cardnumber, $local_userid);
}
} elsif ($config{replicate}) { # A2, C2
- my $patron = Koha::Patron->new( \%borrower )->store;
+ my @columns = Koha::Patrons->columns;
+ my $patron = Koha::Patron->new(
+ map {
+ grep join( ' ', @columns ) =~ /$_/
+ ? ( $_ => $data{$_} )
+ : ()
+ } keys %borrower
+ )->store;
die "Insert of new patron failed" unless $patron;
$borrowernumber = $patron->borrowernumber;
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } );