Revision: 3709 Author: ksprotte URL: http://bknr.net/trac/changeset/3709 use (upload-content-type upload) als in method bknr.images:import-image upload U trunk/bknr/web/src/web/web-utils.lisp Modified: trunk/bknr/web/src/web/web-utils.lisp =================================================================== --- trunk/bknr/web/src/web/web-utils.lisp 2008-07-31 09:36:07 UTC (rev 3708) +++ trunk/bknr/web/src/web/web-utils.lisp 2008-07-31 12:00:25 UTC (rev 3709) @@ -46,7 +46,7 @@ (defmethod bknr.images:import-image ((upload upload) &rest args &key &allow-other-keys) (apply #'bknr.images:import-image (upload-pathname upload) :name (pathname-name (upload-original-filename upload)) - :type (make-keyword-from-string (pathname-type (upload-original-filename upload))) args)) + :type (image-type-symbol (upload-content-type upload)) args)) (defun all-request-params () "Return all non-empty request parameters - This includes all parameters encoded in the URL as