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