Commit 15180811 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

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)
;; removed due to save button no longer exiting activity - need to keep!
(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))))
;;(update-person-selector db table id key)
(update-person-selector db table id key)
(string->symbol (string-append id-text "-relationship"))
(string-append key "-relationship")
; (mupdate-spinner-other
; (string->symbol (string-append id-text "-residence"))
; (string-append key "-residence")
; social-residence-list)
(string->symbol (string-append id-text "-residence"))
(string-append key "-residence")
; (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