[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp

[BKNR Commits]

Revision: 3841
Author: ksprotte
URL: http://bknr.net/trac/changeset/3841

ge country-stats use shorter description in left panel by adding a kml "Snippet"
U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2008-09-08 12:46:34 UTC (rev 3840)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-08 12:51:00 UTC (rev 3841)
@@ -311,6 +311,12 @@
                                           (dictionary-entry "sponsors" lang))
                                       (dictionary-entry "total contribution" lang)
                                       number-of-sold-m2s)))
+                      (with-element "Snippet"
+                        (text (format nil "~A ~A"
+                                      number-of-paying-sponsors
+                                      (if (= 1 number-of-paying-sponsors)
+                                          (dictionary-entry "sponsor" lang)
+                                          (dictionary-entry "sponsors" lang)))))
                       (with-element "Point"
                         (with-element "coordinates"
                           (text (format nil "~,20F,~,20F,0" lat lon)))))))))))))))