ACQ MARC upload barcode extraction

Using "barcode" as the key, it's now possible to extract copy barcodes,
in addition to price, quantity, fund, etc., during ACQ vendor MARC file
upload.

Signed-off-by: Bill Erickson <berick@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>

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 9eef738..b0290a5 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -1338,7 +1338,8 @@ sub import_lineitem_details {
                 circ_modifier   => $$compiled{circ_modifier},
                 note            => $$compiled{note},
                 location        => $$compiled{copy_location},
-                collection_code => $$compiled{collection_code}
+                collection_code => $$compiled{collection_code},
+                barcode         => $$compiled{barcode}
             ) or return 0;
         }