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

[BKNR Commits]

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

replaced fixed host createrainforest.org by (website-host) for poi xml
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-31 07:44:11 UTC (rev 3703)
+++ trunk/projects/bos/web/poi-handlers.lisp	2008-07-31 08:02:37 UTC (rev 3704)
@@ -457,8 +457,8 @@
                    (attribute "title" (slot-string image 'title language))
                    (attribute "subtitle" (slot-string image 'subtitle language))
                    (with-element "description" (text (slot-string image 'description language))))
-                 (with-element "url" (text (format nil "http://createrainforest.org/image/~D"
-                                                   (store-object-id image))))
+                 (with-element "url" (text (format nil "http://~A/image/~D"
+                                                   (website-host) (store-object-id image))))
                  (with-element "width" (text (princ-to-string (store-image-width image))))
                  (with-element "height" (text (princ-to-string (store-image-height image)))))))
       (with-accessors ((id store-object-id)