[bknr-cvs] ksprotte changed trunk/bknr/web/src/web/web-utils.lisp

[BKNR Commits]

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