[hunchentoot-devel] [PATCH] maybe-read-post-parameters should pass `request' to raw-post-data
--- source/hunchentoot/request.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/source/hunchentoot/request.lisp b/source/hunchentoot/request.lisp index 776113a..ed194c6 100644 --- a/source/hunchentoot/request.lisp +++ b/source/hunchentoot/request.lisp @@ -305,7 +305,7 @@ unknown character set ~A in request content type." (cond ((and (string-equal type "application") (string-equal subtype "x-www-form-urlencoded")) (form-url-encoded-list-to-alist - (split "&" (raw-post-data :external-format +latin-1+)) + (split "&" (raw-post-data :request request :external-format +latin-1+)) external-format)) ((and (string-equal type "multipart") (string-equal subtype "form-data"))
Committed, thanks.
On Tue, Oct 27, 2009 at 17:48, Desmond O. Chang dochang@gmail.com wrote:
source/hunchentoot/request.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/source/hunchentoot/request.lisp b/source/hunchentoot/request.lisp index 776113a..ed194c6 100644 --- a/source/hunchentoot/request.lisp +++ b/source/hunchentoot/request.lisp @@ -305,7 +305,7 @@ unknown character set ~A in request content type." (cond ((and (string-equal type "application") (string-equal subtype "x-www-form-urlencoded")) (form-url-encoded-list-to-alist
- (split "&" (raw-post-data :external-format +latin-1+))
- (split "&" (raw-post-data :request request :external-format +latin-1+))
external-format)) ((and (string-equal type "multipart") (string-equal subtype "form-data")) -- 1.6.5
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel
-
Desmond O. Chang -
Hans Hübner