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

[BKNR Commits]

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

fixed CONTRACT-TREE-IMAGE-HANDLER

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 09:43:17 UTC (rev 3430)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-14 09:46:45 UTC (rev 3431)
@@ -229,8 +229,9 @@
         (let* ((image-name (contract-node-store-image-name node))
                (old-store-image (store-image-with-name image-name)))
           (when old-store-image (delete-object old-store-image))
-          (make-store-image :name image-name
-                            :type :png))))))
+          (setf (image node)
+		(make-store-image :name image-name
+				  :type :png)))))))
 
 (defun contract-node-update-image-if-needed (node)
   (when (or (null (image node))
@@ -245,10 +246,10 @@
   (with-query-params (path)
     (let* ((path (parse-path path))
            (node (find-node-with-path *contract-tree* path))
-           (image (image node)))
-      (hunchentoot:handle-if-modified-since (timestamp image))
+           (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 (timestamp image))))))
+        (emit-image-to-browser cl-gd:*default-image* :png :date (blob-timestamp image))))))
 
 ;;; make-contract-tree-from-m2
 (defun make-contract-tree-from-m2 ()