Author: hhubner Date: 2006-12-15 08:27:05 -0500 (Fri, 15 Dec 2006) New Revision: 2114

Modified: trunk/projects/bos/worldpay-test/tags.lisp Log: Danish product name for Worldpay payment added.

Modified: trunk/projects/bos/worldpay-test/tags.lisp =================================================================== --- trunk/projects/bos/worldpay-test/tags.lisp 2006-12-15 12:23:52 UTC (rev 2113) +++ trunk/projects/bos/worldpay-test/tags.lisp 2006-12-15 13:27:05 UTC (rev 2114) @@ -91,9 +91,12 @@ (store-object-id contract) price language - (encode-urlencoded (format nil "~A ~A in Samboja Lestari" + (encode-urlencoded (format nil "~A ~A Samboja Lestari" numsqm - (if (string-equal language "de") "qm Regenwald" "sqm rain forest"))) + (case (make-keyword-from-string language) + (:de "qm Regenwald in") + (:da "sqm Regnskov i") + (t "sqm rain forest in")))) (store-object-id sponsor) (sponsor-master-code sponsor) (if donationcert-yearly "1" "0")