Author: achiumenti Date: Fri Dec 26 08:46:01 2008 New Revision: 170 Log: logout page redirection bugfixed Modified: trunk/main/claw-demo/src/frontend/logout.lisp Modified: trunk/main/claw-demo/src/frontend/logout.lisp ============================================================================== --- trunk/main/claw-demo/src/frontend/logout.lisp (original) +++ trunk/main/claw-demo/src/frontend/logout.lisp Fri Dec 26 08:46:01 2008 @@ -39,7 +39,11 @@ (defmethod do-logout ((demo-page logout-page)) (claw-remove-session) - (claw-redirect (format nil "~a/index.html" *root-path*) :protocol :http)) + (claw-redirect (format nil "~a/index.html" *root-path*) + :protocol :http + :port (if (claw-proxified-p) + *apache-http-port* + (claw-server-port)))) (lisplet-register-function-location *dojo-demo-lisplet* (make-page-renderer 'logout-page #'claw-post-parameters #'claw-get-parameters)