|
Lines 670-675
sub ModMember {
Link Here
|
| 670 |
my $new_borrower = { map { join(' ', @columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) }; |
670 |
my $new_borrower = { map { join(' ', @columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) }; |
| 671 |
delete $new_borrower->{flags}; |
671 |
delete $new_borrower->{flags}; |
| 672 |
|
672 |
|
|
|
673 |
$new_borrower->{dateofbirth} ||= undef if exists $new_borrower->{dateofbirth}; |
| 674 |
$new_borrower->{dateenrolled} ||= undef if exists $new_borrower->{dateenrolled}; |
| 675 |
$new_borrower->{dateexpiry} ||= undef if exists $new_borrower->{dateexpiry}; |
| 673 |
my $rs = $schema->resultset('Borrower')->search({ |
676 |
my $rs = $schema->resultset('Borrower')->search({ |
| 674 |
borrowernumber => $new_borrower->{borrowernumber}, |
677 |
borrowernumber => $new_borrower->{borrowernumber}, |
| 675 |
}); |
678 |
}); |
| 676 |
- |
|
|