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

[bknr at bknr.net]

Author: hhubner
Date: 2006-03-16 13:06:09 -0500 (Thu, 16 Mar 2006)
New Revision: 1931

Modified:
   branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp
   branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
Log:
pass language parameter down to cert generator.


Modified: branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp	2006-03-13 11:02:35 UTC (rev 1930)
+++ branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp	2006-03-16 18:06:09 UTC (rev 1931)
@@ -182,6 +182,11 @@
 		  (:td (:princ-safe (format-date-time (contract-date contract)))))
 	     (:tr (:td "Country code (2 chars)")
 		  (:td (text-field "country" :size 2 :value "DE")))
+             (:tr (:td "Language")
+                  (:td ((:select :name "language")
+                        (loop
+                           for (language-symbol language-name) in (website-languages)
+                           do (html ((:option :value language-symbol) (:princ-safe language-name)))))))
 	     (:tr (:td "Name for certificate")
 		  (:td (text-field "name" :size 50)))
 	     (:tr (:td "Email-Address")
@@ -191,7 +196,7 @@
 	     (:tr (:td (submit-button "process" "process" :formcheck "javascript:return check_complete_sale()"))))))))))
 
 (defmethod handle-object-form ((handler complete-transfer-handler) (action (eql :process)) contract req)
-  (with-query-params (req email name postaladdress country)
+  (with-query-params (req email name postaladdress country language)
     (with-bos-cms-page (req :title "Square meter sale completion")
       (if (contract-paidp contract)
 	  (html (:h2 "This sale has already been completed"))
@@ -199,7 +204,7 @@
 	    (html (:h2 "Completing square meter sale"))
 	    (sponsor-set-country (contract-sponsor contract) country)
 	    (contract-set-paidp contract t)
-	    (contract-issue-cert contract name :address postaladdress)
+	    (contract-issue-cert contract name :address postaladdress :language language)
 	    (when email
 	      (html (:p "Sending instruction email to " (:princ-safe email)))
 	      (mail-instructions-to-sponsor contract email))))

Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-03-13 11:02:35 UTC (rev 1930)
+++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-03-16 18:06:09 UTC (rev 1931)
@@ -36,9 +36,9 @@
   (mapc #'emit-template-node children))
 
 (define-bknr-tag generate-cert ()
-  (with-template-vars (gift email name address)
+  (with-template-vars (gift email name address language)
     (let ((contract (find-store-object (parse-integer (get-template-var :contract-id)))))
-      (contract-issue-cert contract name :address address)
+      (contract-issue-cert contract name :address address :language language)
       (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)