101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
'rdb:test-set-comment
(lambda (run-id test-name item-path comment)
(set! *last-db-access* (current-seconds))
(db:test-set-comment db run-id test-name item-path comment)))
(rpc:publish-procedure!
'rdb:test-set-log!
(lambda (run-id test-name item-path logf)
(set! *last-db-access* (current-seconds))
(db:test-set-log! db test-id logf)))
(rpc:publish-procedure!
'rdb:get-test-data-by-id
(lambda (test-id)
(set! *last-db-access* (current-seconds))
|
|
|
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
'rdb:test-set-comment
(lambda (run-id test-name item-path comment)
(set! *last-db-access* (current-seconds))
(db:test-set-comment db run-id test-name item-path comment)))
(rpc:publish-procedure!
'rdb:test-set-log!
(lambda (test-id logf)
(set! *last-db-access* (current-seconds))
(db:test-set-log! db test-id logf)))
(rpc:publish-procedure!
'rdb:get-test-data-by-id
(lambda (test-id)
(set! *last-db-access* (current-seconds))
|