Lines 297-307
sub ModBiblio {
Link Here
|
297 |
|
297 |
|
298 |
# Cleaning up invalid fields must be done early or SetUTF8Flag is liable to |
298 |
# Cleaning up invalid fields must be done early or SetUTF8Flag is liable to |
299 |
# throw an exception which probably won't be handled. |
299 |
# throw an exception which probably won't be handled. |
|
|
300 |
# Remove fields with no subfields |
300 |
foreach my $field ($record->fields()) { |
301 |
foreach my $field ($record->fields()) { |
301 |
if (! $field->is_control_field()) { |
302 |
if (! $field->is_control_field() && scalar($field->subfields()) == 0) { |
302 |
if (scalar($field->subfields()) == 0 || (scalar($field->subfields()) == 1 && $field->subfield('9'))) { |
303 |
$record->delete_field($field); |
303 |
$record->delete_field($field); |
|
|
304 |
} |
305 |
} |
304 |
} |
306 |
} |
305 |
} |
307 |
|
306 |
|
308 |
- |
|
|