[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp

[BKNR Commits]

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

corrected small typo in last commit

U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2008-10-13 16:21:39 UTC (rev 3984)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-10-13 16:34:22 UTC (rev 3985)
@@ -108,10 +108,10 @@
    #?r"<!-- +squaremetre +area +contract +tree +link *-->"
    string
    (if (and sponsor (first (sponsor-contracts sponsor)))
-       (let ((contract (first (sponsor-contracts sponsor)))
-             (node (find-contract-node *contract-tree* contract))
-             (path (node-path node))
-             (contract-id (store-object-id contract)))
+       (let* ((contract (first (sponsor-contracts sponsor)))
+              (node (find-contract-node *contract-tree* contract))
+              (path (node-path node))
+              (contract-id (store-object-id contract)))
          (format nil "<href>http://~a/contract-tree-kml?rmcid=~D&rmcpath=~{~D~}&lang=~A</href>" 
                  (website-host) contract-id path lang))
        (format nil "<href>http://~A/contract-tree-kml?lang=~A</href>"