Author: achiumenti Date: Sun Dec 28 22:40:50 2008 New Revision: 172
Log: output of 404 page bugfixed
Modified: trunk/main/claw-as/src/server.lisp
Modified: trunk/main/claw-as/src/server.lisp ============================================================================== --- trunk/main/claw-as/src/server.lisp (original) +++ trunk/main/claw-as/src/server.lisp Sun Dec 28 22:40:50 2008 @@ -531,7 +531,7 @@ (connector-address (claw-server-connector claw-server)))
(defmethod error-renderer ((claw-server claw-server) &key (error-code 404)) - (let ((request-uri (format nil "~a/~a" *server-path* (subseq (claw-script-name) (1+ (length (claw-server-base-path claw-server)))))) + (let ((request-uri (claw-script-name)) ;(format nil "~a/~a" *server-path* (subseq (claw-script-name) (1+ (length (claw-server-base-path claw-server))))) (connector (claw-server-connector claw-server)) (style "body { font-family: arial, elvetica;