Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
citizen-science
symbai
Commits
b962245c
Commit
b962245c
authored
May 12, 2014
by
Dave Griffiths
Browse files
added separate literacy toggle
parent
d8e5c120
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
2 deletions
+6
-2
android/assets/starwisp.scm
android/assets/starwisp.scm
+6
-2
No files found.
android/assets/starwisp.scm
View file @
b962245c
...
...
@@ -64,7 +64,7 @@
(
define
tribes-list
'
(
khasi
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
residence-list
'
(
birthplace
spouse-village
))
(
define
gender-list
'
(
male
female
))
...
...
@@ -103,6 +103,7 @@
(
ktv
"child"
"int"
0
)
(
ktv
"age"
"int"
0
)
(
ktv
"gender"
"varchar"
""
)
(
ktv
"literate"
"int"
0
)
(
ktv
"education"
"varchar"
""
)
(
ktv
"head-of-house"
"varchar"
""
)
(
ktv
"marital-status"
"varchar"
""
)
...
...
@@ -931,7 +932,9 @@
(
mspinner-other
'sub-tribe
subtribe-list
(
lambda
(
v
)
(
entity-set-value!
"subtribe"
"varchar"
(
spinner-choice
subtribe-list
v
))
'
()))
(
horiz
(
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
)
'
())))
)
(
lambda
(
activity
arg
)
...
...
@@ -949,6 +952,7 @@
(
mupdate
'image-view
'photo
"photo"
)
(
mupdate
'edit-text
'age
"age"
)
(
mupdate-spinner
'gender
"gender"
gender-list
)
(
mupdate
'toggle-button
'literate
"literate"
)
(
mupdate-spinner
'education
"education"
education-list
)
)))
(
lambda
(
activity
)
'
())
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment