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

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/m2/poi.lisp

Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-09-04 17:18:28 UTC (rev 3794) +++ trunk/projects/bos/m2/poi.lisp 2008-09-04 17:18:31 UTC (rev 3795) @@ -107,7 +107,10 @@ :documentation "name des icons") (media :accessor poi-media :initarg :media :initform nil - :documentation "liste aller poi-medien, wie poi-image, poi-airal ..."))) + :documentation "liste aller poi-medien, wie poi-image, poi-airal ...") + (lod-min + :accessor poi-lod-min :initarg :poi-lod-min :initform 600 + :documentation "the lod minimum used in Google Earth")))

(defmethod convert-slot-value-while-restoring ((object poi) (slot-name (eql 'published)) @@ -124,7 +127,7 @@ (defmethod destroy-object :before ((poi poi)) (mapc #'delete-object (poi-media poi)))

-(deftransaction update-poi (poi &key published-web published-earth icon area) +(deftransaction update-poi (poi &key published-web published-earth icon area lod-min) (check-type published-web boolean) (check-type published-earth boolean) (check-type area list) @@ -134,6 +137,8 @@ (setf (poi-icon poi) icon)) (when area (setf (poi-area poi) area)) + (when lod-min + (setf (poi-lod-min poi) (abs lod-min))) poi)

(defmethod poi-complete ((poi poi) language) @@ -231,7 +236,7 @@ (format t "poi.panoramas = [ ~{~D~^, ~} ];~%" (mapcar #'store-object-id (poi-panoramas poi)))) (when (poi-movies poi) (format t "poi.movies = [ ~{~S~^, ~} ];~%" - (mapcar #'(lambda (movie) + (mapcar #'(lambda (movie) (assert (stringp (poi-movie-url movie)) nil "POI-MOVIE-URL of ~S is ~S, but should be a string" movie (poi-movie-url movie))