Author: hhubner Date: 2006-11-09 12:05:06 -0500 (Thu, 09 Nov 2006) New Revision: 2068 Modified: trunk/projects/bos/worldpay-test/sponsor-handlers.lisp Log: Display sqm UTM coordinate in contract list of sponsor Modified: trunk/projects/bos/worldpay-test/sponsor-handlers.lisp =================================================================== --- trunk/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-11-09 16:59:06 UTC (rev 2067) +++ trunk/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-11-09 17:05:06 UTC (rev 2068) @@ -128,11 +128,14 @@ :cols 40)))) (:h2 "Contracts") ((:table :border "1") - (:tr (:th "ID") (:th "date") (:th "# of sqm") (:th "paid?") (:th)) + (:tr (:th "ID") (:th "date") (:th "# of sqm") (:th "UTM coordinate")(:th "paid?") (:th)) (dolist (contract (sort (copy-list (sponsor-contracts sponsor)) #'> :key #'contract-date)) (html (:tr (:td (:princ-safe (store-object-id contract))) (:td (:princ-safe (format-date-time (contract-date contract) :show-time nil))) (:td (:princ-safe (length (contract-m2s contract)))) + (:td (:princ (format nil "~,3f<br/>~,3f" + (m2-utm-x (first (contract-m2s (first (sponsor-contracts sponsor))))) + (m2-utm-y (first (contract-m2s (first (sponsor-contracts sponsor)))))))) (:td (:princ-safe (if (contract-paidp contract) "paid" "not paid"))) (:td (cmslink (format nil "cert-regen/~A" (store-object-id contract)) "Regenerate Certificate") (when (probe-file (contract-pdf-pathname contract))