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

[BKNR Commits]

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

clearer interface for kml-upload-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 09:49:18 UTC (rev 3786)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-04 10:40:59 UTC (rev 3787)
@@ -58,9 +58,22 @@
                        ;; we want this after the processing
                        (:p (:format "last-change: ~A"
                                     (format-date-time (store-object-last-change kml-root-data 0)))
+                           " "
                            (cmslink (format nil "/kml-upload?lang=~A&action=download" language)
                              "download current version")))))
-             (submit-button "upload" "upload"))))))
+             (submit-button "upload" "upload"))
+            (:p "Please note that the " (:b "download current version")
+                " links above show you the kml files exactly like you
+                uploaded them. These are not the KML files as seen by the
+                users.")
+            (:p "For the actually served kml files some automatic
+            replacements are being done. You can inspect those by the
+            following links:")
+            (:p (dolist (kml-root-data (class-instances 'kml-root-data))
+                  (let ((language (language kml-root-data)))
+                    (html (cmslink (format nil "/kml-root?lang=~A" language)
+                            (:format "kml ~A" language))
+                          " "))))))))
 
 (defmethod handle-form ((handler kml-upload-handler) (action (eql :download)))
   (with-query-params (lang)