|
Lines 352-358
sub _initialize {
Link Here
|
| 352 |
$self->{fields}->{$fn}, $self->{name}, $msg |
352 |
$self->{fields}->{$fn}, $self->{name}, $msg |
| 353 |
); |
353 |
); |
| 354 |
} else { |
354 |
} else { |
| 355 |
$self->{fields}->{$fn} = substr( $field, 2 ); |
355 |
my $field_value = substr( $field, 2 ); |
|
|
356 |
$self->{fields}->{$fn} = $field_value; |
| 357 |
|
| 358 |
# Enhanced debug logging for empty critical fields that could cause constraint errors |
| 359 |
if ( defined $field_value && $field_value eq '' ) { |
| 360 |
if ( $fn eq FID_PATRON_ID ) { |
| 361 |
siplog( |
| 362 |
"LOG_DEBUG", "Empty patron_id detected in %s message - could cause constraint errors", |
| 363 |
$self->{name} |
| 364 |
); |
| 365 |
} elsif ( $fn eq FID_ITEM_ID ) { |
| 366 |
siplog( |
| 367 |
"LOG_DEBUG", "Empty item_id detected in %s message - could cause constraint errors", |
| 368 |
$self->{name} |
| 369 |
); |
| 370 |
} |
| 371 |
} |
| 356 |
} |
372 |
} |
| 357 |
} |
373 |
} |
| 358 |
|
374 |
|
| 359 |
- |
|
|