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