[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp

[BKNR Commits]

Revision: 3799
Author: ksprotte
URL: http://bknr.net/trac/changeset/3799

some doc for kml-root-dynamic-handler
U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2008-09-04 17:42:21 UTC (rev 3798)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-04 18:11:22 UTC (rev 3799)
@@ -181,7 +181,11 @@
             (text (sponsor-info-text sponsor))))))))
 
 (defclass kml-root-dynamic-handler (object-handler)
-  ((timestamp :accessor timestamp :initform (get-universal-time))))
+  ()
+  (:documentation "This handler is not actually used anymore, because
+the root kml files are uploaded through the CMS. It is still left here
+in the codebase, because it was used to generate the initial templates
+and might be needed again."))
 
 (defun write-personalized-contract-placemark-kml (contract lang)
   (with-element "Style"
@@ -194,14 +198,12 @@
   (write-contract-placemark-kml contract lang))
 
 (defun write-root-kml (handler sponsor)
+  (declare (ignore handler))
   (let ((*print-case* :downcase)
         (contract (when sponsor (first (sponsor-contracts sponsor)))))
-    (hunchentoot:handle-if-modified-since (timestamp handler))
     ;; only the first contract of SPONSOR will be shown
     (with-xml-response (:content-type #+nil "text/xml" "application/vnd.google-earth.kml+xml; charset=utf-8"
                                       :root-element "kml")
-      (setf (hunchentoot:header-out :last-modified)
-            (hunchentoot:rfc-1123-date (timestamp handler)))
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "BOS"))