Lines 687-695
sub AddMember {
Link Here
|
687 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
687 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
688 |
|
688 |
|
689 |
# get only the columns of Borrower |
689 |
# get only the columns of Borrower |
|
|
690 |
# FIXME Do we really need this check? |
690 |
my @columns = $schema->source('Borrower')->columns; |
691 |
my @columns = $schema->source('Borrower')->columns; |
691 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
692 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
692 |
$new_member->{checkprevcheckout} ||= 'inherit'; |
693 |
|
693 |
delete $new_member->{borrowernumber}; |
694 |
delete $new_member->{borrowernumber}; |
694 |
|
695 |
|
695 |
my $patron = Koha::Patron->new( $new_member )->store; |
696 |
my $patron = Koha::Patron->new( $new_member )->store; |
696 |
- |
|
|