Author: hhubner Date: 2006-10-15 09:28:08 -0400 (Sun, 15 Oct 2006) New Revision: 1998
Modified: branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp Log: Display country in sponsor table
Modified: branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-10-15 11:06:10 UTC (rev 1997) +++ branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-10-15 13:28:08 UTC (rev 1998) @@ -31,7 +31,7 @@ (setf count (parse-integer count))) (with-bos-cms-page (req :title "Sponsor search results") ((:table :border "1") - (:tr (:th "ID") (:th "Date") (:th "Email") (:th "Name") (:th "SQM") (:th "Cert-Type") (:th "Paid by")) + (:tr (:th "ID") (:th "Date") (:th "Email") (:th "Name") (:th "SQM") (:th "Country") (:th "Cert-Type") (:th "Paid by")) (dolist (sponsor (sort (remove-if-not #'sponsor-contracts (class-instances 'sponsor)) #'> :key #'(lambda (sponsor) (contract-date (first (sponsor-contracts sponsor)))))) (when (or count @@ -43,6 +43,7 @@ (:td (:princ-safe (or (user-email sponsor) "<unknown>"))) (:td (:princ-safe (or (user-full-name sponsor) "<unknown>"))) (:td (:princ-safe (length (contract-m2s contract)))) + (:td (:princ-safe (sponsor-country sponsor))) (:td (:princ-safe (if (contract-download-only-p contract) "Download" "Print"))) (:td (:princ-safe (contract-paidp contract)))))) (when (eql (incf found) count)