group comp code, main observer fix

fo-am · Apr 16, 2018 · 04ba50f · 04ba50f
1 parent 4e3f10e
commit 04ba50f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/android/app/src/main/assets/group-comp.scm b/android/app/src/main/assets/group-comp.scm
@@ -12,13 +12,13 @@
                       (lambda (v)
                         (set-current! 'entity-type "group-comp")
                         (entity-update-single-value!
-                         (ktv "main-observer" "varchar" v)) '()))
+                         (ktv "main-observer" "varchar" (if v "yes" "no"))) '()))
       (vert
        (mtext "" "Code")
        (edit-text (make-id "gc-start-code") "" 30 "numeric" fillwrap
                   (lambda (v)
                     (set-current! 'entity-type "group-comp")
-                    (entity-update-values!
+                    (entity-update-single-value!
                      (ktv "group-comp-code" "varchar" v)) '()))))
 
      (mtitle "title" "Weights and Group Composition")