LP#1942220: (perl) set 024 ind1 correctly when applying UPC as order identifier
authorGalen Charlton <gmc@equinoxOLI.org>
Wed, 8 Dec 2021 23:40:21 +0000 (18:40 -0500)
committerGalen Charlton <gmc@equinoxOLI.org>
Wed, 8 Dec 2021 23:40:21 +0000 (18:40 -0500)
Signed-off-by: Galen Charlton <gmc@equinoxOLI.org>
Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm

index 62cd372..49f5a1b 100644 (file)
@@ -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);