Lines 636-644
sub AddMember {
Link Here
|
636 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
636 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
637 |
|
637 |
|
638 |
# get only the columns of Borrower |
638 |
# get only the columns of Borrower |
|
|
639 |
# FIXME Do we really need this check? |
639 |
my @columns = $schema->source('Borrower')->columns; |
640 |
my @columns = $schema->source('Borrower')->columns; |
640 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
641 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
641 |
$new_member->{checkprevcheckout} ||= 'inherit'; |
642 |
|
642 |
delete $new_member->{borrowernumber}; |
643 |
delete $new_member->{borrowernumber}; |
643 |
|
644 |
|
644 |
my $patron = Koha::Patron->new( $new_member )->store; |
645 |
my $patron = Koha::Patron->new( $new_member )->store; |
645 |
- |
|
|