[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

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

fixed: KML/Google Earth: Doppelklick auf m2-Gebiet links: Ausschnitt
auf Bounding Rectangle der verkauften m2s - not dynamically computed, though.

U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-09-05 09:57:08 UTC (rev 3803)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-09-05 10:27:56 UTC (rev 3804)
@@ -170,6 +170,14 @@
                (rmcid (when rmcid (parse-integer rmcid)))
                (rmcpath (parse-path rmcpath)))
           (with-element "Document"
+            (when (null path)
+              ;; for the toplevel
+              (with-element "LookAt"
+                (with-element "longitude" (text "116.987378"))
+                (with-element "latitude" (text "-1.045410"))
+                (with-element "range" (text "2531"))
+                (with-element "tilt" (text "0"))
+                (with-element "heading" (text "0"))))
             (with-element "Style"
               (attribute "id" "contractPlacemarkIcon")
               (with-element "IconStyle"