[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

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

contract-tree-image-handler uses :max-age 600

U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-07-14 11:06:52 UTC (rev 3432)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-14 12:00:51 UTC (rev 3433)
@@ -242,14 +242,16 @@
 (defclass contract-tree-image-handler (page-handler)
   ())
 
-(defmethod handle ((handler contract-tree-image-handler))
+(defmethod handle ((handler contract-tree-image-handler))  
   (with-query-params (path)
     (let* ((path (parse-path path))
-           (node (find-node-with-path *contract-tree* path))
-           (image (image node)))      
+	   (node (find-node-with-path *contract-tree* path))
+	   (image (image node)))      
       (hunchentoot:handle-if-modified-since (blob-timestamp image))
       (with-store-image* (image)
-        (emit-image-to-browser cl-gd:*default-image* :png :date (blob-timestamp image))))))
+	(emit-image-to-browser cl-gd:*default-image* :png
+			       :date (blob-timestamp image)
+			       :max-age 600)))))
 
 ;;; make-contract-tree-from-m2
 (defun make-contract-tree-from-m2 ()