[open-ils-commits] r12843 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-10 11:17:09 -0400 (Fri, 10 Apr 2009)
New Revision: 12843

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
set copy location on li detail on import

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-10 14:33:40 UTC (rev 12842)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-10 15:17:09 UTC (rev 12843)
@@ -831,7 +831,8 @@
                 cn_label => $$compiled{call_number},
                 fund => $$compiled{fund},
                 circ_modifier => $$compiled{circ_modifier},
-                note => $$compiled{note}
+                note => $$compiled{note},
+                location => $$compiled{copy_location}
             ) or return 0;
         }