Changeset 3709

Show
Ignore:
Timestamp:
07/31/08 14:00:25 (4 months ago)
Author:
ksprotte
Message:

use (upload-content-type upload) als in method bknr.images:import-image upload

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/web/src/web/web-utils.lisp

    r3398 r3709  
    4747  (apply #'bknr.images:import-image (upload-pathname upload) 
    4848         :name (pathname-name (upload-original-filename upload)) 
    49          :type (make-keyword-from-string (pathname-type (upload-original-filename upload))) args)) 
     49         :type (image-type-symbol (upload-content-type upload)) args)) 
    5050 
    5151(defun all-request-params ()