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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-06 16:31:34 -0400 (Mon, 06 Apr 2009)
New Revision: 12803

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
set provider on lineitem at import

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2009-04-06 20:12:29 UTC (rev 12802)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2009-04-06 20:31:34 UTC (rev 12803)
@@ -583,7 +583,7 @@
 
     if($create_po) {
         $purchase_order = Fieldmapper::acq::purchase_order->new;
-        $purchase_order->provider($provider);
+        $purchase_order->provider($provider->id);
         $purchase_order->ordering_agency($ordering_agency);
         my $evt = OpenILS::Application::Acq::Financials::create_purchase_order_impl($e, $purchase_order);
         return $evt if $evt;
@@ -627,6 +627,7 @@
             $li->picklist($picklist->id) if $picklist;
             $li->purchase_order($purchase_order->id) if $purchase_order;
             $li->source_label($provider->code); # XXX ??
+            $li->provider($provider->id);
             $li->selector($e->requestor->id);
             $li->creator($e->requestor->id);
             $li->editor($e->requestor->id);