From: Bill Erickson <berickxx@gmail.com>
Date: Tue, 26 Apr 2016 15:06:14 +0000 (-0400)
Subject: JBAS-1295 EDI invoice LI note requestor repair
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8d7b7a5a424b4204997fa5bc9bd64e7674820cfd;p=working%2FEvergreen.git

JBAS-1295 EDI invoice LI note requestor repair

Create LI notes using 'admin' as the creator for EDI invoices, since
there is no 'requestor' value in this context, but one is required.

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm
index 7fae3880bd..cf62a74607 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm
@@ -431,6 +431,9 @@ sub create_li_invoice_note {
     my ($e, $entry) = @_;
     my $note = Fieldmapper::acq::lineitem_note->new;
     $note->lineitem($entry->lineitem);
+    # $e->requestor is unset when using EDI
+    $e->requestor($e->search_actor_user({usrname => 'admin'})->[0])
+        unless $e->requestor;
     $note->creator($e->requestor->id);
     $note->editor($e->requestor->id);
     $note->value('invoiced: ' . $e->requestor->usrname);