[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/

[BKNR Commits]

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