From: Galen Charlton <gmc@equinoxOLI.org>
Date: Wed, 8 Dec 2021 23:40:21 +0000 (-0500)
Subject: LP#1942220: (perl) set 024 ind1 correctly when applying UPC as order identifier
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9ffd02f9aa994067c254d6f912f3d9597769061b;p=working%2FEvergreen.git

LP#1942220: (perl) set 024 ind1 correctly when applying UPC as order identifier

Signed-off-by: Galen Charlton <gmc@equinoxOLI.org>
---

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);