split the chooser by household (and filtered by current village)

android/assets/starwisp.scm

@@ -423,13 +423,7 @@
                           (inexact->exact (round (* 256 0.9)))))
 
 
-(define (update-individual-filter)
-  (let ((search (db-filter-only db "sync" "individual" (filter-get)
-                                (list
-                                 (list "photo" "file")
-                                 (list "name" "varchar")))))
-    (update-widget
-     'linear-layout (get-id "choose-pics") 'contents
+(define (build-photo-buttons search)
   (grid-ify
    (map
     (lambda (e)
@@ -465,7 +459,34 @@
            (text-view 0 (ktv-get e "name") 20 (layout 'wrap-content 'wrap-content -1 'centre 0)))
           ))))
     search)
-     3))))
+   3))
+
+
+(define (update-individual-filter-inner households)
+  (map
+   (lambda (household)
+     (let ((search (db-filter-only db "sync" "individual"
+                                   (append (filter-get)
+                                           (list (list "parent" "varchar" "="
+                                                       (ktv-get household "unique_id"))))
+                                   (list
+                                    (list "photo" "file")
+                                    (list "name" "varchar")))))
+       (apply vert
+              (cons (text-view 0 (ktv-get household "name") 20 fillwrap)
+                    (build-photo-buttons search)))
+       ))
+   households))
+
+(define (update-individual-filter)
+  (msg "update if")
+  (let ((households (db-filter-only db "sync" "household"
+                                    (list (list "parent" "varchar" "=" (get-setting-value "current-village")))
+                                    (list (list "name" "varchar")))))
+    (msg households)
+    (update-widget
+     'linear-layout (get-id "choose-pics") 'contents
+     (update-individual-filter-inner  households))))
 
 (define (image/name-from-unique-id db table unique-id)
   (let ((e (get-entity-by-unique db table unique-id)))