@@ -44,11 +44,11 @@
     ;; 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))
-    ((set-tests-state-status)       (apply db:set-state-status db params))
+    ((set-tests-state-status)       (apply db:set-tests-state-status db params))
     ((get-tests-for-run)            (map vector->list (apply db:get-tests-for-run db params)))
     ((get-test-id)                  (apply db:get-test-id-not-cached db params))
     ((get-tests-for-runs-mindata)   (map vector->list (apply db:get-tests-for-runs-mindata db params)))
     ((get-run-name-from-id)         (apply db:get-run-name-from-id db params))
     ((delete-run)                   (apply db:delete-run db params))
@@ -58,10 +58,12 @@
 				      (list hedr (map vector->list data))))
     ((get-runs-by-patt)             (let* ((res  (apply db:get-runs-by-patt db params))
 					   (hedr (vector-ref res 0))
 					   (data (vector-ref res 1)))
 				      (list hedr (map vector->list data))))
+    ((lock/unlock-run)              (apply db:lock/unlock-run params))
+    ((update-run-event_time)        (apply db:update-run-event_time params))
 
     ;; MISC
     ((login)                        (apply db:login db params))
     ((general-call)                 (let ((stmtname   (car params))
 					  (realparams (cdr params)))
@@ -81,11 +83,12 @@
        (thread-sleep! 3)
        (if pid 
 	   (process-signal pid signal/kill)
 	   (thread-start! th1))
        '(#t "exit process started")))
-
+    ((testmeta-add-record)       (apply db:testmeta-add-record params))
+    ((testmeta-update-field)     (apply db:testmeta-update-field params))
     (else
      (list "ERROR" 0))))
 
 ;; http-server  send-response
 ;;                 api:process-request