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