[bknr-cvs] r2114 - trunk/projects/bos/worldpay-test

[bknr at bknr.net]

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