|
Lines 295-300
sub ModBiblio {
Link Here
|
| 295 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted ); |
295 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted ); |
| 296 |
} |
296 |
} |
| 297 |
|
297 |
|
|
|
298 |
# Cleaning up invalid fields must be done early or SetUTF8Flag is liable to |
| 299 |
# throw an exception which probably won't be handled. |
| 300 |
foreach my $field ($record->fields()) { |
| 301 |
if (! $field->is_control_field()) { |
| 302 |
if (scalar($field->subfields()) == 0 || (scalar($field->subfields()) == 1 && $field->subfield('9'))) { |
| 303 |
$record->delete_field($field); |
| 304 |
} |
| 305 |
} |
| 306 |
} |
| 307 |
|
| 298 |
SetUTF8Flag($record); |
308 |
SetUTF8Flag($record); |
| 299 |
my $dbh = C4::Context->dbh; |
309 |
my $dbh = C4::Context->dbh; |
| 300 |
|
310 |
|
|
Lines 334-347
sub ModBiblio {
Link Here
|
| 334 |
$record->append_fields($field); |
344 |
$record->append_fields($field); |
| 335 |
} |
345 |
} |
| 336 |
|
346 |
|
| 337 |
foreach my $field ($record->fields()) { |
|
|
| 338 |
if (! $field->is_control_field()) { |
| 339 |
if (scalar($field->subfields()) == 0) { |
| 340 |
$record->delete_fields($field); |
| 341 |
} |
| 342 |
} |
| 343 |
} |
| 344 |
|
| 345 |
# update biblionumber and biblioitemnumber in MARC |
347 |
# update biblionumber and biblioitemnumber in MARC |
| 346 |
# FIXME - this is assuming a 1 to 1 relationship between |
348 |
# FIXME - this is assuming a 1 to 1 relationship between |
| 347 |
# biblios and biblioitems |
349 |
# biblios and biblioitems |
| 348 |
- |
|
|