|
Lines 243-248
if ( $uploadborrowers && length($uploadborrowers) > 0 ) {
Link Here
|
| 243 |
for my $col (keys %borrower) { |
243 |
for my $col (keys %borrower) { |
| 244 |
# use values from extant patron unless our csv file includes this column or we provided a default. |
244 |
# use values from extant patron unless our csv file includes this column or we provided a default. |
| 245 |
# FIXME : You cannot update a field with a perl-evaluated false value using the defaults. |
245 |
# FIXME : You cannot update a field with a perl-evaluated false value using the defaults. |
|
|
246 |
|
| 247 |
# The password is always encrypted, skip it! |
| 248 |
next if $col eq 'password'; |
| 249 |
|
| 246 |
unless(exists($csvkeycol{$col}) || $defaults{$col}) { |
250 |
unless(exists($csvkeycol{$col}) || $defaults{$col}) { |
| 247 |
$borrower{$col} = $member->{$col} if($member->{$col}) ; |
251 |
$borrower{$col} = $member->{$col} if($member->{$col}) ; |
| 248 |
} |
252 |
} |
| 249 |
- |
|
|