Bug 12395: Save order line's creator

[koha.git] / Koha / Acquisition / Order.pm

diff --git a/Koha/Acquisition/Order.pm b/Koha/Acquisition/Order.pm
index 79fb056..b195ed2 100644 (file)
--- a/Koha/Acquisition/Order.pm
+++ b/Koha/Acquisition/Order.pm
@@ -69,6 +69,13 @@ sub store {
           unless $self->$key;
     }
 
+    if (not defined $self->{created_by}) {
+        my $userenv = C4::Context->userenv;
+        if ($userenv) {
+            $self->created_by($userenv->{number});
+        }
+    }
+
     $self->quantityreceived(0) unless $self->quantityreceived;
     $self->entrydate(dt_from_string) unless $self->entrydate;