Commit 15180811 authored by Dave Griffiths's avatar Dave Griffiths

social screen nearl all working...

parent d700c454
......@@ -151,7 +151,9 @@
(update-entity db table (entity-id-from-unique db table unique-id) values)
(msg "updated " unique-id)
(msg values)
(entity-reset!))
;; removed due to save button no longer exiting activity - need to keep!
;;(entity-reset!)
)
(else
(msg "no values or no id to update as entity:" unique-id "values:" values))))))
......
......@@ -628,15 +628,15 @@
(define (update-social-connection db table id key type request-code)
(let ((id-text (string-append (symbol->string id))))
(list
;;(update-person-selector db table id key)
(update-person-selector db table id key)
(mupdate-spinner-other
(string->symbol (string-append id-text "-relationship"))
(string-append key "-relationship")
social-relationship-list)
; (mupdate-spinner-other
; (string->symbol (string-append id-text "-residence"))
; (string-append key "-residence")
; social-residence-list)
(mupdate-spinner-other
(string->symbol (string-append id-text "-residence"))
(string-append key "-residence")
social-residence-list)
; (mupdate-spinner
; (string->symbol (dbg (string-append id-text "-strength")))
; (string-append key "-strength")
......
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