Changeset 3223

Show
Ignore:
Timestamp:
05/30/08 16:04:24 (7 months ago)
Author:
ksprotte
Message:

starting to work on a demo handler: sat-layer-kml

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3222 r3223  
    4747 
    4848(defpersistent-class sat-image (store-image) 
    49   ((layer :reader layer :initarg :layer) 
    50    (node :reader node :initarg :node :transient t)    
     49  ((layer :reader layer :initarg :layer)       
    5150   (path :reader path :initarg :path) 
    5251   (image-geo-box :accessor image-geo-box 
    …… 
    173172;;                   3)) 
    174173 
     174(pushnew 'hunchentoot:dispatch-easy-handlers hunchentoot:*dispatch-table*) 
     175 
     176(hunchentoot:define-easy-handler (sat-layer-kml :uri "/sat-layer-kml") 
     177    ((name :parameter-type 'keyword)) 
     178  (print name) 
     179  (assert (find-sat-layer name)) 
     180  ) 
     181