Changeset 3651

Show
Ignore:
Timestamp:
07/28/08 10:47:01 (4 months ago)
Author:
ksprotte
Message:

fixed content-language-chooser to use script-name instead of request-uri

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/web-utils.lisp

    r3557 r3651  
    4040 
    4141(defun content-language-chooser () 
     42  "Note that in the current implementation other GET parameters than 
     43   language will be lost (not appended to script-name)." 
    4244  (html 
    4345   ((:p :class "languages") 
    4446    "Content languages: " 
    4547    (loop for (language-symbol language-name) in (website-languages) 
    46          do (labels ((show-language-link () 
    47                        (html (cmslink (format nil "~A?language=~A" (hunchentoot:request-uri*) language-symbol) 
    48                                (:princ-safe language-name))))) 
    49               (if (equal (request-language) language-symbol) 
    50                   (html "[" (show-language-link) "]") 
    51                   (html (show-language-link))) 
    52               (html " ")))))) 
     48       do (labels ((show-language-link () 
     49                     (html (cmslink (format nil "~A?language=~A" (hunchentoot:script-name*) language-symbol) 
     50                             (:princ-safe language-name))))) 
     51            (if (equal (request-language) language-symbol) 
     52                (html "[" (show-language-link) "]") 
     53                (html (show-language-link))) 
     54            (html " ")))))) 
    5355 
    5456(defun decode-ismap-query-string ()