Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -370,13 +370,25 @@
 
 (define (seconds->time-string sec)
   (time->string 
    (seconds->local-time sec) "%H:%M:%S"))
 
+(define (seconds->work-week/day-time sec)
+  (time->string
+   (seconds->local-time sec) "ww%V.%u %H:%M"))
+
 (define (seconds->work-week/day sec)
   (time->string
-   (seconds->local-time sec) "%V.%u"))
+   (seconds->local-time sec) "ww%V.%u"))
+
+(define (seconds->year-work-week/day sec)
+  (time->string
+   (seconds->local-time sec) "%yww%V.%w"))
+
+(define (seconds->year-work-week/day-time sec)
+  (time->string
+   (seconds->local-time sec) "%yww%V.%w %H:%M"))
 
 ;;======================================================================
 ;; Colors
 ;;======================================================================
       

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -43,11 +43,12 @@
 			(list "Testname: "
 			      "Item path: "
 			      "Current state: "
 			      "Current status: "
 			      "Test comment: "
-			      "Test id: "))
+			      "Test id: "
+			      "Test date: "))
 		   (list (iup:label "" #:expand "VERTICAL"))))
     (apply iup:vbox  ; #:expand "YES"
 	   (list 
 	    (store-label "testname"
 			 (iup:label (db:test-get-testname  testdat) #:expand "HORIZONTAL")
@@ -78,10 +79,15 @@
 	    (store-label "testid"
 			 (iup:label "TestId                             "
 				    #:expand "HORIZONTAL")
 			 (lambda (testdat)
 			   (db:test-get-id testdat)))
+	    (store-label "testdate" 
+			 (iup:label "TestDate                           "
+				    #:expand "HORIZONTAL")
+			 (lambda (testdat)
+			   (seconds->work-week/day-time (db:test-get-event_time testdat))))
 	    )))))
 
 ;;======================================================================
 ;; Test meta panel
 ;;======================================================================
@@ -127,26 +133,34 @@
 
 ;;======================================================================
 ;; Run info panel
 ;;======================================================================
 (define (run-info-panel keydat testdat runname)
-  (iup:frame 
-   #:title "Megatest Run Info" ; #:expand "YES"
-   (iup:hbox ; #:expand "YES"
-    (apply iup:vbox ; #:expand "YES"
-	   (append (map (lambda (keyval)
-			  (iup:label (conc (car keyval) " ") ; #:expand "HORIZONTAL"
-				     ))
-			keydat)
-		   (list (iup:label "runname ")(iup:label "run-id"))))
-    (apply iup:vbox
-	   (append (map (lambda (keyval)
-			  (iup:label (cadr keyval) #:expand "HORIZONTAL"))
-			keydat)
-		   (list (iup:label runname)
-			 (iup:label (conc (db:test-get-run_id testdat)))
-			 (iup:label "" #:expand "VERTICAL")))))))
+  (let* ((run-id     (db:test-get-run_id testdat))
+	 (rundat     (cdb:remote-run db:get-run-info #f run-id))
+	 (header     (db:get-header rundat))
+	 (event_time (db:get-value-by-header (db:get-row rundat)
+					     (db:get-header rundat)
+					     "event_time")))
+    (iup:frame 
+     #:title "Megatest Run Info" ; #:expand "YES"
+     (iup:hbox ; #:expand "YES"
+      (apply iup:vbox ; #:expand "YES"
+	     (append (map (lambda (keyval)
+			    (iup:label (conc (car keyval) " ")))
+			  keydat)
+		     (list (iup:label "runname ")
+			   (iup:label "run-id")
+			   (iup:label "run-date"))))
+      (apply iup:vbox
+	     (append (map (lambda (keyval)
+			    (iup:label (cadr keyval) #:expand "HORIZONTAL"))
+			  keydat)
+		     (list (iup:label runname)
+			   (iup:label (conc run-id))
+			   (iup:label (seconds->year-work-week/day-time event_time))
+			   (iup:label "" #:expand "VERTICAL"))))))))
   
 ;;======================================================================
 ;; Host info panel
 ;;======================================================================
 (define (host-info-panel testdat store-label)

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -629,11 +629,12 @@
 	 (ezsteps         (> (length (hash-table-ref/default test-conf "ezsteps" '())) 0)) ;; don't send all the steps, could be big
 	 (diskspace       (config-lookup test-conf   "requirements" "diskspace"))
 	 (memory          (config-lookup test-conf   "requirements" "memory"))
 	 (hosts           (config-lookup *configdat* "jobtools"     "workhosts"))
 	 (remote-megatest (config-lookup *configdat* "setup" "executable"))
-	 (run-time-limit  (configf:lookup  test-conf   "requirements" "runtimelim"))
+	 (run-time-limit  (or (configf:lookup  test-conf   "requirements" "runtimelim")
+			      (configf:lookup  *configdat* "setup" "runtimelim")))
 	 ;; FIXME SOMEDAY: not good how this is so obtuse, this hack is to 
 	 ;;                allow running from dashboard. Extract the path
 	 ;;                from the called megatest and convert dashboard
 	 ;;             	  or dboard to megatest
 	 (local-megatest  (let* ((lm  (car (argv)))

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -29,10 +29,13 @@
 # If set to "default" the old code is used. Otherwise defaults to 200 or uses
 # numeric value given.
 #
 runqueue 20
 
+# Default runtimelim 1d 1h 1m 10s
+#
+runtimelim 10m
 
 # It is possible (but not recommended) to override the rsync command used
 # to populate the test directories. For test development the following 
 # example can be useful
 #