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)