Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dave Griffiths
mongoose-2000
Commits
89ceacbb
Commit
89ceacbb
authored
Jun 12, 2014
by
Dave Griffiths
Browse files
group composition, pregnant working...
parent
fc0f0b24
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
22 additions
and
15 deletions
+22
-15
android/assets/dbsync.scm
android/assets/dbsync.scm
+1
-1
android/assets/starwisp.scm
android/assets/starwisp.scm
+21
-14
No files found.
android/assets/dbsync.scm
View file @
89ceacbb
...
...
@@ -196,7 +196,7 @@
""
entities
))
(
define
(
string-s
trip
str
delim
)
(
define
(
string-s
plit-simple
str
delim
)
(
let
((
r
(
foldl
(
lambda
(
c
r
)
(
cond
...
...
android/assets/starwisp.scm
View file @
89ceacbb
...
...
@@ -261,11 +261,14 @@
'set-enabled
0
))
items
))
(
define
(
update-grid-selector-checked
id
items
)
(
map
(
lambda
(
item
)
(
update-widget
'toggle-button
(
get-id
(
string-append
id
item
))
'checked
1
))
items
))
(
define
(
update-grid-selector-checked
id
items-id
)
(
let
((
items-str
(
entity-get-value
items-id
)))
(
if
items-str
(
map
(
lambda
(
item
)
(
update-widget
'toggle-button
(
get-id
(
string-append
id
item
))
'checked
1
))
(
string-split-simple
items-str
#
\
,
))
'
())))
(
define
(
db-mongooses-by-pack
)
(
db-all-where
...
...
@@ -1025,7 +1028,7 @@
(
build-grid-selector
"gc-start-present"
"toggle"
"Who's present?"
)
(
next-button
"gc-start-"
"Go to weighing, have you finished here?"
"gc-start"
"gc-weights"
(
lambda
()
(
set-current!
'gc-present
(
string-s
trip
(
entity-get-value
"present"
)
#
\
,
))
(
set-current!
'gc-present
(
string-s
plit-simple
(
entity-get-value
"present"
)
#
\
,
))
(
entity-update-values!
)
(
msg
"exiting start"
)
'
()))
...
...
@@ -1047,7 +1050,7 @@
(
entity-set-value!
"present"
"varchar"
(
assemble-array
individuals
))
(
list
))
(
get-current
'gc-present
'
())))
(
update-grid-selector-checked
"gc-start-present"
(
get-current
'gc-
present
'
())
))
(
update-grid-selector-checked
"gc-start-present"
"
present
"
))
)
(
lambda
(
fragment
)
'
())
(
lambda
(
fragment
)
'
())
...
...
@@ -1143,13 +1146,17 @@
(
lambda
(
fragment
arg
)
(
activity-layout
fragment
))
(
lambda
(
fragment
arg
)
(
list
(
populate-grid-selector
"gc-preg-choose"
"toggle"
(
db-mongooses-by-pack-female
)
#f
(
lambda
(
individual
)
(
list
)))
))
(
append
(
list
(
populate-grid-selector
"gc-preg-choose"
"toggle"
(
db-mongooses-by-pack-female
)
#f
(
lambda
(
individuals
)
(
entity-update-single-value!
(
ktv
"pregnant"
"varchar"
(
assemble-array
individuals
)))
(
list
)))
)
(
update-grid-selector-enabled
"gc-preg-choose"
(
get-current
'gc-present
'
()))
(
update-grid-selector-checked
"gc-preg-choose"
"pregnant"
)))
(
lambda
(
fragment
)
'
())
(
lambda
(
fragment
)
'
())
(
lambda
(
fragment
)
'
())
...
...
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