svn commit: r1037570 - /ofbiz/branches/release09.04/applications/marketing/script/org/ofbiz/marketing/contact/ContactListServices.xml

Author: jleroux
Date: Sun Nov 21 21:51:56 2010
New Revision: 1037570

URL: http://svn.apache.org/viewvc?rev=1037570&view=rev
Log:
Missed this file in previous merging commit r1037569 (was conflicting)

Modified:
    ofbiz/branches/release09.04/applications/marketing/script/org/ofbiz/marketing/contact/ContactListServices.xml

Modified: ofbiz/branches/release09.04/applications/marketing/script/org/ofbiz/marketing/contact/ContactListServices.xml
URL: http://svn.apache.org/viewvc/ofbiz/branches/release09.04/applications/marketing/script/org/ofbiz/marketing/contact/ContactListServices.xml?rev=1037570&r1=1037569&r2=1037570&view=diff
==============================================================================
--- ofbiz/branches/release09.04/applications/marketing/script/org/ofbiz/marketing/contact/ContactListServices.xml (original)
+++ ofbiz/branches/release09.04/applications/marketing/script/org/ofbiz/marketing/contact/ContactListServices.xml Sun Nov 21 21:51:56 2010
@@ -103,6 +103,15 @@ under the License.
         <!-- okay, now check for all errors -->
         <check-errors/>
 
+        <!-- get party email address if not provided -->
+        <if-empty field="parameters.preferredContactMechId">
+            <if-empty field="parameters.contactMechId">
+                <set field="partyEmail.partyId" from-field="parameters.partyId"/>
+                <call-service service-name="getPartyEmail" in-map-name="partyEmail">
+                    <result-to-field result-name="contactMechId" field="parameters.preferredContactMechId"/>
+                </call-service>
+            </if-empty>
+        </if-empty>    
 
         <make-value entity-name="ContactListParty" value-field="newEntity"/>
         <set-nonpk-fields map="parameters" value-field="newEntity"/>