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

autospouse

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