From 0c55d369ae0884d4b127745bd19ee00d323897c8 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 22 Mar 2011 00:52:03 +0100
Subject: Use the Accept-Language HTTP header to determine preferred user
 languages.

---
 mulkcms-hunchentoot.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'mulkcms-hunchentoot.lisp')

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*
-- 
cgit v1.2.3