Changeset 3258

Show
Ignore:
Timestamp:
06/04/08 14:35:50 (7 months ago)
Author:
ksprotte
Message:

sat-layers now appear in kml-root

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3171 r3258  
    6767 
    6868(defun write-root-kml (&optional sponsor) 
    69   (let ((contract (when sponsor (first (sponsor-contracts sponsor))))) 
     69  (let ((*print-case* :downcase) 
     70        (contract (when sponsor (first (sponsor-contracts sponsor))))) 
    7071    ;; only the first contract of SPONSOR will be shown 
    7172    (with-xml-response (:content-type #+nil "text/xml" "application/vnd.google-earth.kml+xml; charset=utf-8" 
    …… 
    9697                              :rect (make-rectangle2 (geo-location image-tree)) 
    9798                              :lod `(:min ,(lod-min image-tree) :max ,(lod-max image-tree)) 
    98                               :name "sat-image")) 
     99                              :name "old-image-tree")) 
     100          (dolist (sat-layer (class-instances 'sat-layer)) 
     101            (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer)) 
     102                              :rect (geo-box-rectangle *m2-geo-box*) 
     103                              :lod '(:min 0 :max -1) 
     104                              :name (princ-to-string (name sat-layer)))) 
    99105          (let ((href (if (not contract) 
    100106                          (format nil "http://~a/contract-tree-kml" (website-host))