@@ -, +, @@ --- C4/Biblio.pm | 7 ++++--- acqui/neworderempty.pl | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1199,13 +1199,14 @@ sub GetUsedMarcStructure { ($MARCfield,$MARCsubfield)=GetMarcFromKohaField($kohafield,$frameworkcode); Returns the MARC fields & subfields mapped to the koha field -for the given frameworkcode +for the given frameworkcode or default framework if $frameworkcode is missing =cut sub GetMarcFromKohaField { - my ( $kohafield, $frameworkcode ) = @_; - return (0, undef) unless $kohafield and defined $frameworkcode; + my $kohafield = shift; + my $frameworkcode = shift || ''; + return (0, undef) unless $kohafield; my $relations = C4::Context->marcfromkohafield; if ( my $mf = $relations->{$frameworkcode}->{$kohafield} ) { return @$mf; --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -451,7 +451,7 @@ sub MARCfindbreeding { if ( C4::Context->preference("z3950NormalizeAuthor") and C4::Context->preference("z3950AuthorAuthFields") ) { - my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author"); + my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", ''); # my $summary = C4::Context->preference("z3950authortemplate"); my $auth_fields = --