@@ -, +, @@ publication en série" record. => Everything is fine: $a et $9 are properly stored. record. => 010 field is removed containing only a $9 subfield can be saved properly. --- C4/Biblio.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -297,11 +297,10 @@ sub ModBiblio { # Cleaning up invalid fields must be done early or SetUTF8Flag is liable to # throw an exception which probably won't be handled. + # Remove fields with no subfields foreach my $field ($record->fields()) { - if (! $field->is_control_field()) { - if (scalar($field->subfields()) == 0 || (scalar($field->subfields()) == 1 && $field->subfield('9'))) { - $record->delete_field($field); - } + if (! $field->is_control_field() && scalar($field->subfields()) == 0) { + $record->delete_field($field); } } --