Commit a3ebe991 authored by Dave Griffiths's avatar Dave Griffiths

changes for db admin app

parent 96bd706f
......@@ -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
......
......@@ -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)))
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