From bknr@bknr.net Mon Sep  8 08:46:05 2008
From: BKNR Commits <bknr@bknr.net>
To: bknr-cvs@common-lisp.net
Subject: [bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp
Date: Mon, 08 Sep 2008 14:46:34 +0200
Message-ID: <E1Kcg8Y-000Dza-CG@paracetamol.bknr.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============8953723314306927968=="

--===============8953723314306927968==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

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
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/projects/bos/web/kml-handlers.lisp	2008-09-08 12:23:52 UTC (rev 383=
9)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-08 12:46:34 UTC (rev 384=
0)
@@ -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" (dictionar=
y-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>


--===============8953723314306927968==--