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

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

Return to bug 17080