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