Commit 1bbfac8d authored by Dave Griffiths's avatar Dave Griffiths

social/friendship questions in full

parent e4d3ab72
......@@ -1345,9 +1345,16 @@
"social"
(build-activity
(mspinner 'social-type social-types-list
(lambda (v) (entity-set-value!
"social-type" "varchar"
(spinner-choice social-types-list v)) '()))
(lambda (v)
(entity-set-value! "social-type" "varchar"
(spinner-choice social-types-list v))
(list
(update-widget 'text-view (get-id "social-question") 'text
(cond
((eqv? v 1) (mtext-lookup 'prestige-question))
(else (mtext-lookup 'knowledge-question)))))))
(text-view (make-id "social-question")
"" 30 (layout 'wrap-content 'wrap-content -1 'centre 20))
(build-social-connection 'social-one "social-one" "friend" social-request-code-one #t)
(build-social-connection 'social-two "social-two" "friend" social-request-code-two #f)
(build-social-connection 'social-three "social-three" "friend" social-request-code-three #t)
......@@ -1382,6 +1389,9 @@
(activity
"friendship"
(build-activity
(text-view (symbol->id 'friendship-question)
(mtext-lookup 'friendship-question)
30 (layout 'wrap-content 'wrap-content -1 'centre 20))
(build-social-connection 'social-one "friendship-one" "friend" social-request-code-one #t)
(build-social-connection 'social-two "friendship-two" "friend" social-request-code-two #f)
(build-social-connection 'social-three "friendship-three" "friend" social-request-code-three #t)
......
(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" "" ))
......@@ -251,5 +252,9 @@
(list 'occupation-cows (list "Cows" ))
(list 'occupation-fishing (list "Fishing" ))
(list 'occupation-other (list "Other" ))
(list 'friendship-question (list "LIST UP TO FIVE PERSONS whom you have really liked to talk to in the last year. They can be of either sex. They can be friends, neighbours, relatives, co-wives; they can live in this village or elsewhere; anyone you like to talk to." ))
(list 'prestige-question (list "LIST UP TO FIVE PERSONS who you think are the most respected in the village:" ))
(list 'knowledge-question (list "LIST UP TO FIVE PERSONS who you think are the most knowledgeable in the village:" ))
))
......@@ -249,3 +249,6 @@
"occupation-cows","Cows",,,
"occupation-fishing","Fishing",,,
"occupation-other","Other",,,
"friendship-question","LIST UP TO FIVE PERSONS whom you have really liked to talk to in the last year. They can be of either sex. They can be friends, neighbours, relatives, co-wives; they can live in this village or elsewhere; anyone you like to talk to. ",,,
"prestige-question","LIST UP TO FIVE PERSONS who you think are the most respected in the village: ",,,
"knowledge-question","LIST UP TO FIVE PERSONS who you think are the most knowledgeable in the village:",,,
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