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