added village amenities

android/assets/dbsync.scm

@@ -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"))

android/assets/starwisp.scm

@@ -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)))