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

[bknr at bknr.net]

Author: hhubner
Date: 2006-03-16 13:31:23 -0500 (Thu, 16 Mar 2006)
New Revision: 1933

Modified:
   branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
Log:
Use "lang" parameter as passed in by worldpay


Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-03-16 18:21:20 UTC (rev 1932)
+++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-03-16 18:31:23 UTC (rev 1933)
@@ -36,9 +36,10 @@
   (mapc #'emit-template-node children))
 
 (define-bknr-tag generate-cert ()
-  (with-template-vars (gift email name address language)
+  (with-template-vars (gift email name address lang)
+    (format t "generate-cert: param 'lang': ~A template-var :language: ~A template-var :lang: ~A~%" lang (get-template-var :language) (get-template-var :lang))
     (let ((contract (find-store-object (parse-integer (get-template-var :contract-id)))))
-      (contract-issue-cert contract name :address address :language language)
+      (contract-issue-cert contract name :address address :language lang)
       (bknr.web::redirect-request :target (if gift "index"
 					      (format nil "profil_setup?name=~A&email=~A&sponsor-id=~A"
 						      (uriencode-string name) (uriencode-string email)