[bknr-cvs] ksprotte changed trunk/projects/bos/web/poi-handlers.lisp

[BKNR Commits]

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))