Changeset 3465

Show
Ignore:
Timestamp:
07/16/08 15:30:21 (4 months ago)
Author:
ksprotte
Message:

added timestamp for poi-xml-handler

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3464 r3465  
    563563 
    564564(defmethod handle-object ((handler poi-xml-handler) poi) 
    565   (with-query-params ((lang "en")) 
    566     (with-xml-response (:xsl-stylesheet-name "/static/poi.xsl") 
    567       (write-poi-xml poi lang)))) 
     565  (let ((timestamp (store-object-last-change poi 1))) 
     566    (hunchentoot:handle-if-modified-since timestamp)   
     567    (setf (hunchentoot:header-out :last-modified) 
     568          (hunchentoot:rfc-1123-date timestamp)) 
     569    (with-query-params ((lang "en")) 
     570      (with-xml-response (:xsl-stylesheet-name "/static/poi.xsl") 
     571        (write-poi-xml poi lang))))) 
    568572 
    569573(defclass poi-kml-handler (object-handler)