[bknr-cvs] r2068 - trunk/projects/bos/worldpay-test

[bknr at bknr.net]

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))