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 |
- |
|
|