Lines 307-313
LINE: while ( my $borrowerline = <$handle> ) {
Link Here
|
307 |
next if $col eq 'password' && !$overwrite_passwords; |
307 |
next if $col eq 'password' && !$overwrite_passwords; |
308 |
next if $col eq 'dateexpiry' && $update_dateexpiry; |
308 |
next if $col eq 'dateexpiry' && $update_dateexpiry; |
309 |
|
309 |
|
310 |
$borrower{$col} = $member->{$col} if $col eq 'dateexpiry' && !$columns[ $csvkeycol{$col} ]; |
310 |
$borrower{$col} = $member->{$col} |
|
|
311 |
if $col eq 'dateexpiry' && ( !$csvkeycol{$col} || !$columns[ $csvkeycol{$col} ] ); |
311 |
|
312 |
|
312 |
unless ( exists( $csvkeycol{$col} ) || $defaults->{$col} ) { |
313 |
unless ( exists( $csvkeycol{$col} ) || $defaults->{$col} ) { |
313 |
$borrower{$col} = $member->{$col} if ( $member->{$col} ); |
314 |
$borrower{$col} = $member->{$col} if ( $member->{$col} ); |
314 |
- |
|
|