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

[bknr at bknr.net]

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)