[open-ils-commits] r17286 - in trunk/Open-ILS/src: extras perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-08-20 11:35:53 -0400 (Fri, 20 Aug 2010)
New Revision: 17286

Modified:
   trunk/Open-ILS/src/extras/ils_events.xml
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:
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

Modified: trunk/Open-ILS/src/extras/ils_events.xml
===================================================================
--- trunk/Open-ILS/src/extras/ils_events.xml	2010-08-20 15:22:03 UTC (rev 17285)
+++ trunk/Open-ILS/src/extras/ils_events.xml	2010-08-20 15:35:53 UTC (rev 17286)
@@ -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'>

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-08-20 15:22:03 UTC (rev 17285)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-08-20 15:35:53 UTC (rev 17286)
@@ -54,6 +54,8 @@
             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);