Commit 91a86831 authored by dave griffiths's avatar dave griffiths
Browse files

csv fix

parent 0ab78b14
......@@ -158,12 +158,9 @@
(lambda (ktv r)
((ktv-key-is-id? ktv)
(msg "helllllo")
(msg ktv)
(msg (ktv-value-is-list? ktv))
(let ((replacement
(if (ktv-value-is-list? ktv)
(string-append "\"" (uid-list->names db (ktv-value ktv)) "\"")
(uid-list->names db (ktv-value ktv))
(uid->name db (ktv-value ktv)))))
(if replacement
(string-append r ", \"" replacement "\"")
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