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")