From bcbecb045d2ef440165d7b72deaeaf046b1413ae Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 30 Jul 2008 02:18:22 +0000 Subject: [PATCH] setting attr def when creating a new local/usr lineitem_attr git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10183 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm index 84aceabbc0..d9eb7583d0 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm @@ -736,6 +736,8 @@ sub set_lineitem_attr { attr_type => $attr_type, attr_name => $attr_name})->[0]; + my $find = "search_acq_$attr_type"; + if($attr) { $attr->attr_value($attr_value); $e->update_acq_lineitem_attr($attr) or return $e->die_event; @@ -745,6 +747,10 @@ sub set_lineitem_attr { $attr->attr_type($attr_type); $attr->attr_name($attr_name); $attr->attr_value($attr_value); + + my $attr_def_id = $e->$find({code => $attr_name}, {idlist=>1})->[0] + or return $e->die_event; + $attr->definition($attr_def_id); $e->create_acq_lineitem_attr($attr) or return $e->die_event; } -- 2.11.0