return the picklist when creating a new picklist during record upload

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14417 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index f027a37..0009ba9 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -973,6 +973,7 @@ sub upload_records {
             return $e->die_event unless 
                 $e->allowed('CREATE_PICKLIST', $picklist->org_unit, $picklist);
         }
+        $mgr->picklist($picklist);
     }
 
     if($create_po) {