From fcd5800970853bee5e67c05d803a12525e191df2 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 20 Aug 2010 15:35:53 +0000
Subject: [PATCH] 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
---
 Open-ILS/src/extras/ils_events.xml                        | 2 +-
 Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

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);
-- 
2.11.0