[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