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