[claw-cvs] r170 - trunk/main/claw-demo/src/frontend

[Andrea Chiumenti]

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)