during LI creation, adopt the provider of the PO if linked to a PO (and no provider...

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

diff --git a/Open-ILS/src/extras/ils_events.xml b/Open-ILS/src/extras/ils_events.xml
index 7f807b9..a8d0908 100644 (file)
--- a/Open-ILS/src/extras/ils_events.xml
+++ b/Open-ILS/src/extras/ils_events.xml
@@ -952,7 +952,7 @@
                <desc xml:lang="en-US">The lineitem has no price</desc>
        </event>
        <event code='10005' textcode='ACQ_LINEITEM_NO_PROVIDER'>
-               <desc xml:lang="en-US">The lineitem has no price</desc>
+               <desc xml:lang="en-US">The lineitem has no provider</desc>
        </event>
 
        <event code='10101' textcode='ACQ_ALREADY_CANCELED'>

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index 479c153..d7300e2 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -54,6 +54,8 @@ sub create_lineitem {
             or return $e->die_event;
         return $e->die_event unless 
             $e->allowed('MANAGE_PROVIDER', $po->ordering_agency, $po);
+
+        $li->provider($po->provider) unless defined $li->provider;
     }
 
     $li->selector($e->requestor->id);