Commit 37bd7a16 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

autospouse

parent 3050a43c
......@@ -879,7 +879,7 @@
;; BIDIRECTIONAL AUTOSPOUSE
(when (and (eqv? requestcode spouse-request-code)
(get-current 'choose-result #f))
(update-entity db "sync" (entity-id-from-unique db table (get-current 'choose-result #f))
(update-entity db "sync" (entity-id-from-unique db "sync" (get-current 'choose-result #f))
(list (ktv "id-spouse" "varchar" (entity-get-value "unique_id"))))
(msg "done..."))
......
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