Changeset 3532

Show
Ignore:
Timestamp:
07/21/08 10:51:47 (4 months ago)
Author:
ksprotte
Message:

sat-images are now sorted by year in GE menu

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/kml-handlers.lisp

    r3531 r3532  
    9090              (with-element "ListStyle" 
    9191                (with-element "listItemType" (text "radioFolder"))))                 
    92             (dolist (sat-layer (class-instances 'sat-layer)) 
     92            (dolist (sat-layer (sort (copy-list (class-instances 'sat-layer)) 
     93                                     #'< :key #'year)) 
    9394              (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer)) 
    9495                                :rect (geo-box-rectangle *m2-geo-box*) 

  • trunk/projects/bos/web/sat-tree.lisp

    r3428 r3532  
    88         :index-type unique-index 
    99         :index-reader find-sat-layer) 
     10   (year :accessor year :initarg :year :initform 2000) 
    1011   (geo-box :reader geo-box :initarg :geo-box) 
    1112   (local-draw-order :reader local-draw-order :initarg :local-draw-order)))