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

new POI slot: lod-min - the lod minimum used in Google Earth

Users can customize this in the CMS. This intends to address the issue:

KML/Google Earth: Aus gr?\195?\182?\195?\159erer H?\195?\182he soll das BOS-Icon immer zu sehen sein

An arbitrary POI can be chosen or newly created for this purpose - it needn't even be "published-web".

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

Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-09-04 17:18:33 UTC (rev 3796) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-09-04 17:18:35 UTC (rev 3797) @@ -74,7 +74,9 @@ (:td (:princ-safe (poi-name poi)))) (:tr (:td "published") (:td (checkbox-field "published-web" "published-web" :checked (poi-published-web poi)) " " - (checkbox-field "published-earth" "published-earth" :checked (poi-published-earth poi)))) + (checkbox-field "published-earth" "published-earth" :checked (poi-published-earth poi)) + " with lod-min " + (text-field "lod-min" :size 5 :value (poi-lod-min poi)))) (:tr (:td "title") (:td (text-field "title" :value (slot-string poi 'title language)))) @@ -89,7 +91,8 @@ (:tr (:td "location") (:td (flet ((format-chosen-url () (encode-urlencoded - (format nil "~A?action=save&language=~A&~:[~;published-web=on~]&~:[~;published-earth=on~]" + (format nil "~A?action=save&language=~A&~ + ~:[~;published-web=on~]&~:[~;published-earth=on~]" (hunchentoot:script-name*) language (poi-published-web poi) @@ -177,7 +180,8 @@ title subtitle description language (x nil integer) (y nil integer) - icon) + icon + (lod-min nil integer)) (unless language (setq language (request-language))) (update-textual-attributes poi language :title title @@ -187,7 +191,8 @@ :published-web published-web :published-earth published-earth :area (when (and x y) (list x y)) - :icon icon) + :icon icon + :lod-min lod-min) (with-bos-cms-page (:title "POI has been updated") (html (:h2 "Your changes have been saved") "You may " (cmslink (format nil "~A?language=~A" (edit-object-url poi) language) @@ -250,7 +255,7 @@ (defgeneric medium-web-link (medium) (:method ((medium store-image)) (format nil "http://~A/image/~A" - (website-host) (store-object-id medium))) + (website-host) (store-object-id medium))) (:method ((medium poi-movie)) (poi-movie-url medium)))

@@ -582,6 +587,7 @@ (with-element "Placemark" (with-element "name" (text (or (slot-string poi 'title language nil) (slot-string poi 'title "en")))) + (kml-region (make-rectangle2 (list 0 0 +width+ +width+)) `(:min ,(poi-lod-min poi) :max -1)) (with-element "styleUrl" (text "#poiPlacemarkIcon")) (with-element "description" (cdata (poi-description-google-earth poi language))) @@ -625,5 +631,4 @@ (with-element "scale" (text "0.8")) (with-element "Icon" (with-element "href" (text (format nil "http://~a/static/Orang_weiss.png" (website-host))))))) - (kml-region (make-rectangle2 (list 0 0 +width+ +width+)) '(:min 600 :max -1)) (mapc #'(lambda (poi) (write-poi-kml poi lang)) relevant-pois))))))))