[OFBiz] SVN: r7550 - trunk/applications/party/script/org/ofbiz/party/contact

[jaz@svn.ofbiz.org]

Author: jaz
Date: 2006-05-09 13:50:53 -0500 (Tue, 09 May 2006)
New Revision: 7550

Modified:
   trunk/applications/party/script/org/ofbiz/party/contact/PartyContactMechServices.xml
Log:
now setting the thrudate on purpose records when updating a contect mech


Modified: trunk/applications/party/script/org/ofbiz/party/contact/PartyContactMechServices.xml
===================================================================
--- trunk/applications/party/script/org/ofbiz/party/contact/PartyContactMechServices.xml	2006-05-09 17:05:01 UTC (rev 7549)
+++ trunk/applications/party/script/org/ofbiz/party/contact/PartyContactMechServices.xml	2006-05-09 18:50:53 UTC (rev 7550)
@@ -114,12 +114,15 @@
         <env-to-field env-name="now" field-name="fromDate" map-name="newPartyContactMech"/>
         <env-to-field env-name="now" field-name="thruDate" map-name="partyContactMech"/>
         <field-to-list list-name="storeList" field-name="newPartyContactMech"/>
-        
+
         <if-compare-field field-name="contactMechId" map-name="parameters" to-map-name="newPartyContactMech" operator="not-equals">
             <get-related value-name="partyContactMech" relation-name="PartyContactMechPurpose" list-name="partyContactMechPurposes"/>   
-            <iterate entry-name="partyContactMechPurpose" list-name="partyContactMechPurposes">
+            <iterate entry-name="partyContactMechPurposeOld" list-name="partyContactMechPurposes">
+                <clone-value value-name="partyContactMechPurposeOld" new-value-name="partyContactMechPurpose"/>
+                <set field="partyContactMechPurposeOld.thruDate" from-field="now"/>
+                <field-to-list field-name="partyContactMechPurposeOld" list-name="storeList"/>
+
                 <field-to-field field-name="contactMechId" map-name="newPartyContactMech" to-map-name="partyContactMechPurpose"/>
-                
                 <field-to-field field-name="partyId" map-name="partyContactMechPurpose" to-map-name="purposeMap"/>
                 <field-to-field field-name="contactMechPurposeTypeId" map-name="partyContactMechPurpose" to-map-name="purposeMap"/>
                 <field-to-field field-name="contactMechId" map-name="partyContactMechPurpose" to-map-name="purposeMap"/>
@@ -129,6 +132,8 @@
                     <field-to-list field-name="partyContactMechPurpose" list-name="storeList"/>    
                 </if-empty>
             </iterate>
+
+
         </if-compare-field>
         
         <store-list list-name="storeList"/>