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

[BKNR Commits]

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

done: ge country-stats bei doppelclick abstand behalten damit man das ganze land sehen kann
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:51:00 UTC (rev 3841)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-08 13:00:07 UTC (rev 3842)
@@ -299,6 +299,10 @@
                       (with-element "name" (text (format nil "~A" (dictionary-entry
                                                                    (second (assoc country *country-english-names*)) lang))))
                       (with-element "styleUrl" (text "#countryStatsStyle"))
+                      (with-element "LookAt"
+                        (with-element "longitude" (text (format nil "~,20F" lat)))
+                        (with-element "latitude" (text (format nil "~,20F" lon)))
+                        (with-element "range" (text "1000000")))
                       (with-element "description"
                         (text (format nil "<p>~A</p><table><tbody><tr><td>~A:</td><td>~D ~A</td></tr>
                                              <tr><td>~A:</td><td>~D m²</td></tr></tbody></table>"