@@ -15,11 +15,10 @@
 
 ;; These are called by the server on recipt of /api calls
 
 (define (api:execute-requests db cmd params)
   (debug:print-info 1 "api:execute-requests cmd=" cmd " params=" params)
-  (db:process-cached-writes db)
   (case (string->symbol cmd)
     ;; KEYS
     ((get-key-val-pairs)            (apply db:get-key-val-pairs db params))
     ;; TESTS
     ;; json doesn't do vectors, convert to list
@@ -29,10 +28,13 @@
     ((test-set-state-status-by-id)  (apply db:test-set-state-status-by-id db params))
     ;; RUNS
     ((get-run-info)                 (let ((res (apply db:get-run-info db params)))
 				      (list (vector-ref res 0)
 					    (vector->list (vector-ref res 1)))))
+    ((register-run)                 (apply db:register-run db params))
+    ((login)                        ;(apply db:login db params)
+     (debug:print 0 "WOOHOO: Got login") #t)
     (else
      (list "ERROR" 0))))
 
 ;; http-server  send-response
 ;;                 api:process-request