Commit 1c18df16 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

added babysitters

parent d9621bd7
...@@ -1357,7 +1357,7 @@ ...@@ -1357,7 +1357,7 @@
(linear-layout (linear-layout
(make-id "") 'vertical fill gc-col (make-id "") 'vertical fill gc-col
(list (list
(mtext "title" "Pup Associations") (mtitle "title" "Pup Associations")
(build-grid-selector "gc-pup-choose" "single" "Choose pup") (build-grid-selector "gc-pup-choose" "single" "Choose pup")
(horiz (horiz
(vert (vert
...@@ -1436,7 +1436,7 @@ ...@@ -1436,7 +1436,7 @@
(linear-layout (linear-layout
(make-id "") 'vertical fill gc-col (make-id "") 'vertical fill gc-col
(list (list
(mtext "" "Oestrus") (mtitle "" "Oestrus")
(build-grid-selector "gc-oestrus-female" "single" "Choose female") (build-grid-selector "gc-oestrus-female" "single" "Choose female")
(horiz (horiz
(vert (vert
...@@ -1505,12 +1505,36 @@ ...@@ -1505,12 +1505,36 @@
(make-id "") 'vertical fill gc-col (make-id "") 'vertical fill gc-col
(list (list
(mtitle "" "Babysitters") (mtitle "" "Babysitters")
(mtitle "title" "Seen")
(build-grid-selector "gc-baby-seen" "toggle" "Choose")
(mtitle "title" "By elimination")
(build-grid-selector "gc-baby-byelim" "toggle" "Choose")
(next-button "gc-pup-baby-" "Ending, have you finished here?" "gc-oestrus" "gc-end" (next-button "gc-pup-baby-" "Ending, have you finished here?" "gc-oestrus" "gc-end"
(lambda () '())))) (lambda () '()))))
(lambda (fragment arg) (lambda (fragment arg)
(activity-layout fragment)) (activity-layout fragment))
(lambda (fragment arg) (lambda (fragment arg)
(list)) (append
(list
(populate-grid-selector
"gc-baby-seen" "toggle"
(db-mongooses-by-pack-adults) #f
(lambda (individuals)
(entity-update-single-value! (ktv "baby-seen" "varchar" (assemble-array individuals)))
(list)))
)
(update-grid-selector-enabled "gc-baby-seen" (get-current 'gc-present '()))
(update-grid-selector-checked "gc-baby-seen" "baby-seen")
(list
(populate-grid-selector
"gc-baby-byelim" "toggle"
(db-mongooses-by-pack-adults) #f
(lambda (individuals)
(entity-update-single-value! (ktv "baby-byelim" "varchar" (assemble-array individuals)))
(list)))
)
(update-grid-selector-enabled "gc-baby-byelim" (get-current 'gc-present '()))
(update-grid-selector-checked "gc-baby-byelim" "baby-byelim")))
(lambda (fragment) '()) (lambda (fragment) '())
(lambda (fragment) '()) (lambda (fragment) '())
(lambda (fragment) '()) (lambda (fragment) '())
......
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