From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 13 Apr 2009 14:46:02 +0000 (+0000)
Subject: fixed status update variable for picklist / purchase order.  store estimated price... 
X-Git-Tag: sprint4-merge-nov22~10278
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=927974c8c5a616ec02d20c52687d7b7aabffb380;p=working%2FEvergreen.git

fixed status update variable for picklist / purchase order.  store estimated price as local attr, since the source is the holdings data and not the primary marc data

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12849 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index 2fa4f61193..30d3b3f4d7 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -48,12 +48,12 @@ sub total {
 }
 sub purchase_order {
     my($self, $val) = @_;
-    $self->{purchase_order} = $val if $val;
+    $self->{args}->{purchase_order} = $val if $val;
     return $self;
 }
 sub picklist {
     my($self, $val) = @_;
-    $self->{picklist} = $val if $val;
+    $self->{args}->{picklist} = $val if $val;
     return $self;
 }
 sub add_lid {
@@ -417,6 +417,7 @@ sub update_picklist {
     $picklist = $mgr->editor->retrieve_acq_picklist($picklist) unless ref $picklist;
     $picklist->edit_time('now');
     $picklist->editor($mgr->editor->requestor->id);
+    $mgr->picklist($picklist);
     return $picklist if $mgr->editor->update_acq_picklist($picklist);
     return undef;
 }
@@ -455,6 +456,7 @@ sub update_purchase_order {
     $po = $mgr->editor->retrieve_acq_purchase_order($po) unless ref $po;
     $po->editor($mgr->editor->requestor->id);
     $po->edit_date('now');
+    $mgr->purchase_order($po);
     return $po if $mgr->editor->update_acq_purchase_order($po);
     return undef;
 }
@@ -844,7 +846,7 @@ sub import_lineitem_details {
     set_lineitem_attr(
         $mgr, 
         attr_name => 'estimated_price',
-        attr_type => 'lineitem_provider_attr_definition',
+        attr_type => 'lineitem_local_attr_definition',
         attr_value => $price,
         lineitem => $li->id
     ) or return 0;