[bknr-cvs] r2483 - branches/trunk-reorg/bknr/web/src/web

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Tue Feb 12 11:56:56 2008
New Revision: 2483

Modified:
   branches/trunk-reorg/bknr/web/src/web/handlers.lisp
Log:
(script-name) from hunchentoot returns a string and must
be parsed here into an uri


Modified: branches/trunk-reorg/bknr/web/src/web/handlers.lisp
==============================================================================
--- branches/trunk-reorg/bknr/web/src/web/handlers.lisp	(original)
+++ branches/trunk-reorg/bknr/web/src/web/handlers.lisp	Tue Feb 12 11:56:56 2008
@@ -233,7 +233,7 @@
 	 (if (not (authorized-p handler))
 	     (progn
 	       (setf (session-value :login-redirect-uri)
-		     (redirect-uri (script-name)))
+		     (redirect-uri (parse-uri (script-name))))
 	       (redirect (website-make-path *website* "login")))
 	     (if *catch-errors-p*
 		 (handle handler)