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 84aceab..d9eb758 100644 (file)
--- 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;
     }