From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 6 Mar 2012 13:54:55 +0000 (-0500)
Subject: ACQ MARC upload barcode extraction
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e9946e925e33078b6e0a1f40c34ea59d2d7a15d3;p=evergreen%2Ftadl.git

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 9eef738b64..b0290a5244 100644
--- 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;
         }