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

[BKNR Commits]

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

fixed: ge country-stats darf nicht [keine name] anzeigen. da soll der ganze l?\195?\164ndername stehen
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:23:52 UTC (rev 3839)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-08 12:46:34 UTC (rev 3840)
@@ -296,6 +296,8 @@
                   (multiple-value-bind (number-of-paying-sponsors number-of-sold-m2s)
                       (contract-stats-for-country country)
                     (with-element "Placemark"
+                      (with-element "name" (text (format nil "~A" (dictionary-entry
+                                                                   (second (assoc country *country-english-names*)) lang))))
                       (with-element "styleUrl" (text "#countryStatsStyle"))
                       (with-element "description"
                         (text (format nil "<p>~A</p><table><tbody><tr><td>~A:</td><td>~D ~A</td></tr>