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