Changeset 3621

Show
Ignore:
Timestamp:
07/24/08 16:50:37 (4 months ago)
Author:
ksprotte
Message:

renamed old kml-root handler to kml-root-dynamic

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3620 r3621  
    122122            (text (sponsor-info-text sponsor)))))))) 
    123123 
    124 (defclass kml-root-handler (object-handler) 
     124(defclass kml-root-dynamic-handler (object-handler) 
    125125  ((timestamp :accessor timestamp :initform (get-universal-time)))) 
    126126 
    …… 
    188188                            :hide-children t)))))) 
    189189 
    190 (defmethod handle-object ((handler kml-root-handler) (object sponsor)) 
     190(defmethod handle-object ((handler kml-root-dynamic-handler) (object sponsor)) 
    191191  (write-root-kml handler object)) 
    192192 
    193 (defmethod handle-object ((handler kml-root-handler) (object contract)) 
     193(defmethod handle-object ((handler kml-root-dynamic-handler) (object contract)) 
    194194  (handle-object handler (contract-sponsor object))) 
    195195 
    196 (defmethod handle-object ((handler kml-root-handler) (object null)) 
     196(defmethod handle-object ((handler kml-root-dynamic-handler) (object null)) 
    197197  (write-root-kml handler nil)) 
    198198 

  • trunk/projects/bos/web/webserver.lisp

    r3619 r3621  
    201201                                        ("/edit-sponsor" edit-sponsor-handler) 
    202202                                        ("/kml-upload" kml-upload-handler) 
     203                                        ("/kml-root-dynamic" kml-root-dynamic-handler)                                 
    203204                                        ("/kml-root" kml-root-handler)                                 
    204205                                        ("/country-stats" country-stats-handler)