[claw-cvs] r98 - trunk/main/claw/src

[achiumenti at common-lisp.net]

Author: achiumenti
Date: Wed Oct  1 07:56:41 2008
New Revision: 98

Modified:
   trunk/main/claw/src/lisplet.lisp
Log:
several bugfixes and enhancements

Modified: trunk/main/claw/src/lisplet.lisp
==============================================================================
--- trunk/main/claw/src/lisplet.lisp	(original)
+++ trunk/main/claw/src/lisplet.lisp	Wed Oct  1 07:56:41 2008
@@ -258,5 +258,5 @@
                      (string-not-equal (claw-script-name) login-page-url))
                 (redirect-to-https (format nil "~a~a" *root-path* (lisplet-login-page lisplet))))
                ((and sslport (not (= (claw-server-port) sslport)))
-                (redirect-to-https (format nil "~a~a" *root-path* (car protected-resource)))
+                (redirect-to-https (format nil "~a/~a" *root-path* (car protected-resource)))
                 (throw 'handler-done nil)))))))))