@@ -86,11 +86,11 @@
 ;;
 ;; NOTE: loose ends!!
 ;;    db:open-db              -> not properly using tmpdb path
 ;;    common:get-db-tmp-area  -> using *toppath* and common:get-testsuite-area
 ;;    
-(define (db:dashboard-open-db areas area-name area-path)
+(define (db:dashboard-open-dbstruct areas area-name area-path)
   ;; 0. check for already existing dbstruct in areas hash, return it if found
   ;; 1. do minimal read of megatest.config, store configdat, keys in dbstruct
   ;; 2. get homehost
   ;; 3. create /tmp db area  (if needed)
   ;; 4. sync data to /tmp db (or update if exists)
@@ -3167,10 +3167,25 @@
 	  (set! res (cons (vector id test-id stepname state status event-time (if (string? logfile) logfile "") comment) res)))
 	db
 	"SELECT id,test_id,stepname,state,status,event_time,logfile,comment FROM test_steps WHERE status != 'DELETED' AND test_id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
 	test-id)
        (reverse res)))))
+
+ (define (db:get-steps-info-by-id dbstruct  test-step-id)
+   (db:with-db
+    dbstruct
+    #f 
+    #f
+    (lambda (db)
+      (let* ((res (vector #f #f #f #f #f #f #f #f)))
+        (sqlite3:for-each-row 
+       (lambda (id test-id stepname state status event-time logfile comment)
+         (set! res (vector id test-id stepname state status event-time (if (string? logfile) logfile "") comment)))
+       db
+       "SELECT id,test_id,stepname,state,status,event_time,logfile,comment FROM test_steps WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
+       test-step-id)
+        res))))
 
 (define (db:get-steps-data dbstruct run-id test-id)
   (db:with-db
    dbstruct
    run-id
@@ -3186,10 +3201,26 @@
        (reverse res)))))
 
 ;;======================================================================
 ;; T E S T  D A T A 
 ;;======================================================================
+
+ (define (db:get-data-info-by-id dbstruct  test-data-id)
+   (db:with-db
+    dbstruct
+    #f 
+    #f
+    (lambda (db)
+      (let* ((res (vector #f #f #f #f #f #f #f #f #f #f #f)))
+        (sqlite3:for-each-row 
+       (lambda (id test-id  category variable value expected tol units comment status type )
+         (set! res (vector id test-id  category variable value expected tol units comment status type)))
+       db
+       "SELECT id,test_id, category, variable, value, expected, tol, units, comment, status, type FROM test_data WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
+       test-data-id)
+        res))))
+
 
 ;; WARNING: Do NOT call this for the parent test on an iterated test
 ;; Roll up test_data pass/fail results
 ;; look at the test_data status field, 
 ;;    if all are pass (any case) and the test status is PASS or NULL or '' then set test status to PASS.