Revision: 4397 Author: hans URL: http://bknr.net/trac/changeset/4397

picture upload fixes, also repair redirection target U trunk/projects/lisp-ecoop/src/tags.lisp U trunk/projects/lisp-ecoop/src/webserver.lisp

Modified: trunk/projects/lisp-ecoop/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/tags.lisp 2009-05-13 08:40:41 UTC (rev 4396) +++ trunk/projects/lisp-ecoop/src/tags.lisp 2009-05-13 08:54:32 UTC (rev 4397) @@ -70,6 +70,9 @@ (when (request-uploaded-file "picture") (let* ((upload (request-uploaded-file "picture")) (picture (import-image (pathname (upload-pathname upload)) + :name (format nil "pic-~A-~A" + (user-login participant) + (get-universal-time)) :type (pathname-type (upload-original-filename upload))))) (with-transaction ("updating participant picture") (when (participant-picture participant)

Modified: trunk/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/webserver.lisp 2009-05-13 08:40:41 UTC (rev 4396) +++ trunk/projects/lisp-ecoop/src/webserver.lisp 2009-05-13 08:54:32 UTC (rev 4397) @@ -24,7 +24,7 @@ mailinglist mailinglist-registration participants schedule - ("/" redirect-handler :to "http://elw2009.bknr.net/home") + ("/" redirect-handler :to "/home") ("/static" directory-handler :destination ,(probe-file (merge-pathnames #p"static/" *website-directory*)))) :admin-navigation nil