Revision: 3860 Author: ksprotte URL: http://bknr.net/trac/changeset/3860
STORE-OBJECT-ID of each POI now present in its Java-script representation
U trunk/projects/bos/m2/poi.lisp
Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-09-09 08:57:35 UTC (rev 3859) +++ trunk/projects/bos/m2/poi.lisp 2008-09-09 09:21:48 UTC (rev 3860) @@ -210,7 +210,8 @@ (store-objects-with-class 'poi)) #'(lambda (poi-1 poi-2) (string-lessp (slot-string poi-1 'title language) (slot-string poi-2 'title language))))) (format t " -var poi = { symbol: ~S, +var poi = { id: ~S, + symbol: ~S, icon: ~S, name: ~S, untertitel: ~S, @@ -220,6 +221,7 @@ thumbnail: ~D }; " + (store-object-id poi) (poi-name poi) (poi-icon poi) (slot-string poi 'title language)