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

svn at svn.open-ils.org svn at svn.open-ils.org
Mon Apr 13 10:46:05 EDT 2009


Author: erickson
Date: 2009-04-13 10:46:02 -0400 (Mon, 13 Apr 2009)
New Revision: 12849

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-13 04:17:39 UTC (rev 12848)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-13 14:46:02 UTC (rev 12849)
@@ -48,12 +48,12 @@
 }
 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 @@
     $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 @@
     $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 @@
     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;



More information about the open-ils-commits mailing list