Changeset 3707

Timestamp:

07/31/08 11:02:18 (4 months ago)

Author:

ksprotte

Message:

refactored web/poi-handlers.lisp

Files:

• trunk/projects/bos/web/poi-handlers.lisp (modified) (11 diffs)

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

@@ -3 +3 @@
-(enable-interpol-syntax)
-
+;;; make-poi-handler
-(defclass make-poi-handler (page-handler)
-  ())
@@ -20 +21 @@
-       (redirect (edit-object-url (make-poi name)))))))
-
+;;; edit-poi-handler
-(defclass edit-poi-handler (editor-only-handler edit-object-handler)
-  ()
@@ -284 +286 @@
-          "The POI has been deleted")))
-
-
-
+
-(defclass edit-poi-image-handler (editor-only-handler edit-object-handler)
-  ()
@@ -376 +377 @@
-      "You may " (cmslink (edit-object-url poi) "continue editing the POI"))))
-
+;;; poi-javascript-handler
-(defclass poi-javascript-handler (page-handler)
-  ())
@@ -404 +406 @@
-          (:princ (format nil "parent.last_sponsors([~{~A~^,~%~}]);" (mapcar #'contract-js last-paid-contracts)))))))))
-
+;;; poi-image-handler
-(defclass poi-image-handler (object-handler)
-  ()
@@ -423 +426 @@
-          (error "image index ~a out of bounds for poi ~a" image-index poi)))))
-
+;;; poi-movie-handler
-(defclass poi-movie-handler (admin-only-handler object-handler)
-  ()
@@ -440 +444 @@
-              :width "425" :height "344")))))
-
+;;; poi-xml-handler
-(defun write-poi-xml (poi language)
-  "Writes the poi xml format for one specific language.  This is used
@@ -493 +498 @@
-              (with-element "url" (text (poi-movie-url movie))))))))))
-
+(defclass poi-xml-handler (object-handler)
+  ()
+  (:default-initargs :object-class 'poi :query-function #'find-poi))
+
+
+(defmethod handle-object ((handler poi-xml-handler) poi)
+  (let ((timestamp (store-object-last-change poi 1)))
+    (hunchentoot:handle-if-modified-since timestamp)
+    (setf (hunchentoot:header-out :last-modified)
+          (hunchentoot:rfc-1123-date timestamp))
+    (with-query-params ((lang "en"))
+      (with-xml-response (:xsl-stylesheet-name "/static/poi.xsl")
+        (write-poi-xml poi lang)))))
+
+;;; poi-kml-handler
-(defun poi-description-google-earth (poi language &key (image-width 120))
-  (labels ((website-path (path &rest args)
@@ -591 +611 @@
-      (error (c) (error "while generating poi-description-google-earth for ~s:~%~a" poi c)))))
-
-
-
-(defun write-poi-kml (poi language)
-  (with-element "Placemark"
@@ -604 +622 @@
-        (text (format nil "~{~,20F,~}0" (poi-center-lon-lat poi)))))))
-
-(defclass poi-xml-handler (object-handler)
-  ()
-  (:default-initargs :object-class 'poi :query-function #'find-poi))
-
-
-(defmethod handle-object ((handler poi-xml-handler) poi)
-  (let ((timestamp (store-object-last-change poi 1)))
-    (hunchentoot:handle-if-modified-since timestamp)
-    (setf (hunchentoot:header-out :last-modified)
-          (hunchentoot:rfc-1123-date timestamp))
-    (with-query-params ((lang "en"))
-      (with-xml-response (:xsl-stylesheet-name "/static/poi.xsl")
-        (write-poi-xml poi lang)))))
-
-(defclass poi-kml-handler (object-handler)
-  ()
@@ -630 +634 @@
-          (write-poi-kml poi lang))))))
-
+;;; poi-kml-all-handler
-(defclass poi-kml-all-handler (page-handler)
-  ())