Revision: 3532 Author: ksprotte URL: http://bknr.net/trac/changeset/3532 sat-images are now sorted by year in GE menu U trunk/projects/bos/web/kml-handlers.lisp U trunk/projects/bos/web/sat-tree.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-07-21 08:40:18 UTC (rev 3531) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-07-21 08:51:47 UTC (rev 3532) @@ -89,7 +89,8 @@ (with-element "Style" (with-element "ListStyle" (with-element "listItemType" (text "radioFolder")))) - (dolist (sat-layer (class-instances 'sat-layer)) + (dolist (sat-layer (sort (copy-list (class-instances 'sat-layer)) + #'< :key #'year)) (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer)) :rect (geo-box-rectangle *m2-geo-box*) :lod '(:min 0 :max -1) Modified: trunk/projects/bos/web/sat-tree.lisp =================================================================== --- trunk/projects/bos/web/sat-tree.lisp 2008-07-21 08:40:18 UTC (rev 3531) +++ trunk/projects/bos/web/sat-tree.lisp 2008-07-21 08:51:47 UTC (rev 3532) @@ -7,6 +7,7 @@ ((name :reader name :initarg :name :index-type unique-index :index-reader find-sat-layer) + (year :accessor year :initarg :year :initform 2000) (geo-box :reader geo-box :initarg :geo-box) (local-draw-order :reader local-draw-order :initarg :local-draw-order)))