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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-14 09:27:45 -0400 (Wed, 14 Oct 2009)
New Revision: 14417

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
return the picklist when creating a new picklist during record upload

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-10-14 09:56:15 UTC (rev 14416)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-10-14 13:27:45 UTC (rev 14417)
@@ -973,6 +973,7 @@
             return $e->die_event unless 
                 $e->allowed('CREATE_PICKLIST', $picklist->org_unit, $picklist);
         }
+        $mgr->picklist($picklist);
     }
 
     if($create_po) {