lineitem creation does not necessarily require a picklist

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9585 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
index b40f4ba..3949937 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
@@ -296,14 +296,16 @@ sub create_lineitem {
     return $e->die_event unless $e->checkauth;
     return $e->die_event unless $e->allowed('CREATE_PICKLIST');
 
-    my $picklist = $e->retrieve_acq_picklist($li->picklist)
-        or return $e->die_event;
-    return OpenILS::Event->new('BAD_PARAMS') 
-        unless $picklist->owner == $e->requestor->id;
-
-    # indicate the picklist was updated
-    $picklist->edit_time('now');
-    $e->update_acq_picklist($picklist) or return $e->die_event;
+    if($li->picklist) {
+        my $picklist = $e->retrieve_acq_picklist($li->picklist)
+            or return $e->die_event;
+        return OpenILS::Event->new('BAD_PARAMS') 
+            unless $picklist->owner == $e->requestor->id;
+    
+        # indicate the picklist was updated
+        $picklist->edit_time('now');
+        $e->update_acq_picklist($picklist) or return $e->die_event;
+    }
 
     $li->selector($e->requestor->id);
     $e->create_acq_lineitem($li) or return $e->die_event;