[Koha-patches] [PATCH] Bug 7921: Software error while placing order

[Fridolyn SOMERS]

---
 C4/Biblio.pm           |    7 ++++---
 acqui/neworderempty.pl |    2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index afb60d3..eb213d5 100644
--- a/C4/Biblio.pm
+++ b/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;
diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 4144033..965eeef 100755
--- a/acqui/neworderempty.pl
+++ b/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 =
-- 
1.7.9.5