[bknr-cvs] r1919 - branches/xml-class-rework/projects/bos/worldpay-test

[bknr at bknr.net]

Author: hhubner
Date: 2006-03-12 06:49:22 -0500 (Sun, 12 Mar 2006)
New Revision: 1919

Modified:
   branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
Log:
wording change for worldpay interaction.


Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-03-12 11:37:36 UTC (rev 1918)
+++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-03-12 11:49:22 UTC (rev 1919)
@@ -86,7 +86,9 @@
                         (store-object-id contract)
                         price
 			language
-                        (encode-urlencoded (format nil "~a qm Regenwald in Samboja Lestari" numsqm))
+                        (encode-urlencoded (format nil "~a ~a in Samboja Lestari"
+                                                   numsqm
+                                                   (if (string-equal language "de") "qm Regenwald" "sqm rain forest")))
 			(store-object-id sponsor)
 			(sponsor-master-code sponsor)
 			(if donationcert-yearly "1" "0")