Commit b962245c authored by Dave Griffiths's avatar Dave Griffiths
Browse files

added separate literacy toggle

parent d8e5c120
...@@ -64,7 +64,7 @@ ...@@ -64,7 +64,7 @@
(define tribes-list '(khasi other)) (define tribes-list '(khasi other))
(define subtribe-list '(khynriam pnar bhoi war other)) (define subtribe-list '(khynriam pnar bhoi war other))
(define education-list '(illiterate literate primary middle high secondary university)) (define education-list '(primary middle high secondary university))
(define married-list '(ever-married currently-married currently-single seperated)) (define married-list '(ever-married currently-married currently-single seperated))
(define residence-list '(birthplace spouse-village)) (define residence-list '(birthplace spouse-village))
(define gender-list '(male female)) (define gender-list '(male female))
...@@ -103,6 +103,7 @@ ...@@ -103,6 +103,7 @@
(ktv "child" "int" 0) (ktv "child" "int" 0)
(ktv "age" "int" 0) (ktv "age" "int" 0)
(ktv "gender" "varchar" "") (ktv "gender" "varchar" "")
(ktv "literate" "int" 0)
(ktv "education" "varchar" "") (ktv "education" "varchar" "")
(ktv "head-of-house" "varchar" "") (ktv "head-of-house" "varchar" "")
(ktv "marital-status" "varchar" "") (ktv "marital-status" "varchar" "")
...@@ -931,7 +932,9 @@ ...@@ -931,7 +932,9 @@
(mspinner-other 'sub-tribe subtribe-list (lambda (v) (entity-set-value! "subtribe" "varchar" (spinner-choice subtribe-list v)) '())) (mspinner-other 'sub-tribe subtribe-list (lambda (v) (entity-set-value! "subtribe" "varchar" (spinner-choice subtribe-list v)) '()))
(horiz (horiz
(medit-text 'age "numeric" (lambda (v) (entity-set-value! "age" "int" v) '())) (medit-text 'age "numeric" (lambda (v) (entity-set-value! "age" "int" v) '()))
(mspinner 'gender gender-list (lambda (v) (entity-set-value! "gender" "varchar" (spinner-choice gender-list v)) '())) (mspinner 'gender gender-list (lambda (v) (entity-set-value! "gender" "varchar" (spinner-choice gender-list v)) '())))
(horiz
(mtoggle-button-scale 'literate (lambda (v) (entity-set-value! "literate" "int" v) '()))
(mspinner 'education education-list (lambda (v) (entity-set-value! "education" "varchar" v) '()))) (mspinner 'education education-list (lambda (v) (entity-set-value! "education" "varchar" v) '())))
) )
(lambda (activity arg) (lambda (activity arg)
...@@ -949,6 +952,7 @@ ...@@ -949,6 +952,7 @@
(mupdate 'image-view 'photo "photo") (mupdate 'image-view 'photo "photo")
(mupdate 'edit-text 'age "age") (mupdate 'edit-text 'age "age")
(mupdate-spinner 'gender "gender" gender-list) (mupdate-spinner 'gender "gender" gender-list)
(mupdate 'toggle-button 'literate "literate")
(mupdate-spinner 'education "education" education-list) (mupdate-spinner 'education "education" education-list)
))) )))
(lambda (activity) '()) (lambda (activity) '())
......
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