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)