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

(-)a/C4/Biblio.pm (-9 / +10 lines)
Lines 299-304 sub ModBiblio { Link Here
299
        logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted );
299
        logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted );
300
    }
300
    }
301
301
302
    # Cleaning up invalid fields must be done early or SetUTF8Flag is liable to
303
    # throw an exception which probably won't be handled.
304
    foreach my $field ($record->fields()) {
305
        if (! $field->is_control_field()) {
306
            if (scalar($field->subfields()) == 0 || (scalar($field->subfields()) == 1 && $field->subfield('9'))) {
307
                $record->delete_field($field);
308
            }
309
        }
310
    }
311
302
    SetUTF8Flag($record);
312
    SetUTF8Flag($record);
303
    my $dbh = C4::Context->dbh;
313
    my $dbh = C4::Context->dbh;
304
314
Lines 306-319 sub ModBiblio { Link Here
306
316
307
    _strip_item_fields($record, $frameworkcode);
317
    _strip_item_fields($record, $frameworkcode);
308
318
309
    foreach my $field ($record->fields()) {
310
        if (! $field->is_control_field()) {
311
            if (scalar($field->subfields()) == 0) {
312
                $record->delete_fields($field);
313
            }
314
        }
315
    }
316
317
    # update biblionumber and biblioitemnumber in MARC
319
    # update biblionumber and biblioitemnumber in MARC
318
    # FIXME - this is assuming a 1 to 1 relationship between
320
    # FIXME - this is assuming a 1 to 1 relationship between
319
    # biblios and biblioitems
321
    # biblios and biblioitems
320
- 

Return to bug 5683