Lines 691-696
sub AddMember {
Link Here
|
691 |
# get only the columns of Borrower |
691 |
# get only the columns of Borrower |
692 |
my @columns = $schema->source('Borrower')->columns; |
692 |
my @columns = $schema->source('Borrower')->columns; |
693 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
693 |
my $new_member = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $data{$_} ) : () } keys(%data) } ; |
|
|
694 |
$new_member->{checkprevcheckout} ||= 'inherit'; |
694 |
delete $new_member->{borrowernumber}; |
695 |
delete $new_member->{borrowernumber}; |
695 |
|
696 |
|
696 |
my $rs = $schema->resultset('Borrower'); |
697 |
my $rs = $schema->resultset('Borrower'); |
697 |
- |
|
|