Changeset 3620

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

kml-upload-handler allows also for downloading the kml-root file

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3613 r3620  
    5656                       ;; we want this after the processing 
    5757                       (:p (:format "last-change: ~A"                                 
    58                                     (format-date-time (store-object-last-change kml-root-data 0))))))) 
     58                                    (format-date-time (store-object-last-change kml-root-data 0))) 
     59                           (cmslink (format nil "/kml-upload?lang=~A&action=download" language) 
     60                             "download current version"))))) 
    5961             (submit-button "upload" "upload")))))) 
     62 
     63(defmethod handle-form ((handler kml-upload-handler) (action (eql :download))) 
     64  (with-query-params (lang) 
     65    (setf (hunchentoot:header-out :content-type) 
     66          "application/binary" 
     67          (hunchentoot:header-out :content-disposition) 
     68          (format nil "attachment; filename=kml-root-~A.kml" lang)) 
     69    (let ((kml-root-data (kml-root-data-with-language lang))) 
     70      (kml-string kml-root-data)))) 
    6071 
    6172;;; kml-format utils