Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r560 -r562
--- Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 560)
+++ Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 562)
@@ -78,7 +78,6 @@
  Write "}",!
  Write "</script>",!
  &html<<basefont face="Sans-Serif" size="3">>
- Do ..ShowHeader()
  &html<#(..GetReportTitle())#>
  &html<<table>>
  &html<<tr><td align=right><b>NameSpace: </b></td><td><b>#(namespace)#</b></td></tr>>
@@ -122,7 +121,9 @@
  &html<<table>>
  &html<<tr><td align=left><b>NameSpace: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#">#(namespace)#</a></b></td></tr>>
  &html<<tr><td align=left><b>LogIndex: </b></td><td><b>#(index)#<b></td></tr>>
- &html<<tr colspan="2"><td align=right><b>Test finished on #($zdatetime(@GlobalForLogging@(index),5,3))#</b></td></tr>>
+ &html<<tr colspan="2"><td align=left><b>Test started on #(..GetStartTime(index))#</b></td></tr>>
+ &html<<tr colspan="2"><td align=left><b>Test finished on #(..GetEndTime(index))#</b></td></tr>>
+ &html<<tr colspan="2"><td align=left><b>Test duration :<font size=5>#(..GetDuration(index))#</font></b></td></tr>>
  &html<</table>>
  &html<<br>>
  &html<<table border="1" cellspacing="0" cellpadding="4" bordercolor="#CCCCCC">>
@@ -159,7 +160,7 @@
  If $d(@GlobalForLogging@(index,suite))=0 &html<<br><font size=5 color="##FF0000"><b>Log Entry Doesn't Exist!</b></font>> Quit $$$OK
  &html<<table>>
  &html<<tr><td align=right><b>NameSpace: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#">#(namespace)#</a></b></td></tr>>
- &html<<tr><td align=right><b>LogIndex: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#">#(index)# ( Test finished on #($zdatetime(@GlobalForLogging@(index),5,3))# )</a></b></td></tr>>
+ &html<<tr><td align=right><b>LogIndex: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#">#(index)# ( Test finished on #(..GetEndTime(index))# )</a></b></td></tr>>
  &html<<tr><td align=right><b>TestSuite: </b></td><td><b>#(suite)#</b></td></tr>>
  &html<</table>>
  &html<<br>>
@@ -199,7 +200,7 @@
  If $d(@GlobalForLogging@(index,suite,case))=0 &html<<br><font size=5 color="##FF0000"><b>Log Entry Doesn't Exist!</b></font>> Quit $$$OK
  &html<<table>>
  &html<<tr><td align=right><b>NameSpace: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#">#(namespace)#</a></b></td></tr>>
- &html<<tr><td align=right><b>LogIndex: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#">#(index)# ( Test finished on #($zdatetime(@GlobalForLogging@(index),5,3))# )</a></b></td></tr>>
+ &html<<tr><td align=right><b>LogIndex: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#">#(index)# ( Test finished on #(..GetEndTime(index))# )</a></b></td></tr>>
  &html<<tr><td align=right><b>TestSuite: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#&SUITE=#(..EscapeURL(suite))#">#(suite)#</a></b></td></tr>>
  &html<<tr><td align=right><b>TestCase: </b></td><td><b>#(case)#</b></td></tr>>
  &html<</table>>
@@ -241,7 +242,7 @@
  If $d(@GlobalForLogging@(index,suite,case,method))=0 &html<<br><font size=5 color="##FF0000"><b>Log Entry Doesn't Exist!</b></font>> Quit $$$OK
  &html<<table>>
  &html<<tr><td align=right><b>NameSpace: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#">#(namespace)#</a></b></td></tr>>
- &html<<tr><td align=right><b>LogIndex: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#">#(index)# ( Test finished on #($zdatetime(@GlobalForLogging@(index),5,3))# )</a></b></td></tr>>
+ &html<<tr><td align=right><b>LogIndex: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#">#(index)# ( Test finished on #(..GetEndTime(index))# )</a></b></td></tr>>
  &html<<tr><td align=right><b>TestSuite: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#&SUITE=#(..EscapeURL(suite))#">#(suite)#</a></b></td></tr>>
  &html<<tr><td align=right><b>TestCase: </b></td><td><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#&SUITE=#(..EscapeURL(suite))#&CASE=#(..EscapeURL(case))#">#(case)#</a></b></td></tr>>
  &html<<tr><td align=right><b>Method: </b></td><td><b>#(method)#()</b></td></tr>>
@@ -311,10 +312,44 @@
 
 <Method name="GetReportTitle">
 <ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit "<table width=""100%"" bgcolor=""#BBBBBB""><tr><td><font size=5 color=""#FFFFFF""><b>"_..#PackagePrefix_" Report on "_ $zu(110)_" </b></font></td></tr></table>"
 ]]></Implementation>
 </Method>
 
+<Method name="GetStartTime">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>index:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GlobalForLogging As %String = ..#GlobalForLogging
+	quit $zdatetime($listget(@GlobalForLogging@(index),1),5,3)
+]]></Implementation>
+</Method>
+
+<Method name="GetEndTime">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>index:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+    #dim GlobalForLogging As %String = ..#GlobalForLogging
+	quit $zdatetime($listget(@GlobalForLogging@(index),2),5,3)
+]]></Implementation>
+</Method>
+
+<Method name="GetDuration">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>index:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	set StartTime = $piece($listget(@GlobalForLogging@(index),1),",",2)
+	set EndTime = $piece($listget(@GlobalForLogging@(index),2),",",2)
+	set Duration = EndTime - StartTime 
+	quit $justify(Duration,10,3)_" sec"
+]]></Implementation>
+</Method>
+
 <Method name="OnPreHTTP">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Boolean</ReturnType>