Lines 182-192
sub accept_borrower {
Link Here
|
182 |
my $newcommer = not $id; |
182 |
my $newcommer = not $id; |
183 |
|
183 |
|
184 |
if ( $newcommer ) { |
184 |
if ( $newcommer ) { |
185 |
return 0 unless $config{update}; |
185 |
return 0 unless $config{replicate}; |
186 |
$debug and logger { Member => $$borrower{column} }; |
186 |
$debug and logger { Member => $$borrower{column} }; |
187 |
$id = AddMember( %{ $$borrower{column} } ) or return 0; |
187 |
$id = AddMember( %{ $$borrower{column} } ) or return 0; |
188 |
} else { |
188 |
} else { |
189 |
if ( $config{replicate} ) { |
189 |
if ( $config{update} ) { |
190 |
delete $$borrower{column}{dateenrolled}; |
190 |
delete $$borrower{column}{dateenrolled}; |
191 |
delete $$borrower{column}{dateexpiry}; |
191 |
delete $$borrower{column}{dateexpiry}; |
192 |
$cardnumber = update_local |
192 |
$cardnumber = update_local |