From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4> Date: Fri, 20 Aug 2010 15:35:53 +0000 (+0000) Subject: during LI creation, adopt the provider of the PO if linked to a PO (and no provider... X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fcd5800970853bee5e67c05d803a12525e191df2;p=evergreen%2Ftadl.git during LI creation, adopt the provider of the PO if linked to a PO (and no provider was selected). repair event description copy/paste error 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 7f807b9494..a8d0908bed 100644 --- 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 479c15364e..d7300e22ec 100644 --- 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);