|
Lines 679-684
sub AddMember {
Link Here
|
| 679 |
$data{'debarred'} = undef if ( not $data{'debarred'} ); |
679 |
$data{'debarred'} = undef if ( not $data{'debarred'} ); |
| 680 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
680 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
| 681 |
|
681 |
|
|
|
682 |
# assign a valid flags default if none provided |
| 683 |
$new_member->{flags} = 0 unless $new_member->{flags}; |
| 684 |
|
| 682 |
# get only the columns of Borrower |
685 |
# get only the columns of Borrower |
| 683 |
my @columns = $schema->source('Borrower')->columns; |
686 |
my @columns = $schema->source('Borrower')->columns; |
| 684 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
687 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
| 685 |
- |
|
|