Lines 726-731
sub AddMember {
Link Here
|
726 |
# get only the columns of Borrower |
726 |
# get only the columns of Borrower |
727 |
my @columns = $schema->source('Borrower')->columns; |
727 |
my @columns = $schema->source('Borrower')->columns; |
728 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
728 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
|
|
729 |
$new_member->{checkprevcheckout} ||= 'inherit'; |
729 |
delete $new_member->{borrowernumber}; |
730 |
delete $new_member->{borrowernumber}; |
730 |
|
731 |
|
731 |
my $rs = $schema->resultset('Borrower'); |
732 |
my $rs = $schema->resultset('Borrower'); |
732 |
- |
|
|