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
1f024db1
Commit
1f024db1
authored
Jul 09, 2014
by
Dave Griffiths
Browse files
added birth year/age calc
parent
dda0e415
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
2 deletions
+11
-2
android/assets/starwisp.scm
android/assets/starwisp.scm
+9
-2
android/assets/translations.scm
android/assets/translations.scm
+2
-0
No files found.
android/assets/starwisp.scm
View file @
1f024db1
...
...
@@ -1216,7 +1216,14 @@
(
mspinner-other
'tribe
tribes-list
(
lambda
(
v
)
(
entity-set-value!
"tribe"
"varchar"
(
spinner-choice
tribes-list
v
))
'
()))
(
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"
(
string->number
v
))
'
()))
(
medit-text
'birth-year
"numeric"
(
lambda
(
v
)
(
entity-set-value!
"birth-year"
"int"
(
string->number
v
))
(
list
(
update-widget
'text-view
(
get-id
"age"
)
'text
(
string-append
"= "
(
number->string
(
-
date-year
(
string->number
v
)))
(
mtext-lookup
'years-old
))))))
(
mtext
'age
)
(
mspinner
'gender
gender-list
(
lambda
(
v
)
(
entity-set-value!
"gender"
"varchar"
(
spinner-choice
gender-list
v
))
'
())))
(
horiz
(
mspinner
'literate
yesno-list
(
lambda
(
v
)
(
entity-set-value!
"literate"
"varchar"
(
spinner-choice
yesno-list
v
))
'
()))
...
...
@@ -1241,7 +1248,7 @@
(
mupdate
'edit-text
'details-first-name
"first-name"
)
(
mupdate
'edit-text
'details-family
"family"
)
(
mupdate
'image-view
'photo
"photo"
)
(
mupdate
'edit-text
'
age
"age
"
)
(
mupdate
'edit-text
'
birth-year
"birth-year
"
)
(
mupdate-spinner
'gender
"gender"
gender-list
)
(
mupdate-spinner
'literate
"literate"
yesno-list
)
(
mupdate-spinner
'education
"education"
education-list
)
...
...
android/assets/translations.scm
View file @
1f024db1
...
...
@@ -6,6 +6,8 @@
(
list
'no
(
list
"No"
))
(
list
'not-answered
(
list
"Unanswered"
))
(
list
'not-set
(
list
"Not set"
))
(
list
'years-old
(
list
" years old"
))
(
list
'birth-year
(
list
"Birth year"
))
(
list
'agree-record
(
list
"Record"
))
(
list
'agree-playback
(
list
"Play"
))
(
list
'photo-agree-record
(
list
"Record"
))
...
...
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