Commit 02979ce5 authored by Dave Griffiths's avatar Dave Griffiths

added village amenities

parent 12d0b3bf
......@@ -643,7 +643,13 @@
(let ((lat (entity-get-value (string-append key-prepend "-lat")))
(lon (entity-get-value (string-append key-prepend "-lon"))))
(if (or (not lat) (not lon))
'()
(list
(update-widget
'text-view (get-id (string-append (symbol->string display-id) "-lat"))
'text "O")
(update-widget
'text-view (get-id (string-append (symbol->string display-id) "-lon"))
'text "0"))
(list
(update-widget
'text-view (get-id (string-append (symbol->string display-id) "-lat"))
......
......@@ -122,14 +122,32 @@
(list 'house-gps (list "GPS"))
(list 'toilet-gps (list "GPS"))
(list 'school (list "School"))
(list 'school-closest-access (list "Access"))
(list 'school-gps (list "GPS"))
(list 'hospital (list "Hospital/Health care centre"))
(list 'hospital-closest-access (list "Access"))
(list 'hospital-gps (list "GPS"))
(list 'post-office (list "Post Office"))
(list 'post-office-closest-access (list "Access"))
(list 'post-office-gps (list "GPS"))
(list 'railway-station (list "Railway station"))
(list 'railway-station-closest-access (list "Access"))
(list 'railway-station-gps (list "GPS"))
(list 'state-bus-service (list "Inter-state bus service"))
(list 'state-bus-service-closest-access (list "Access"))
(list 'state-bus-service-gps (list "GPS"))
(list 'district-bus-service (list "Inter-village/district bus service"))
(list 'district-bus-service-closest-access (list "Access"))
(list 'district-bus-service-gps (list "GPS"))
(list 'panchayat (list "Village Panchayat Office"))
(list 'panchayat-closest-access (list "Access"))
(list 'panchayat-gps (list "GPS"))
(list 'NGO (list "Presence of NGO's working with them"))
(list 'NGO-closest-access (list "Access"))
(list 'NGO-gps (list "GPS"))
(list 'market (list "Market"))
(list 'market-closest-access (list "Access"))
(list 'market-gps (list "GPS"))
;; household
(list 'household-name (list "Household name"))
......@@ -666,8 +684,8 @@
(lambda () (do-gps
(string->symbol (string-append id-text "-gps"))
(string-append id-text "-gps"))))
(mtext-small (string->symbol (string-append id-text "-lat")))
(mtext-small (string->symbol (string-append id-text "-lat")))))))
(mtext-small (string->symbol (string-append id-text "-gps-lat")))
(mtext-small (string->symbol (string-append id-text "-gps-lon")))))))
(define (update-amenity-widgets id)
(let ((id-text (symbol->string id)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment