returning the lineitem attr id on success instead of 1

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10109 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 0cfa9a2..d534485 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -688,7 +688,7 @@ __PACKAGE__->register_method(
             {desc => 'Attr name', type => 'string'},
             {desc => 'Attr value', type => 'string'}
         ],
-        return => {desc => '1 on success, Event on error'}
+        return => {desc => 'ID of the attr object on success, Event on error'}
     }
 );
 
@@ -721,7 +721,7 @@ sub set_lineitem_attr {
     }
 
     $e->commit;
-    return 1;
+    return $attr->id;
 }