[bknr-cvs] ksprotte changed trunk/projects/bos/web/

[BKNR Commits]

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)))