[open-ils-commits] r10109 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-07-24 10:18:31 -0400 (Thu, 24 Jul 2008)
New Revision: 10109

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:
returning the lineitem attr id on success instead of 1

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2008-07-24 14:18:01 UTC (rev 10108)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2008-07-24 14:18:31 UTC (rev 10109)
@@ -688,7 +688,7 @@
             {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 @@
     }
 
     $e->commit;
-    return 1;
+    return $attr->id;
 }