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

bugfix: <?xml version="1.0" encoding="UTF-8"?> U trunk/projects/bos/web/kml-utils.lisp

Modified: trunk/projects/bos/web/kml-utils.lisp =================================================================== --- trunk/projects/bos/web/kml-utils.lisp 2008-09-05 11:12:38 UTC (rev 3805) +++ trunk/projects/bos/web/kml-utils.lisp 2008-09-05 13:00:13 UTC (rev 3806) @@ -255,10 +255,11 @@ (defun kml-format-color (color &optional (opacity 255)) (format nil "~2,'0X~{~2,'0X~}" opacity (reverse color)))

-(defmethod kml-link ((href string) &key http-query) +(defmethod kml-link ((href string) &key refresh-on-region http-query) (with-element "Link" (with-element "href" (text href)) - (with-element "viewRefreshMode" (text "onRegion")) + (when refresh-on-region + (with-element "viewRefreshMode" (text "onRegion"))) (when http-query (with-element "httpQuery" (text http-query)))))

@@ -283,7 +284,7 @@ (when hide-children (kml-hide-children-style)) (when fly-to-view (with-element "flyToView" (text "1"))) - (kml-link href))) + (kml-link href :refresh-on-region (and rect t))))

(defun kml-lat-lon-box (rect &optional (element "LatLonBox")) (bind-nsew (bounding-box-lon-lat rect)