Changeset 3431

Show
Ignore:
Timestamp:
07/14/08 11:46:45 (4 months ago)
Author:
ksprotte
Message:

fixed CONTRACT-TREE-IMAGE-HANDLER

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3426 r3431  
    230230               (old-store-image (store-image-with-name image-name))) 
    231231          (when old-store-image (delete-object old-store-image)) 
    232           (make-store-image :name image-name 
    233                             :type :png)))))) 
     232          (setf (image node) 
     233                (make-store-image :name image-name 
     234                                  :type :png))))))) 
    234235 
    235236(defun contract-node-update-image-if-needed (node) 
    …… 
    246247    (let* ((path (parse-path path)) 
    247248           (node (find-node-with-path *contract-tree* path)) 
    248            (image (image node))) 
    249       (hunchentoot:handle-if-modified-since (timestamp image)) 
     249           (image (image node)))       
     250      (hunchentoot:handle-if-modified-since (blob-timestamp image)) 
    250251      (with-store-image* (image) 
    251         (emit-image-to-browser cl-gd:*default-image* :png :date (timestamp image)))))) 
     252        (emit-image-to-browser cl-gd:*default-image* :png :date (blob-timestamp image)))))) 
    252253 
    253254;;; make-contract-tree-from-m2