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

[BKNR Commits]

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)