Commit 1e748f1e authored by Dave Griffiths's avatar Dave Griffiths
Browse files

crops and started tranlsations

parent 85d4dc24
......@@ -30,6 +30,7 @@
<activity android:name="foam.symbai.AgreementActivity" android:configChanges="orientation"></activity>
<activity android:name="foam.symbai.IndividualChooserActivity" android:configChanges="orientation"></activity>
<activity android:name="foam.symbai.SyncActivity" android:configChanges="orientation"></activity>
<activity android:name="foam.symbai.CropActivity" android:configChanges="orientation"></activity>
</application>
......
......@@ -285,8 +285,8 @@
(ktvlist (list-ref data 1))
(unique-id (list-ref entity 1))
(exists (entity-exists? db table unique-id)))
(msg "from server...:")
(msg ktvlist)
;;(msg "from server...:")
;;(msg ktvlist)
;; need to check exists again here, due to delays back and forth
(if (not exists)
(insert-entity-wholesale
......@@ -326,12 +326,6 @@
db table
(get-entity-id db table unique-id)))
#f)))
(msg "suck check entity old=" old)
(msg "version there" version)
(when exists
(msg "version here" (get-entity-version
db table
(get-entity-id db table unique-id))))
;; if we don't have this entity or the version on the server is newer
(if (and (or (not exists) old)
......@@ -690,7 +684,9 @@
(define (update-list-widget db table entity-type edit-activity parent)
(let ((search-results
(if parent
(db-with-parent db table entity-type parent)
(db-filter-only db table entity-type
(list (list "parent" "varchar" "=" parent))
(list (list "name" "varchar")))
(db-all db table entity-type))))
(update-widget
'linear-layout
......
......@@ -34,9 +34,12 @@
(setup db "stream")
(insert-entity-if-not-exists
db "local" "app-settings" "null" 1
db "local" "app-settings2" "null" 1
(list
(ktv "user-id" "varchar" "No name yet...")))
(ktv "user-id" "varchar" "No name yet...")
(ktv "language" "int" 0)
(ktv "house-count" "int" 0)
(ktv "photo-id-count" "int" 0)))
(define entity-types (list "village" "household" "individual"))
......@@ -52,259 +55,6 @@
(define social-residence-list '(same other))
(define social-strength-list '(daily weekly monthly less))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; user interface abstraction
;;;;;;;;;;;;; i18n ;;;;;;;;;;;;;;;;;;;;;;
(define i18n-text
(list
(list 'test-num (list "1.0000000" "1.0000000" "1.0000000"))
(list 'test-text (list "I am test text" "I am test text" "I am test text"))
(list 'one (list "one"))
(list 'two (list "two"))
(list 'three (list "three"))
(list 'village (list "Village"))
(list 'household (list "Household"))
(list 'households (list "Households"))
(list 'individual (list "Individual"))
(list 'individuals (list "Individuals"))
(list 'add-item-to-list (list "+"))
(list 'default-village-name (list "New village"))
(list 'title (list "Symbai" "Symbai" "Symbai"))
(list 'sync (list "Sync" "Sync" "Sync"))
(list 'languages (list "Choose language" "Choose language" "Choose language"))
(list 'english (list "English" "English" "English"))
(list 'khasi (list "Khasi" "Khasi" "Khasi"))
(list 'hindi (list "Hindi" "Hindi" "Hindi"))
(list 'user-id (list "Your user ID" "User ID" "User ID"))
(list 'save (list "Save" "Save" "Save"))
(list 'back (list "Back" "Back" "Back"))
(list 'off (list "Off" "Off" "Off"))
(list 'villages (list "Villages" "Villages" "Villages"))
(list 'list-empty (list "List empty"))
(list 'delete (list "Delete"))
(list 'delete-are-you-sure (list "Are you sure you want to delete this?"))
(list 'save-are-you-sure (list "Are you sure you want to save changes?"))
;; individual filter
(list 'quick-name (list "New person name"))
(list 'quick-add (list "Quick add"))
(list 'find-individual (list "Find individual"))
(list 'filter (list "Filter"))
(list 'off (list "Off" "Off" "Off"))
(list 'name (list "Name"))
;; sync
(list 'sync-all (list "Sync me!"))
(list 'sync-syncall (list "Sync everything"))
(list 'export-data (list "Exporting data"))
(list 'sync-download (list "Download main DB"))
(list 'sync-export (list "Email main DB"))
(list 'email-local (list "Email local DB"))
(list 'debug (list "Debug"))
(list 'sync-back (list "Back"))
(list 'sync-prof (list "Profile"))
;; village screen
(list 'village-name (list "Village name" "Village name" "Village name"))
(list 'block (list "Block" "Block" "Block"))
(list 'district (list "District" "District" "District"))
(list 'car (list "Accessible by car"))
(list 'household-list (list "Household list"))
(list 'amenities (list "Amenities"))
(list 'school (list "School"))
(list 'present (list "Present"))
(list 'closest-access (list "Closest place of access"))
(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"))
(list 'default-household-name (list "A household"))
(list 'location (list "House location"))
(list 'elevation (list "Elevation"))
(list 'toilet-location (list "Toilet location"))
(list 'children (list "Children"))
(list 'male (list "Male"))
(list 'female (list "Female"))
(list 'num-pots (list "Number of pots"))
(list 'adults (list "Adults"))
(list 'add-individual (list "Add individual"))
;; individual
(list 'default-individual-name (list "A person"))
(list 'default-family-name (list "A family"))
(list 'default-photo-id (list "???"))
(list 'name-display (list "Name"))
(list 'photo-id-display (list "Photo ID"))
(list 'family-display (list "Family"))
(list 'details-button (list "Details"))
(list 'family-button (list "Family"))
(list 'migration-button (list "Migration"))
(list 'income-button (list "Income"))
(list 'geneaology-button (list "Geneaology"))
(list 'social-button (list "Social"))
(list 'agreement-button (list "Agreement"))
(list 'is-a-child (list "Child"))
;; details
(list 'change-photo (list "Change photo"))
(list 'details-name (list "Name"))
(list 'details-photo-id (list "Photo ID"))
(list 'details-family (list "Family"))
(list 'tribe (list "Tribe"))
(list 'sub-tribe (list "Sub tribe"))
(list 'khasi (list "Khasi"))
(list 'khynriam (list "Khynriam"))
(list 'pnar (list "Pnar"))
(list 'bhoi (list "Bhoi"))
(list 'war (list "War"))
(list 'other (list "Other"))
(list 'age (list "Age"))
(list 'gender (list "Gender"))
(list 'education (list "Education"))
(list 'illiterate (list "Illiterate"))
(list 'literate (list "Literate"))
(list 'primary (list "Primary 1-5"))
(list 'middle (list "Middle 6-8"))
(list 'high (list "High 9-10"))
(list 'secondary (list "Higher Secondary"))
(list 'university (list "University"))
;; family
(list 'spouse (list "Spouse"))
(list 'change-id (list "Change"))
(list 'head-of-house (list "Head of house"))
(list 'marital-status (list "Marital status"))
(list 'ever-married (list "Ever married"))
(list 'currently-married (list "Currently married"))
(list 'currently-single (list "Currently single"))
(list 'seperated (list "Seperated/divorced"))
(list 'times-married (list "How many times married"))
(list 'change-spouse (list "Change/add spouse"))
(list 'children-living (list "Living"))
(list 'children-dead (list "Dead"))
(list 'children-together (list "Living together"))
(list 'children-apart (list "Living apart"))
(list 'residence-after-marriage (list "Residence after marriage"))
(list 'birthplace (list "Birthplace"))
(list 'spouse-village (list "Spouses natal village"))
(list 'num-siblings (list "Number of living siblings of the same sex born from same mother"))
(list 'birth-order (list "Birth order amoung currently living same sex siblings born from same mother"))
;; migration
(list 'length-time (list "Length of time lived in this village (years)"))
(list 'place-of-birth (list "Place of birth"))
(list 'num-residence-changes (list "Number of time place of residence changed since birth"))
(list 'village-visits-month (list "Number of times you have visited another village in the last month"))
(list 'village-visits-year (list "Number of times you have visited another village in the last year (i.e. betwen last summer and this summer)"))
;; income
(list 'occupation (list "Occupation"))
(list 'occupation (list "Occupation"))
(list 'agriculture (list "Agriculture"))
(list 'gathering (list "Gathering"))
(list 'labour (list "Labour"))
(list 'cows (list "Cows"))
(list 'fishing (list "Fishing"))
(list 'num-people-in-house (list "People living in house"))
(list 'contribute (list "Contribute to family earnings?"))
(list 'own-land (list "Own land?"))
(list 'rent-land (list "Rent out your land?"))
(list 'hire-land (list "Hire land?"))
(list 'crops (list "Crops"))
(list 'crop (list "Crop"))
(list 'unit (list "Unit"))
(list 'quantity (list "Quantity"))
(list 'used-or-eaten (list "Used/Eaten"))
(list 'sold (list "Sold"))
(list 'seed (list "Seed (hybrid/local)"))
(list 'house-type (list "House type"))
(list 'concrete (list "Concrete"))
(list 'tin (list "Tin"))
(list 'thatched (list "Thatched"))
(list 'loan (list "Outstanding loans"))
(list 'earning (list "One day's earnings"))
(list 'in-the-home (list "In the home"))
(list 'radio (list "Radio"))
(list 'tv (list "TV"))
(list 'mobile (list "Mobile phone"))
(list 'visit-market (list "Tribal market visits"))
(list 'town-sell (list "Town or city visits"))
;; geneaology
(list 'mother (list "Mother"))
(list 'father (list "Father"))
(list 'change-mother (list "Change mother"))
(list 'change-father (list "Change father"))
(list 'alive (list "Alive"))
(list 'sex (list "Sex"))
;; social
(list 'social-type (list "Type"))
(list 'friendship (list "Friendship"))
(list 'knowledge (list "Knowledge"))
(list 'prestige (list "Prestige"))
(list 'social-one (list "One"))
(list 'social-two (list "Two"))
(list 'social-three (list "Three"))
(list 'social-four (list "Four"))
(list 'social-five (list "Five"))
(list 'social-relationship (list "Relationship"))
(list 'social-residence (list "Residence"))
(list 'social-strength (list "Strength"))
(list 'mother (list "Mother"))
(list 'father (list "Father"))
(list 'sister (list "Sister"))
(list 'brother (list "Brother"))
(list 'spouse (list "Spouse"))
(list 'children (list "Children"))
(list 'co-wife (list "Co-wife"))
(list 'spouse-mother (list "Spouse's mother"))
(list 'spouse-father (list "Spouse's father"))
(list 'spouse-brother-wife (list "Spouse's brother's wife"))
(list 'spouse-sister-husband (list "Spouse's sister's husband"))
(list 'friend (list "Friend"))
(list 'neighbour (list "Neighbour"))
(list 'same (list "Same"))
(list 'daily (list "Daily"))
(list 'weekly (list "Weekly"))
(list 'monthly (list "Monthly"))
(list 'less (list "Less"))
))
(define village-ktvlist
(list
(ktv-create "name" "varchar" (mtext-lookup 'default-village-name))
......@@ -364,6 +114,14 @@
(ktv-create "town-sell" "int" 0)
))
(define crop-ktvlist
(list
(ktv-create "name" "varchar" (mtext-lookup 'default-crop-name))
(ktv-create "unit" "varchar" "unit")
(ktv-create "used" "real" 0)
(ktv-create "sold" "real" 0)
(ktv-create "seed" "varchar" "none")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
......@@ -1131,11 +889,9 @@
(horiz
(mtoggle-button-scale 'rent-land (lambda (v) (entity-set-value! "rent-land" "int" v) '()))
(mtoggle-button-scale 'hire-land (lambda (v) (entity-set-value! "hire-land" "int" v) '())))
(mtitle 'crops)
;; todo ->
;; (horiz
;; (mtext-scale 'crop) (mtext-scale 'unit) (mtext-scale 'quantity)
;; (mtext-scale 'used-or-eaten) (mtext-scale 'sold) (mtext-scale 'seed))
(build-list-widget
db "sync" 'crops "crop" "crop" (lambda () (get-current 'individual #f))
crop-ktvlist)
(mspinner-other 'house-type '(concrete tin thatched) (lambda (v) '()))
(horiz
(medit-text 'loan "numeric" (lambda (v) (entity-set-value! "loan" "int" v) '()))
......@@ -1154,6 +910,7 @@
(activity-layout activity))
(lambda (activity arg)
(list
(update-list-widget db "sync" "crop" "crop" (get-current 'individual #f))
(mupdate-spinner 'occupation "occupation" '(agriculture gathering labour cows fishing other))
(mupdate 'toggle-button 'contribute "contribute")
(mupdate 'toggle-button 'own-land "own-land")
......@@ -1173,6 +930,37 @@
(lambda (activity) '())
(lambda (activity requestcode resultcode) '()))
(activity
"crop"
(build-activity
(vert
(medit-text 'crop-name "normal" (lambda (v) (entity-set-value! "name" "varchar" v) '()))
(medit-text 'crop-unit "normal" (lambda (v) (entity-set-value! "unit" "varchar" v) '()))
(medit-text 'crop-used "numeric" (lambda (v) (entity-set-value! "used" "real" (string->number v)) '()))
(medit-text 'crop-sold "numeric" (lambda (v) (entity-set-value! "sold" "real" (string->number v)) '()))
(medit-text 'crop-seed "numeric" (lambda (v) (entity-set-value! "seed" "varchar" v) '()))
(delete-button)))
(lambda (activity arg)
(set-current! 'activity-title "Crop")
(activity-layout activity))
(lambda (activity arg)
(entity-init! db "sync" "crop" (get-entity-by-unique db "sync" arg))
(set-current! 'crop arg)
(list
(mupdate 'edit-text 'crop-name "name")
(mupdate 'edit-text 'crop-unit "unit")
(mupdate 'edit-text 'crop-used "used")
(mupdate 'edit-text 'crop-sold "sold")
(mupdate 'edit-text 'crop-seed "seed")
))
(lambda (activity) '())
(lambda (activity) '())
(lambda (activity) '())
(lambda (activity) '())
(lambda (activity requestcode resultcode) '()))
(activity
"geneaology"
(build-activity
......@@ -1257,7 +1045,8 @@
(build-activity
(vert
(horiz
(medit-text 'quick-name "normal" (lambda (v) (set-current! 'chooser-quick-name v) '()))
(medit-text 'quick-name "normal"
(lambda (v) (set-current! 'chooser-quick-name v) '()))
(mbutton-scale
'quick-add
(lambda ()
......@@ -1277,7 +1066,9 @@
(list
(ktv "name" "varchar" (get-current 'chooser-quick-name (mtext-lookup 'no-name)))
(ktv "parent" "varchar" (get-current 'household #f))))))
(list (finish-activity 0))))))))))
(list (finish-activity 0)))
(else
(list)))))))))
(linear-layout
......
(define i18n-text
(list
(list 'test-num (list "1" "1" "1" "" ))
(list 'test-text (list "I am test text" "I am test text" "I am test text" "" ))
(list 'one (list "one" "" ))
(list 'two (list "two" "" ))
(list 'three (list "three" "" ))
(list 'village (list "Village" "" ))
(list 'household (list "Household" "" ))
(list 'households (list "Households" "" ))
(list 'individual (list "Individual" "" ))
(list 'individuals (list "Individuals" "" ))
(list 'add-item-to-list (list "0" "" ))
(list 'default-village-name (list "New village" "" ))
(list 'title (list "Symbai" "Symbai" "Symbai" "" ))
(list 'sync (list "Sync" "Sync" "Sync" "" ))
(list 'languages (list "Choose language" "Choose language" "Choose language" "" ))
(list 'english (list "English" "English" "English" "" ))
(list 'khasi (list "Khasi" "Khasi" "Khasi" "" ))
(list 'hindi (list "Hindi" "Hindi" "Hindi" "" ))
(list 'user-id (list "Your user ID" "User ID" "User ID" "" ))
(list 'save (list "Save" "Save" "Save" "" ))
(list 'back (list "Back" "Back" "Back" "" ))
(list 'off (list "Off" "Off" "Off" "" ))
(list 'villages (list "Villages" "Villages" "Villages" "" ))
(list 'list-empty (list "List empty" "" ))
(list 'delete (list "Delete" "" ))
(list 'delete-are-you-sure (list "Are you sure you want to delete this?" "" ))
(list 'save-are-you-sure (list "Are you sure you want to save changes?" "" ))
(list 'quick-name (list "New person name" "" ))
(list 'quick-add (list "Quick add" "" ))
(list 'find-individual (list "Find individual" "" ))
(list 'filter (list "Filter" "" ))
(list 'off (list "Off" "Off" "Off" "" ))
(list 'name (list "Name" "Kyrteng" ))
(list 'sync-all (list "Sync me!" "" ))
(list 'sync-syncall (list "Sync everything" "" ))
(list 'export-data (list "Exporting data" "" ))
(list 'sync-download (list "Download main DB" "" ))
(list 'sync-export (list "Email main DB" "" ))
(list 'email-local (list "Email local DB" "" ))
(list 'debug (list "Debug" "" ))
(list 'sync-back (list "Back" "" ))
(list 'sync-prof (list "Profile" "" ))
(list 'village-name (list "Village name" "Village name" "Village name" "" ))
(list 'block (list "Block" "Block" "Block" "" ))
(list 'district (list "District" "District" "District" "" ))
(list 'car (list "Accessible by car" "" ))
(list 'household-list (list "Household list" "" ))
(list 'amenities (list "Amenities" "" ))
(list 'school (list "School" "" ))
(list 'present (list "Present" "" ))
(list 'closest-access (list "Closest place of access" "" ))
(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" "" ))
(list 'household-name (list "Household name" "" ))
(list 'default-household-name (list "A household" "" ))
(list 'location (list "House location" "" ))
(list 'elevation (list "Elevation" "" ))
(list 'toilet-location (list "Toilet location" "" ))
(list 'children (list "Children" "" ))
(list 'male (list "Male" "Shynrang" ))
(list 'female (list "Female" "Kynthei" ))
(list 'num-pots (list "Number of pots" "" ))
(list 'adults (list "Adults" "" ))
(list 'add-individual (list "Add individual" "" ))
(list 'default-individual-name (list "A person" "" ))
(list 'default-family-name (list "A family" "" ))
(list 'default-photo-id (list "???" "" ))
(list 'name-display (list "Name" "Kyrteng" ))
(list 'photo-id-display (list "Photo ID" "Nombor dur ID" ))
(list 'family-display (list "Family" "Family/Clan" ))
(list 'details-button (list "Details" "" ))
(list 'family-button (list "Family" "Family/Clan" ))
(list 'migration-button (list "Migration" "" ))
(list 'income-button (list "Income" "" ))
(list 'geneaology-button (list "Geneaology" "" ))
(list 'social-button (list "Social" "" ))
(list 'agreement-button (list "Agreement" "" ))
(list 'is-a-child (list "Child" "" ))
(list 'change-photo (list "Change photo" "" ))
(list 'details-name (list "Name" "Kyrteng" ))
(list 'details-photo-id (list "Photo ID" "Nombor dur ID" ))
(list 'details-family (list "Family" "" ))
(list 'tribe (list "Tribe" "Jaidbynriew" ))
(list 'sub-tribe (list "Sub tribe" "Tynrai Jaidbynriew" ))
(list 'khasi (list "Khasi" "" ))
(list 'khynriam (list "Khynriam" "" ))
(list 'pnar (list "Pnar" "" ))
(list 'bhoi (list "Bhoi" "" ))
(list 'war (list "War" "" ))
(list 'other (list "Other" "" ))
(list 'age (list "Age" "Ka rta" ))
(list 'gender (list "Gender" "U/ka" ))
(list 'education (list "Education" "Jingpule" ))
(list 'illiterate (list "Illiterate" "Bym Nang/Bymstad" ))
(list 'literate (list "Literate" "Lah Nang/Lahtip" ))
(list 'primary (list "Primary 1-5" "Biang 1-5" ))
(list 'middle (list "Middle 6-8" "Ba Pdeng 6-8" ))
(list 'high (list "High 9-10" "Lah Khamstad 9-10" ))
(list 'secondary (list "Higher Secondary" "Lah stad" ))
(list 'university (list "University" "La pyndep university" ))
(list 'spouse (list "Spouse" "" ))
(list 'change-id (list "Change" "" ))
(list 'head-of-house (list "Head of house" "" ))
(list 'marital-status (list "Marital status" "" ))
(list 'ever-married (list "Ever married" "" ))
(list 'currently-married (list "Currently married" "" ))
(list 'currently-single (list "Currently single" "" ))
(list 'seperated (list "Seperated/divorced" "" ))
(list 'times-married (list "How many times married" "" ))
(list 'change-spouse (list "Change/add spouse" "" ))
(list 'children-living (list "Living" "" ))
(list 'children-dead (list "Dead" "" ))
(list 'children-together (list "Living together" "" ))
(list 'children-apart (list "Living apart" "" ))
(list 'residence-after-marriage (list "Residence after marriage" "" ))
(list 'birthplace (list "Birthplace" "" ))
(list 'spouse-village (list "Spouses natal village" "" ))
(list 'num-siblings (list "Number of living siblings of the same sex born from same mother" "" ))
(list 'birth-order (list "Birth order amoung currently living same sex siblings born from same mother" "" ))
(list 'length-time (list "Length of time lived in this village (years)" "" ))
(list 'place-of-birth (list "Place of birth" "" ))
(list 'num-residence-changes (list "Number of time place of residence changed since birth" "" ))
(list 'village-visits-month (list "Number of times you have visited another village in the last month" "" ))
(list 'village-visits-year (list "Number of times you have visited another village in the last year (i.e. betwen last summer and this summer)" "" ))
(list 'occupation (list "Occupation" "" ))
(list 'occupation (list "Occupation" "" ))
(list 'agriculture (list "Agriculture" "" ))
(list 'gathering (list "Gathering" "" ))
(list 'labour (list "Labour" "" ))
(list 'cows (list "Cows" "" ))
(list 'fishing (list "Fishing" "" ))
(list 'num-people-in-house (list "People living in house" "" ))
(list 'contribute (list "Contribute to family earnings?" "" ))
(list 'own-land (list "Own land?" "" ))
(list 'rent-land (list "Rent out your land?" "" ))
(list 'hire-land (list "Hire land?" "" ))
(list 'crops (list "Crops" "" ))
(list 'unit (list "Unit" "" ))
(list 'quantity (list "Quantity" "" ))
(list 'used-or-eaten (list "Used/Eaten" "" ))
(list 'sold (list "Sold" "" ))