View | Details | Raw Unified | Return to bug 17080
Collapse All | Expand All

(-)a/C4/Members.pm (-2 / +2 lines)
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
- 

Return to bug 17080