[bknr-cvs] r2500 - in branches/bos/projects/bos: payment-website/infosystem payment-website/templates/da payment-website/templates/de payment-website/templates/en web

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Feb 15 07:21:20 2008
New Revision: 2500

Modified:
   branches/bos/projects/bos/payment-website/infosystem/javascript.js
   branches/bos/projects/bos/payment-website/templates/da/profil.xml
   branches/bos/projects/bos/payment-website/templates/de/profil.xml
   branches/bos/projects/bos/payment-website/templates/en/profil.xml
   branches/bos/projects/bos/web/sponsor-handlers.lisp
Log:
removed Google Earth links

Modified: branches/bos/projects/bos/payment-website/infosystem/javascript.js
==============================================================================
--- branches/bos/projects/bos/payment-website/infosystem/javascript.js	(original)
+++ branches/bos/projects/bos/payment-website/infosystem/javascript.js	Fri Feb 15 07:21:20 2008
@@ -397,9 +397,6 @@
 		+ ' m²</td></tr><tr> <td width="60" class="PoiNavigation">'
 		+ msg('seit') + ':</td><td class="PoiNavigation">' + n_profil.contracts[0].date
 		+ '</td></tr><tr> <td colspan="2" class="PoiNavigation"><img src="/infosystem/bilder/spacer.gif" width="1" height="10"/></td></tr>'		
-		+ '</td></tr><tr><td colspan="2" class="PoiNavigation"><a href="' + http_pfad +
-		  '/contract-kml/' + n_profil.contracts[0].id + '">Google Earth View</a></td></tr>'
-		+ '</td></tr><tr> <td colspan="2" class="PoiNavigation"><img src="/infosystem/bilder/spacer.gif" width="1" height="20"/></td></tr>'
 		+ '<tr> <td colspan="2" class="PoiNavigation">'
 		+ n_profil['nachricht']
 		+ '</td></tr></table>';

Modified: branches/bos/projects/bos/payment-website/templates/da/profil.xml
==============================================================================
--- branches/bos/projects/bos/payment-website/templates/da/profil.xml	(original)
+++ branches/bos/projects/bos/payment-website/templates/da/profil.xml	Fri Feb 15 07:21:20 2008
@@ -55,8 +55,7 @@
      </tr>
      <tr>
       <td class="Label">kvardratmeter</td>
-      <td class="Input">til værdi af $(numsqm) m² er blevet opkøbt<br></br>kordinater: $(geo-coord)
-	<br /><a href="/contract-kml/$(contract-id)">Your square metres in Google Earth</a></td>      
+      <td class="Input">til værdi af $(numsqm) m² er blevet opkøbt<br></br>kordinater: $(geo-coord)</td>
       <td class="Info"></td>
      </tr>
      <tr>

Modified: branches/bos/projects/bos/payment-website/templates/de/profil.xml
==============================================================================
--- branches/bos/projects/bos/payment-website/templates/de/profil.xml	(original)
+++ branches/bos/projects/bos/payment-website/templates/de/profil.xml	Fri Feb 15 07:21:20 2008
@@ -60,8 +60,7 @@
      </tr>
      <tr>
       <td class="Label">Quadratmeter</td>
-      <td class="Input">Insgesamt $(numsqm) Quadratmeter gekauft<br />Koordinate: $(geo-coord)
-      <br /><a href="/contract-kml/$(contract-id)">Ihre Quadratmeter in Google Earth</a></td>
+      <td class="Input">Insgesamt $(numsqm) Quadratmeter gekauft<br />Koordinate: $(geo-coord)</td>
       <td class="Info"></td>
      </tr>
      <tr>

Modified: branches/bos/projects/bos/payment-website/templates/en/profil.xml
==============================================================================
--- branches/bos/projects/bos/payment-website/templates/en/profil.xml	(original)
+++ branches/bos/projects/bos/payment-website/templates/en/profil.xml	Fri Feb 15 07:21:20 2008
@@ -60,8 +60,7 @@
      </tr>
      <tr>
       <td class="Label">square metres</td>
-      <td class="Input">a total of $(numsqm) m² has been bought<br />coordinate: $(geo-coord)
-      <br /><a href="/contract-kml/$(contract-id)">Your square metres in Google Earth</a></td>
+      <td class="Input">a total of $(numsqm) m² has been bought<br />coordinate: $(geo-coord)</td>
       <td class="Info"></td>
      </tr>
      <tr>

Modified: branches/bos/projects/bos/web/sponsor-handlers.lisp
==============================================================================
--- branches/bos/projects/bos/web/sponsor-handlers.lisp	(original)
+++ branches/bos/projects/bos/web/sponsor-handlers.lisp	Fri Feb 15 07:21:20 2008
@@ -160,9 +160,7 @@
 					 (m2-utm-x (first (contract-m2s (first (sponsor-contracts sponsor)))))
 					 (m2-utm-y (first (contract-m2s (first (sponsor-contracts sponsor))))))))
 		    (:td (:princ-safe (if (contract-paidp contract) "paid" "not paid")))
-		    (:td (cmslink (format nil "contract-kml/~A" (store-object-id contract)) "Google Earth")
-			 :br
-			 (cmslink (format nil "cert-regen/~A" (store-object-id contract)) "Regenerate Certificate")
+		    (:td (cmslink (format nil "cert-regen/~A" (store-object-id contract)) "Regenerate Certificate")
 			 (when (probe-file (contract-pdf-pathname contract))
 			   (html :br (cmslink (contract-pdf-url contract) "Show Certificate")))
 			 (when (contract-worldpay-trans-id contract)