[bknr-cvs] ksprotte changed trunk/projects/bos/

[BKNR Commits]

Revision: 3864
Author: ksprotte
URL: http://bknr.net/trac/changeset/3864

Infosystem: Auf POI-Seite: Link zu Google Earth nur wenn published-earth

U   trunk/projects/bos/m2/poi.lisp
U   trunk/projects/bos/payment-website/infosystem/javascript.js

Modified: trunk/projects/bos/m2/poi.lisp
===================================================================
--- trunk/projects/bos/m2/poi.lisp	2008-09-09 11:03:16 UTC (rev 3863)
+++ trunk/projects/bos/m2/poi.lisp	2008-09-09 11:15:40 UTC (rev 3864)
@@ -218,7 +218,8 @@
             text: ~S,
             x: ~D,
             y: ~D,
-            thumbnail: ~D
+            thumbnail: ~D,
+            published_earth: ~:[false~;true~]
 };
 "
               (store-object-id poi)
@@ -229,7 +230,8 @@
               (escape-nl (slot-string poi 'description language))
               (poi-center-x poi)
               (poi-center-y poi)
-              (length (poi-sat-images poi)))
+              (length (poi-sat-images poi))
+              (poi-published-earth poi))
       (format t "poi.thumbnail = ~D;~%" (length (poi-sat-images poi)))
       (when (poi-airals poi)
 

Modified: trunk/projects/bos/payment-website/infosystem/javascript.js
===================================================================
--- trunk/projects/bos/payment-website/infosystem/javascript.js	2008-09-09 11:03:16 UTC (rev 3863)
+++ trunk/projects/bos/payment-website/infosystem/javascript.js	2008-09-09 11:15:40 UTC (rev 3864)
@@ -947,7 +947,8 @@
 
     poi_menu_items = [];
     poi_menu_items.push(["More-Info", show_poi_microsite]);    
-    poi_menu_items.push(["Google-Earth", show_poi_google_earth]);
+    if (the_poi.published_earth)
+      poi_menu_items.push(["Google-Earth", show_poi_google_earth]);
 
     make_poi_menu();