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