From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 30 Jul 2008 02:18:22 +0000 (+0000)
Subject: setting attr def when creating a new local/usr lineitem_attr
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=bcbecb045d2ef440165d7b72deaeaf046b1413ae;p=Evergreen.git

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
---

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;
     }