|
Lines 585-591
sub ModMember {
Link Here
|
| 585 |
$new_borrower->{dateexpiry} ||= undef if exists $new_borrower->{dateexpiry}; |
585 |
$new_borrower->{dateexpiry} ||= undef if exists $new_borrower->{dateexpiry}; |
| 586 |
$new_borrower->{debarred} ||= undef if exists $new_borrower->{debarred}; |
586 |
$new_borrower->{debarred} ||= undef if exists $new_borrower->{debarred}; |
| 587 |
$new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id}; |
587 |
$new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id}; |
| 588 |
|
588 |
$new_borrower->{flags} = 0 unless $new_borrower->{flags}; |
|
|
589 |
$new_borrower->{gonenoaddress} = 0 unless $new_borrower->{gonenoaddress}; |
| 590 |
$new_borrower->{lost} = 0 unless $new_borrower->{lost}; |
| 591 |
$new_borrower->{guarantorid} = 0 unless $new_borrower->{guarantorid}; |
| 592 |
|
| 589 |
my $rs = $schema->resultset('Borrower')->search({ |
593 |
my $rs = $schema->resultset('Borrower')->search({ |
| 590 |
borrowernumber => $new_borrower->{borrowernumber}, |
594 |
borrowernumber => $new_borrower->{borrowernumber}, |
| 591 |
}); |
595 |
}); |
|
Lines 678-683
sub AddMember {
Link Here
|
| 678 |
$data{'dateofbirth'} = undef if ( not $data{'dateofbirth'} ); |
682 |
$data{'dateofbirth'} = undef if ( not $data{'dateofbirth'} ); |
| 679 |
$data{'debarred'} = undef if ( not $data{'debarred'} ); |
683 |
$data{'debarred'} = undef if ( not $data{'debarred'} ); |
| 680 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
684 |
$data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} ); |
|
|
685 |
$data{flags} = 0 unless $data{flags}; |
| 686 |
$data{gonenoaddress} = 0 unless $data{gonenoaddress}; |
| 687 |
$data{lost} = 0 unless $data{lost}; |
| 688 |
$data{guarantorid} = 0 unless $data{guarantorid}; |
| 681 |
|
689 |
|
| 682 |
# get only the columns of Borrower |
690 |
# get only the columns of Borrower |
| 683 |
my @columns = $schema->source('Borrower')->columns; |
691 |
my @columns = $schema->source('Borrower')->columns; |
| 684 |
- |
|
|