[open-ils-commits] r12562 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-17 11:45:06 -0400 (Tue, 17 Mar 2009)
New Revision: 12562

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
set state explicitly so caller will have the state in the retrieved LIs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2009-03-17 15:36:42 UTC (rev 12561)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2009-03-17 15:45:06 UTC (rev 12562)
@@ -466,6 +466,7 @@
             $li->edit_time('now');
             $li->create_time('now');
             $li->marc($rec->{marcxml});
+            $li->state('new');
             $li->eg_bib_id($rec->{bibid}) if $rec->{bibid};
             $e->create_acq_lineitem($li) or return $e->die_event;