|
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 |