[bknr-cvs] ksprotte changed trunk/projects/bos/

[BKNR Commits]

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

updated ptviewer to latest; its now used in the CMS
U   trunk/projects/bos/payment-website/static/ptviewer.jar
U   trunk/projects/bos/web/poi-handlers.lisp

Modified: trunk/projects/bos/payment-website/static/ptviewer.jar
===================================================================
(Binary files differ)

Modified: trunk/projects/bos/web/poi-handlers.lisp
===================================================================
--- trunk/projects/bos/web/poi-handlers.lisp	2008-09-02 10:22:51 UTC (rev 3768)
+++ trunk/projects/bos/web/poi-handlers.lisp	2008-09-02 10:57:55 UTC (rev 3769)
@@ -247,12 +247,21 @@
         (:tr (:td "full image")
              (:td ((:img :src (format nil "/image/~A" (store-object-id medium))))))))))
   (:method ((medium poi-panorama) &key small)
-    (declare (ignore small))
     (html
      (:tr (:td "thumbnail")
-          (:td ((:a :href (format nil "/image/~A" (store-object-id medium))
-                    :target "_blank")
-                ((:img :src (format nil "/image/~A/thumbnail,,500,100" (store-object-id medium)))))))))
+          (:td (if small
+                   (html
+                    ((:a :href (format nil "/image/~A" (store-object-id medium))
+                         :target "_blank")
+                     ((:img :src (format nil "/image/~A/thumbnail,,500,100" (store-object-id medium))))))
+                   (html
+                    ((:applet :archive "/static/ptviewer.jar"
+                              :code "ptviewer.class"
+                              :width "300"
+                              :height "150")
+                     ((:param :name "file"
+                              :value (format nil "/image/~A" (store-object-id medium))))
+                     ((:param :name "quality" :value "3")))))))))
   (:method ((medium poi-movie) &key small)
     (if small
         (call-next-method)