Revision: 3665 Author: ksprotte URL: http://bknr.net/trac/changeset/3665
fixed poi-javascript generation for changed poi-movie format
U trunk/projects/bos/m2/poi.lisp
Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-07-28 14:44:00 UTC (rev 3664) +++ trunk/projects/bos/m2/poi.lisp 2008-07-28 15:14:31 UTC (rev 3665) @@ -176,7 +176,7 @@ (when (poi-panoramas poi) (format t "poi.panoramas = [ ~{~D~^, ~} ];~%" (mapcar #'store-object-id (poi-panoramas poi)))) (when (poi-movies poi) - (format t "poi.movies = [ ~{~S~^, ~} ];~%" (poi-movies poi))) + (format t "poi.movies = [ ~{~S~^, ~} ];~%" (mapcar #'poi-movie-url (poi-movies poi)))) (loop for slot-name in '(title subtitle description) for javascript-name in '("imageueberschrift" "imageuntertitel" "imagetext") for slot-values = (mapcar (lambda (image)