|
Lines 222-227
sub import_patrons {
Link Here
|
| 222 |
delete $borrower{relationship}; |
222 |
delete $borrower{relationship}; |
| 223 |
delete $borrower{guarantor_id}; |
223 |
delete $borrower{guarantor_id}; |
| 224 |
|
224 |
|
|
|
225 |
# Remove warning for int datatype that cannot be null |
| 226 |
# Argument "" isn't numeric in numeric eq (==) at /usr/share/perl5/DBIx/Class/Row.pm line 1018 |
| 227 |
for my $field ( |
| 228 |
qw( privacy privacy_guarantor_fines privacy_guarantor_checkouts anonymized )) |
| 229 |
{ |
| 230 |
delete $borrower{$field} |
| 231 |
if exists $borrower{$field} and $borrower{$field} eq ""; |
| 232 |
} |
| 233 |
|
| 225 |
if ($borrowernumber) { |
234 |
if ($borrowernumber) { |
| 226 |
|
235 |
|
| 227 |
# borrower exists |
236 |
# borrower exists |
| 228 |
- |
|
|