From 9ffd02f9aa994067c254d6f912f3d9597769061b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 8 Dec 2021 18:40:21 -0500 Subject: [PATCH] LP#1942220: (perl) set 024 ind1 correctly when applying UPC as order identifier Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm index 62cd372577..49f5a1be07 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -4248,8 +4248,9 @@ sub apply_new_li_ident_attr { upc => '024' ); + my $ind1 = $attr_name eq 'upc' ? '1' : ' '; my $marc_field = MARC::Field->new( - $tags{$attr_name}, '', '','a' => $attr_value); + $tags{$attr_name}, $ind1, '','a' => $attr_value); my $li_rec = MARC::Record->new_from_xml($li->marc, 'UTF-8', 'USMARC'); $li_rec->insert_fields_ordered($marc_field); -- 2.11.0