@@ -, +, @@ --- C4/Suggestions.pm | 8 ++++---- t/db_dependent/Suggestions.t | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -617,19 +617,19 @@ sub MarcRecordFromNewSuggestion { if (my $isbn = $suggestion->{isbn}) { for my $field (qw(biblioitems.isbn biblioitems.issn)) { - my ($tag, $subfield) = GetMarcFromKohaField($field, ''); + my ($tag, $subfield) = GetMarcFromKohaField($field); $record->append_fields( MARC::Field->new($tag, ' ', ' ', $subfield => $isbn) ); } } else { - my ($title_tag, $title_subfield) = GetMarcFromKohaField('biblio.title', ''); + my ($title_tag, $title_subfield) = GetMarcFromKohaField('biblio.title'); $record->append_fields( MARC::Field->new($title_tag, ' ', ' ', $title_subfield => $suggestion->{title}) ); - my ($author_tag, $author_subfield) = GetMarcFromKohaField('biblio.author', ''); + my ($author_tag, $author_subfield) = GetMarcFromKohaField('biblio.author'); if ($record->field( $author_tag )) { $record->field( $author_tag )->add_subfields( $author_subfield => $suggestion->{author} ); } @@ -640,7 +640,7 @@ sub MarcRecordFromNewSuggestion { } } - my ($it_tag, $it_subfield) = GetMarcFromKohaField('biblioitems.itemtype', ''); + my ($it_tag, $it_subfield) = GetMarcFromKohaField('biblioitems.itemtype'); if ($record->field( $it_tag )) { $record->field( $it_tag )->add_subfields( $it_subfield => $suggestion->{itemtype} ); } --- a/t/db_dependent/Suggestions.t +++ a/t/db_dependent/Suggestions.t @@ -667,7 +667,7 @@ subtest 'Suggestion with ISBN' => sub { is($record->field( $title_tag), undef, "Record from suggestion title should be empty"); my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author', ''); - is($record->field( $author_tag), undef, "Record from suggestion author should be emtpy"); + is($record->field( $author_tag), undef, "Record from suggestion author should be empty"); }; $schema->storage->txn_rollback; --