Changeset 3771

Timestamp:

09/02/08 16:36:21 (3 months ago)

Author:

ksprotte

Message:

POI edit handler is done. Added new generic function: poi-medium-creation-time (and a slot for poi-movie)

Files:

• trunk/projects/bos/m2/packages.lisp (modified) (1 diff)
• trunk/projects/bos/m2/poi.lisp (modified) (3 diffs)
• trunk/projects/bos/web/poi-handlers.lisp (modified) (5 diffs)

trunk/projects/bos/m2/packages.lisp

@@ -211 +211 @@
-           #:poi-medium
-           #:poi-medium-poi
+           #:poi-medium-creation-time
-           #:make-poi-medium
-           #:poi-image

trunk/projects/bos/m2/poi.lisp

@@ -61 +61 @@
-    (format stream "~D" (store-object-id object))))
-
+(defgeneric poi-medium-creation-time (medium)
+  (:method ((medium blob))
+    (blob-timestamp medium)))
+
-(defmethod destroy-object :before ((poi-medium poi-medium))
-  (with-slots (poi) poi-medium
@@ -80 +84 @@
-;;; poi-movie
-(defpersistent-class poi-movie (poi-medium)
-
+
+
-
-;;; poi
@@ -136 +141 @@
-(defun poi-center-lon-lat (poi)
-  (geo-utm:utm-x-y-to-lon-lat (+ +nw-utm-x+ (poi-center-x poi)) (- +nw-utm-y+ (poi-center-y poi)) +utm-zone+ t))
+
+(defmethod (setf poi-media) :after (value (poi poi))
+  (setf (slot-value poi 'media) (sort (slot-value poi 'media) #'> :key #'poi-medium-creation-time)))
-
-;;; POI media are stored in one list - for convenience we provide

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

@@ -105 +105 @@
-        (:tr (:td "icon")
-             (:td (icon-chooser "icon" (poi-icon poi))))
-sat images
+images for sat-app
-             (:td
-              ((:table)
@@ -154 +154 @@
-       (dolist (medium (poi-media poi))
-         (html (:tr (:td (:princ-safe (medium-pretty-type-string medium)))
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(defmethod handle-object-form ((handler edit-poi-handler)
@@ -202 +211 @@
-       (cmslink (edit-object-url (poi-medium-poi medium)) "Back to POI")
-       (content-language-chooser)
-medium-handler-preview medium
+:tr (:td) (:td (medium-handler-preview medium))
-               (:tr ((:td :colspan "2" :height "10")))
-               ((:form :method "post" :enctype "multipart/form-data")
@@ -227 +236 @@
-
-(defgeneric medium-pretty-type-string (medium)
-POI 
-OI P
-POI 
-POI 
+
+
+
+
-
-(defgeneric medium-handler-preview (medium &key small)
-t
+poi-medium
-    (declare (ignore small))
-((:tr :colspan "2") "No preview")
+"No preview"
-  (:method ((medium store-image) &key small)
-    "The default method for store-images."
-    (html
-
-
-
-
+
+
+
-     (unless small
-       (html
-
-
+
+
+
-  (:method ((medium poi-panorama) &key small)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-  (:method ((medium poi-movie) &key small)
-    (if small
-        (call-next-method)
-        (html
-
-
-
-
-
+
+
+
+
-
-(defgeneric medium-handler-validate-image-size (medium-or-type width height)
@@ -301 +307 @@
-
-(defmethod handle-object-form ((handler edit-poi-medium-handler) (action (eql :delete)) (medium poi-medium))
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(defmethod handle-object-form ((handler edit-poi-medium-handler) (action (eql :upload)) medium)