From 48f25fec431322d8ce47d62793985a5b498ab22a Mon Sep 17 00:00:00 2001
From: Chris Hall <chrish@catalyst.net.nz>
Date: Tue, 6 Dec 2011 16:03:59 +1300
Subject: [PATCH] bug 7239 fix to avoid error being thrown even though a record
 is created

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
When creating an item in acquisitions while ordering and not filling out
any fields, there is no longer shown a perl error message.

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 C4/Biblio.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 52119ea990..ac78ae379e 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -2077,7 +2077,7 @@ sub TransformHtmlToXml {
         }
         $prevtag = @$tags[$i];
     }
-    $xml .= "</datafield>\n" if @$tags > 0;
+    $xml .= "</datafield>\n" if $xml =~ m/<datafield/;
     if ( C4::Context->preference('marcflavour') eq 'UNIMARC' and !$unimarc_and_100_exist ) {
 
         #     warn "SETTING 100 for $auth_type";
-- 
2.39.5