From 458954248308dffaa7ef2f7766aa3463b759aa9a Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 19 Oct 2016 10:09:56 +0000 Subject: [PATCH] Bug 14752 - Followup to fix error if barcode fields undefined --- acqui/addorder.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/acqui/addorder.pl b/acqui/addorder.pl index 5223b7f..c35b851 100755 --- a/acqui/addorder.pl +++ b/acqui/addorder.pl @@ -316,6 +316,7 @@ if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) { 'ITEM'); my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); my ($barcodefield,$barcodesubfield) = GetMarcFromKohaField('items.barcode'); + next unless ( defined $barcodefield && defined $barcodesubfield ); my $barcode = $record->subfield($barcodefield,$barcodesubfield) || ''; my $aBpref = C4::Context->preference('autoBarcode'); if( $barcode eq '' && $aBpref ne 'OFF'){ -- 2.1.4