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

[BKNR Commits]

Revision: 4328
Author: hans
URL: http://bknr.net/trac/changeset/4328

Add xmlns to generated kml

U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2009-03-03 22:02:12 UTC (rev 4327)
+++ trunk/projects/bos/web/kml-handlers.lisp	2009-03-03 22:22:50 UTC (rev 4328)
@@ -218,7 +218,7 @@
         (contract (when sponsor (first (sponsor-contracts sponsor)))))
     ;; only the first contract of SPONSOR will be shown
     (with-xml-response (:content-type #+nil "text/xml" "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                      :root-element "kml")
+                                      :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "BOS"))
@@ -293,7 +293,7 @@
     (setf (hunchentoot:header-out :last-modified)
           (hunchentoot:rfc-1123-date timestamp))
     (with-xml-response (:content-type "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                      :root-element "kml")
+                                      :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "Country-Stats"))          
@@ -348,7 +348,7 @@
 (defmethod handle-object ((handler look-at-allocation-area-handler)
                           (area allocation-area))
   (with-xml-response (:content-type "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                    :root-element "kml")
+                                    :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
     (with-element "Document"
       (with-element "name" (text (format nil "allocation-area ~D" (store-object-id area))))
       (kml-region (make-rectangle2 (allocation-area-bounding-box2 area))