Lines 590-595
sub ModMember {
Link Here
|
590 |
$new_borrower->{dateexpiry} ||= undef if exists $new_borrower->{dateexpiry}; |
590 |
$new_borrower->{dateexpiry} ||= undef if exists $new_borrower->{dateexpiry}; |
591 |
$new_borrower->{debarred} ||= undef if exists $new_borrower->{debarred}; |
591 |
$new_borrower->{debarred} ||= undef if exists $new_borrower->{debarred}; |
592 |
$new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id}; |
592 |
$new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id}; |
|
|
593 |
$new_borrower->{guarantorid} ||= undef if exists $new_borrower->{guarantorid}; |
593 |
|
594 |
|
594 |
my $rs = $schema->resultset('Borrower')->search({ |
595 |
my $rs = $schema->resultset('Borrower')->search({ |
595 |
borrowernumber => $new_borrower->{borrowernumber}, |
596 |
borrowernumber => $new_borrower->{borrowernumber}, |
Lines 685-690
sub AddMember {
Link Here
|
685 |
$data{'dateofbirth'} = undef if ( not $data{'dateofbirth'} ); |
686 |
$data{'dateofbirth'} = undef if ( not $data{'dateofbirth'} ); |
686 |
$data{'debarred'} = undef if ( not $data{'debarred'} ); |
687 |
$data{'debarred'} = undef if ( not $data{'debarred'} ); |
687 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
688 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
|
|
689 |
$data{'guarantorid'} = undef if ( not $data{'guarantorid'} ); |
688 |
|
690 |
|
689 |
# get only the columns of Borrower |
691 |
# get only the columns of Borrower |
690 |
my @columns = $schema->source('Borrower')->columns; |
692 |
my @columns = $schema->source('Borrower')->columns; |
691 |
- |
|
|