[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp

[BKNR Commits]

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

small cosmetic change to KML Upload

U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2008-09-04 18:11:22 UTC (rev 3799)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-09-05 08:54:41 UTC (rev 3800)
@@ -35,7 +35,7 @@
              (dolist (kml-root-data (class-instances 'kml-root-data))
                (let ((language (language kml-root-data)))
                  (html (:h2 (:princ language))
-                       (:p ((:input :type "file" :name language))
+                       (:p ((:input :type "file" :name language :size 50))
                            " "
                            (let ((file-upload (request-uploaded-file language)))
                              (when file-upload