diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 00:52:03 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 00:52:03 +0100 |
commit | 0c55d369ae0884d4b127745bd19ee00d323897c8 (patch) | |
tree | d928410c6b05bc0bf7e72f973ac5d483d5f1aed5 /mulkcms-hunchentoot.lisp | |
parent | 8f8182a67b5c846f9c09051ca5d38ff5c4dede8d (diff) |
Use the Accept-Language HTTP header to determine preferred user languages.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
-rw-r--r-- | mulkcms-hunchentoot.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 5562fba..90d8d31 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -14,7 +14,10 @@ (defun dispatch-mulkcms-request (request) (let* ((relative-path (subseq (script-name request) 1))) - (mulkcms::find-request-handler relative-path (append (get-parameters*) (post-parameters*))))) + (mulkcms::find-request-handler relative-path + (append (get-parameters*) + (post-parameters*)) + (header-in* :accept-language)))) (defun setup-handlers () (setq *dispatch-table* |