Changeset 3291

Show
Ignore:
Timestamp:
06/18/08 12:27:12 (7 months ago)
Author:
ksprotte
Message:

bos trying out dictionary for country stats

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/payment-website/templates/de/dictionary.xml

    r3289 r3291  
    1717    </value> 
    1818  </entry> 
     19<!--   country names --> 
     20<entry><key>Bulgaria</key><value>Bulgarien</value></entry> 
    1921</dictionary> 

  • trunk/projects/bos/web/bos.web.asd

    r3288 r3291  
    3838               (:file "sat-tree" :depends-on ("quad-tree" "contract-tree")) 
    3939               (:file "countries" :depends-on ("packages")) 
    40                (:file "kml-handlers" :depends-on ("packages" "web-macros" "countries")) 
     40               (:file "kml-handlers" :depends-on ("packages" "web-macros" "countries" "dictionary")) 
    4141               (:file "sponsor-handlers" :depends-on ("web-utils")) 
    4242               (:file "news-handlers" :depends-on ("web-utils")) 

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

    r3261 r3291  
    150150                                           <p>In total, they have contributed ~d m².</p><br>" 
    151151                                        (length contracts) 
    152                                         (second (assoc (make-keyword-from-string (car country-contracts)) *country-english-names*)) 
     152                                        (dictionary-entry 
     153                                         (second (assoc (make-keyword-from-string (car country-contracts)) *country-english-names*)) lang) 
    153154                                        (reduce #'+ contracts :key #'contract-area)))) 
    154155                        (with-element "Point"