Changeset 3665

Show
Ignore:
Timestamp:
07/28/08 17:14:31 (4 months ago)
Author:
ksprotte
Message:

fixed poi-javascript generation for changed poi-movie format

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/poi.lisp

    r3662 r3665  
    177177        (format t "poi.panoramas = [ ~{~D~^, ~} ];~%" (mapcar #'store-object-id (poi-panoramas poi)))) 
    178178      (when (poi-movies poi) 
    179         (format t "poi.movies = [ ~{~S~^, ~} ];~%" (poi-movies poi))) 
     179        (format t "poi.movies = [ ~{~S~^, ~} ];~%" (mapcar #'poi-movie-url (poi-movies poi)))) 
    180180      (loop for slot-name in '(title subtitle description) 
    181181         for javascript-name in '("imageueberschrift" "imageuntertitel" "imagetext")