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

[BKNR Commits]

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)