Lines 326-331
sub ModBiblio {
Link Here
|
326 |
$record->append_fields($field); |
326 |
$record->append_fields($field); |
327 |
} |
327 |
} |
328 |
|
328 |
|
|
|
329 |
foreach my $field ($record->fields()) { |
330 |
if (! $field->is_control_field()) { |
331 |
if (scalar($field->subfields()) == 0) { |
332 |
$record->delete_fields($field); |
333 |
} |
334 |
} |
335 |
} |
336 |
|
329 |
# update biblionumber and biblioitemnumber in MARC |
337 |
# update biblionumber and biblioitemnumber in MARC |
330 |
# FIXME - this is assuming a 1 to 1 relationship between |
338 |
# FIXME - this is assuming a 1 to 1 relationship between |
331 |
# biblios and biblioitems |
339 |
# biblios and biblioitems |
332 |
- |
|
|