Changeset 3704

Show
Ignore:
Timestamp:
07/31/08 10:02:37 (4 months ago)
Author:
ksprotte
Message:

replaced fixed host createrainforest.org by (website-host) for poi xml

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3699 r3704  
    458458                   (attribute "subtitle" (slot-string image 'subtitle language)) 
    459459                   (with-element "description" (text (slot-string image 'description language)))) 
    460                  (with-element "url" (text (format nil "http://createrainforest.org/image/~D" 
    461                                                    (store-object-id image)))) 
     460                 (with-element "url" (text (format nil "http://~A/image/~D" 
     461                                                   (website-host) (store-object-id image)))) 
    462462                 (with-element "width" (text (princ-to-string (store-image-width image)))) 
    463463                 (with-element "height" (text (princ-to-string (store-image-height image)))))))