Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r1049 -r1132
--- Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 1049)
+++ Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 1132)
@@ -32,6 +32,7 @@
  Set namespace=%request.Get("NS")
  Set index=%request.Get("INDEX")
  Set suite=%request.Get("SUITE")
+ Set mode=%request.Get("MODE")
  set case=%request.Get("CASE")
  set method=%request.Get("METHOD")
  set showlast=%request.Get("SHOWLAST")
@@ -44,7 +45,7 @@
  	
  }
  ElseIf suite=""  { Quit ..ShowSuites(namespace,index)                    }
- ElseIf case=""   { Quit ..ShowCases(namespace,index,suite)               }
+ ElseIf case=""   { Quit ..ShowCases(namespace,index,suite,mode)               }
  ElseIf method="" { Quit ..ShowMethods(namespace,index,suite,case)        }
  Else             { Quit ..ShowAsserts(namespace,index,suite,case,method) }
  &html<</BODY></HTML>>
@@ -154,7 +155,7 @@
 <Method name="ShowCases">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>namespace:%String,index:%String,suite:%String</FormalSpec>
+<FormalSpec>namespace:%String,index:%String,suite:%String,mode:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  #dim GlobalForLogging As %String = ..#GlobalForLogging
@@ -165,6 +166,8 @@
  &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 #(..GetEndTime(index))# )</a></b></td></tr>>
  &html<<tr><td align=right><b>TestSuite: </b></td><td><b>#(suite)#</b></td></tr>>
+ &html<<tr><td colspan="2"><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#&SUITE=#(suite)#&MODE=ToonAlles">Toon Failed en Passed</a></b></td></tr>>
+ &html<<tr><td colspan="2"><b><a href="vhUnitTest.Report.cls?NS=#(..EscapeURL(namespace))#&INDEX=#(index)#&SUITE=#(suite)#&MODE=">Toon enkel Failed</a></b></td></tr>>
  &html<</table>>
  &html<<br>>
  &html<<table border="1" cellspacing="0" cellpadding="4" bordercolor="#CCCCCC">>
@@ -175,17 +178,18 @@
  &html<</tr>>
  Set case="" For  Set case=$o(@GlobalForLogging@(index,suite,case)) Quit:case=""  Do
  . Set result=@GlobalForLogging@(index,suite,case)
- . Set href=..#PackagePrefix_".Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite)_"&CASE="_..EscapeURL(case)
- . &html<<tr>>
  . If $data(@GlobalForLogging@(index,suite,case))>1
- . If    &html<<td valign=top><a href="#(href)#">#(case)#</a></td>>
- . Else  &html<<td valign=top>#(case)#</td>>
- . If ..IsSuccess(namespace,index,suite,case) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" }
- . If +result
- . If    &html<<td align=left><font color="#(color)#"><b>#(status)#</b></font></td>>
- . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,":",2,99))#</b></font></td>>
- . &html<<td align=left><b><div DIV STYLE="width: #($G(^|namespace|LOG.UnitTestTime(index,case))*50)#; background-color: lightgray">#($G(^|namespace|LOG.UnitTestTime(index,case)))#</div></b></td>>
- . &html<</tr>>
+ . If (mode = "ToonAlles") || '..IsSuccess(namespace,index,suite,case)  Do
+ . . Set href=..#PackagePrefix_".Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite)_"&CASE="_..EscapeURL(case)_"&MODE="_..EscapeURL(mode)
+ . . &html<<tr>> 
+ . . If    &html<<td valign=top><a href="#(href)#">#(case)#</a></td>>
+ . . Else  &html<<td valign=top>#(case)#</td>>
+ . . If ..IsSuccess(namespace,index,suite,case) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" }
+ . . If +result
+ . . If    &html<<td align=left><font color="#(color)#"><b>#(status)#</b></font></td>>
+ . . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,":",2,99))#</b></font></td>>
+ . . &html<<td align=left><b><div DIV STYLE="width: #($G(^|namespace|LOG.UnitTestTime(index,case))*50)#; background-color: lightgray">#($G(^|namespace|LOG.UnitTestTime(index,case)))#</div></b></td>>
+ . . &html<</tr>>
  &html<</table>>
  Quit $$$OK
 ]]></Implementation>