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)