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)