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
citizen-science
symbai
Commits
a3ebe991
Commit
a3ebe991
authored
Jul 09, 2014
by
Dave Griffiths
Browse files
changes for db admin app
parent
96bd706f
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
22 additions
and
0 deletions
+22
-0
android/assets/dbsync.scm
android/assets/dbsync.scm
+13
-0
eavdb/eavdb.ss
eavdb/eavdb.ss
+9
-0
No files found.
android/assets/dbsync.scm
View file @
a3ebe991
...
...
@@ -123,6 +123,19 @@
(
entity-add-value-create!
key
type
value
))
)))
;; version to check the entity has the key
(
define
(
entity-set-value-mem!
key
type
value
)
(
when
(
not
(
check-type
type
value
))
(
msg
"INCORRECT TYPE FOR"
key
":"
type
":"
value
))
;; then save to memory
(
set-current!
'entity-values
(
ktv-set
(
get-current
'entity-values
'
())
(
ktv
key
type
value
))))
(
define
(
date-time->string
dt
)
(
string-append
...
...
eavdb/eavdb.ss
View file @
a3ebe991
...
...
@@ -79,3 +79,12 @@
(
alog
"get-entity-only"
)
(
get-entity-only
db
table
i
kt-list
))
(
filter-entities
db
table
type
filter
)))
;; only return (eg. name and photo)
(
define
(
db-filter-only-inc-deleted
db
table
type
filter
kt-list
)
(
alog
"db-filter-only"
)
(
map
(
lambda
(
i
)
(
alog
"get-entity-only"
)
(
get-entity-only
db
table
i
kt-list
))
(
filter-entities-inc-deleted
db
table
type
filter
)))
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