Lines 267-273
LINE: while ( my $borrowerline = <$handle> ) {
Link Here
|
267 |
|
267 |
|
268 |
# Remove warning for int datatype that cannot be null |
268 |
# Remove warning for int datatype that cannot be null |
269 |
# Argument "" isn't numeric in numeric eq (==) at /usr/share/perl5/DBIx/Class/Row.pm line 1018 |
269 |
# Argument "" isn't numeric in numeric eq (==) at /usr/share/perl5/DBIx/Class/Row.pm line 1018 |
270 |
for my $field (qw( privacy privacy_guarantor_fines privacy_guarantor_checkouts anonymized login_attempts )) { |
270 |
for my $field ( |
|
|
271 |
qw( privacy privacy_guarantor_fines privacy_guarantor_checkouts anonymized login_attempts checkprevcheckout) |
272 |
) |
273 |
{ |
271 |
delete $borrower{$field} |
274 |
delete $borrower{$field} |
272 |
if exists $borrower{$field} and $borrower{$field} eq ""; |
275 |
if exists $borrower{$field} and $borrower{$field} eq ""; |
273 |
} |
276 |
} |
274 |
- |
|
|