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>
This commit is contained in:
Chris Hall 2011-12-06 16:03:59 +13:00 committed by Paul Poulain
parent 8121f5581f
commit 48f25fec43

View file

@ -2077,7 +2077,7 @@ sub TransformHtmlToXml {
} }
$prevtag = @$tags[$i]; $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 ) { if ( C4::Context->preference('marcflavour') eq 'UNIMARC' and !$unimarc_and_100_exist ) {
# warn "SETTING 100 for $auth_type"; # warn "SETTING 100 for $auth_type";