Revision: 3548 Author: ksprotte URL: http://bknr.net/trac/changeset/3548

WRITE-POI-XML now uses LANGUAGE and presents a correct Spenden link

U trunk/projects/bos/web/poi-handlers.lisp

Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-07-22 09:35:08 UTC (rev 3547) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-07-22 09:48:51 UTC (rev 3548) @@ -431,8 +431,10 @@ (attribute "title" (poi-string 'title)) (attribute "subtitle" (poi-string 'subtitle)) (with-element "menu" - (with-element "entry" (attribute "title" "Impressum") (attribute "href" "/de/impressum")) - (with-element "entry" (attribute "title" "Spenden") (attribute "href" "/de/spenden"))) + (with-element "entry" (attribute "title" "Impressum") + (attribute "href" (format nil "/~A/impressum" language))) + (with-element "entry" (attribute "title" "Spenden") + (attribute "href" (format nil "/~A/bestellung" language)))) (with-element "description" (text (poi-string 'description))) (with-media ("image_gallery" "Bildergalerie") (mapc #'format-image images))