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>

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 1b1aff3..c7ca67f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -1343,7 +1343,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;
         }