@@ -35,14 +35,11 @@ ;; (declare (uses common)) (declare (uses keys)) (declare (uses commonmod)) (import commonmod) -;; (include "common_records.scm") -;; (include "db_records.scm") (include "run_records.scm") -(include "task_records.scm") (define (control-panel db tdb keys) (let* ((var-params (make-hash-table)) ;; register all the widgets here for querying on run, rollup, remove? (key-params (make-hash-table)) (monitordat '()) ;; list of monitor records