View | Details | Raw Unified | Return to bug 20522
Collapse All | Expand All

(-)a/C4/Biblio.pm (-5 / +3 lines)
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
- 

Return to bug 20522