social/friendship questions in full

android/assets/starwisp.scm

@@ -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)

android/assets/translations.scm

 (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:" ))
+
 
 ))

translations.csv

@@ -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:",,,