Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
citizen-science
symbai
Commits
c2181df9
Commit
c2181df9
authored
Jul 09, 2014
by
Dave Griffiths
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
default social fixes, name display tweak
parent
1f024db1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
37 additions
and
43 deletions
+37
-43
android/assets/starwisp.scm
android/assets/starwisp.scm
+37
-43
No files found.
android/assets/starwisp.scm
View file @
c2181df9
...
...
@@ -60,18 +60,18 @@
;;(display (db-all db "local" "app-settings"))(newline)
(
define
tribes-list
'
(
not-set
khasi
other
no-answered
))
(
define
subtribe-list
'
(
not-set
khynriam
pnar
bhoi
war
other
not-answered
))
(
define
tribes-list
'
(
not-set
khasi
no-answered
other
))
(
define
subtribe-list
'
(
not-set
khynriam
pnar
bhoi
war
not-answered
other
))
(
define
education-list
'
(
not-set
primary
middle
high
secondary
university
not-answered
))
(
define
married-list
'
(
not-set
currently-married
currently-single
seperated
not-answered
))
(
define
residence-list
'
(
not-set
birthplace
spouse-village
not-answered
))
(
define
gender-list
'
(
not-set
male
female
not-answered
))
(
define
house-type-list
'
(
not-set
concrete
tin
thatched
other
not-answered
))
(
define
house-type-list
'
(
not-set
concrete
tin
thatched
not-answered
other
))
(
define
yesno-list
'
(
not-set
yes
no
not-answered
))
(
define
social-types-list
'
(
knowledge
prestige
))
(
define
social-relationship-list
'
(
not-set
mother
father
sister
brother
spouse
children
co-wife
spouse-mother
spouse-father
spouse-brother-wife
spouse-sister-husband
friend
neighbour
other
not-answered
))
(
define
social-residence-list
'
(
not-set
same
other
not-answered
))
(
define
social-relationship-list
'
(
not-set
mother
father
sister
brother
spouse
children
co-wife
spouse-mother
spouse-father
spouse-brother-wife
spouse-sister-husband
friend
neighbour
not-answered
other
))
(
define
social-residence-list
'
(
not-set
same
not-answered
other
))
(
define
social-strength-list
'
(
not-set
daily
weekly
monthly
less
not-answered
))
(
define
village-ktvlist
...
...
@@ -157,54 +157,54 @@
(
ktv
"town-sell"
"int"
-1
)
(
ktv
"social-one"
"varchar"
""
)
(
ktv
"social-one-nickname"
"varchar"
""
)
(
ktv
"social-one-relationship"
"varchar"
""
)
(
ktv
"social-one-residence"
"varchar"
""
)
(
ktv
"social-one-strength"
"varchar"
""
)
(
ktv
"social-one-relationship"
"varchar"
"
not-set
"
)
(
ktv
"social-one-residence"
"varchar"
"
not-set
"
)
(
ktv
"social-one-strength"
"varchar"
"
not-set
"
)
(
ktv
"social-two"
"varchar"
""
)
(
ktv
"social-two-nickname"
"varchar"
""
)
(
ktv
"social-two-relationship"
"varchar"
""
)
(
ktv
"social-two-residence"
"varchar"
""
)
(
ktv
"social-two-strength"
"varchar"
""
)
(
ktv
"social-two-relationship"
"varchar"
"
not-set
"
)
(
ktv
"social-two-residence"
"varchar"
"
not-set
"
)
(
ktv
"social-two-strength"
"varchar"
"
not-set
"
)
(
ktv
"social-three"
"varchar"
""
)
(
ktv
"social-three-nickname"
"varchar"
""
)
(
ktv
"social-three-relationship"
"varchar"
""
)
(
ktv
"social-three-residence"
"varchar"
""
)
(
ktv
"social-three-strength"
"varchar"
""
)
(
ktv
"social-three-relationship"
"varchar"
"
not-set
"
)
(
ktv
"social-three-residence"
"varchar"
"
not-set
"
)
(
ktv
"social-three-strength"
"varchar"
"
not-set
"
)
(
ktv
"social-four"
"varchar"
""
)
(
ktv
"social-four-nickname"
"varchar"
""
)
(
ktv
"social-four-relationship"
"varchar"
""
)
(
ktv
"social-four-residence"
"varchar"
""
)
(
ktv
"social-four-strength"
"varchar"
""
)
(
ktv
"social-four-relationship"
"varchar"
"
not-set
"
)
(
ktv
"social-four-residence"
"varchar"
"
not-set
"
)
(
ktv
"social-four-strength"
"varchar"
"
not-set
"
)
(
ktv
"social-five"
"varchar"
""
)
(
ktv
"social-five-nickname"
"varchar"
""
)
(
ktv
"social-five-relationship"
"varchar"
""
)
(
ktv
"social-five-residence"
"varchar"
""
)
(
ktv
"social-five-strength"
"varchar"
""
)
(
ktv
"social-five-relationship"
"varchar"
"
not-set
"
)
(
ktv
"social-five-residence"
"varchar"
"
not-set
"
)
(
ktv
"social-five-strength"
"varchar"
"
not-set
"
)
(
ktv
"friendship-one"
"varchar"
""
)
(
ktv
"friendship-one-nickname"
"varchar"
""
)
(
ktv
"friendship-one-relationship"
"varchar"
""
)
(
ktv
"friendship-one-residence"
"varchar"
""
)
(
ktv
"friendship-one-strength"
"varchar"
""
)
(
ktv
"friendship-one-relationship"
"varchar"
"
not-set
"
)
(
ktv
"friendship-one-residence"
"varchar"
"
not-set
"
)
(
ktv
"friendship-one-strength"
"varchar"
"
not-set
"
)
(
ktv
"friendship-two"
"varchar"
""
)
(
ktv
"friendship-two-nickname"
"varchar"
""
)
(
ktv
"friendship-two-relationship"
"varchar"
""
)
(
ktv
"friendship-two-residence"
"varchar"
""
)
(
ktv
"friendship-two-strength"
"varchar"
""
)
(
ktv
"friendship-two-relationship"
"varchar"
"
not-set
"
)
(
ktv
"friendship-two-residence"
"varchar"
"
not-set
"
)
(
ktv
"friendship-two-strength"
"varchar"
"
not-set
"
)
(
ktv
"friendship-three"
"varchar"
""
)
(
ktv
"friendship-three-nickname"
"varchar"
""
)
(
ktv
"friendship-three-relationship"
"varchar"
""
)
(
ktv
"friendship-three-residence"
"varchar"
""
)
(
ktv
"friendship-three-strength"
"varchar"
""
)
(
ktv
"friendship-three-relationship"
"varchar"
"
not-set
"
)
(
ktv
"friendship-three-residence"
"varchar"
"
not-set
"
)
(
ktv
"friendship-three-strength"
"varchar"
"
not-set
"
)
(
ktv
"friendship-four"
"varchar"
""
)
(
ktv
"friendship-four-nickname"
"varchar"
""
)
(
ktv
"friendship-four-relationship"
"varchar"
""
)
(
ktv
"friendship-four-residence"
"varchar"
""
)
(
ktv
"friendship-four-strength"
"varchar"
""
)
(
ktv
"friendship-four-relationship"
"varchar"
"
not-set
"
)
(
ktv
"friendship-four-residence"
"varchar"
"
not-set
"
)
(
ktv
"friendship-four-strength"
"varchar"
"
not-set
"
)
(
ktv
"friendship-five"
"varchar"
""
)
(
ktv
"friendship-five-nickname"
"varchar"
""
)
(
ktv
"friendship-five-relationship"
"varchar"
""
)
(
ktv
"friendship-five-residence"
"varchar"
""
)
(
ktv
"friendship-five-strength"
"varchar"
""
)
(
ktv
"friendship-five-relationship"
"varchar"
"
not-set
"
)
(
ktv
"friendship-five-residence"
"varchar"
"
not-set
"
)
(
ktv
"friendship-five-strength"
"varchar"
"
not-set
"
)
))
(
define
crop-ktvlist
...
...
@@ -1118,10 +1118,6 @@
(
mtext
'name-display
)
(
spacer
20
)
(
mtext
'first-name-display
)
(
spacer
20
)
(
mtext
'family-display
)
(
spacer
20
)
(
mtext
'photo-id-display
)
))
(
mtext
'last-editor
)
(
horiz
...
...
@@ -1177,10 +1173,8 @@
(
update-widget
'text-view
(
get-id
"last-social-editor"
)
'text
(
string-append
"Last edit by "
(
history-get-last
(
entity-get-value
"social-edit-history"
))))
(
mupdate
'edit-text
'individual-notes
"notes"
)
(
mupdate
'text-view
'name-display
"name"
)
(
mupdate
'text-view
'first-name-display
"first-name"
)
(
mupdate
'text-view
'family-display
"family"
)
(
mupdate
'text-view
'photo-id-display
"photo-id"
)
(
update-widget
'text-view
(
get-id
"name-display"
)
'text
(
string-append
"ID: "
(
entity-get-value
"name"
)))
(
update-widget
'text-view
(
get-id
"first-name-display"
)
'text
(
string-append
"Name: "
(
entity-get-value
"first-name"
)
" "
(
entity-get-value
"family"
)))
(
mupdate
'image-view
'photo
"photo"
))))
(
lambda
(
activity
)
'
())
(
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