Index: vhLib/LogViewer.cls.xml
===================================================================
diff -u -r59 -r60
--- vhLib/LogViewer.cls.xml	(.../LogViewer.cls.xml)	(revision 59)
+++ vhLib/LogViewer.cls.xml	(.../LogViewer.cls.xml)	(revision 60)
@@ -3,6 +3,11 @@
 <Class name="vhLib.LogViewer">
 <Super>%RegisteredObject</Super>
 
+<Property name="FilterGroepenIterator">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefGroepen">
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
@@ -15,6 +20,76 @@
 	quit ListGroepen
 ]]></Implementation>
 </Method>
+
+<Method name="GeefWhereClauseVoorGroepen">
+<FormalSpec>FilterGroepenIterator:TECH.Iterator</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefWhereClauseVoorSqlField(FilterGroepenIterator,"Groep")
+]]></Implementation>
+</Method>
+
+<Method name="GeefWhereClauseVoorNiveaus">
+<FormalSpec>FilterNiveauIterator:TECH.Iterator</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefWhereClauseVoorSqlField(FilterNiveauIterator,"Niveau")
+]]></Implementation>
+</Method>
+
+<Method name="GeefWhereClauseVoorSqlField">
+<FormalSpec>FilterItemsIterator:TECH.Iterator,SqlField:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim WhereClause As %String = ""
+	
+	While FilterItemsIterator.HasNext() {
+		Set WhereClause=WhereClause_$S(WhereClause="":"",1:" OR ")_"("_SqlField_"='"_FilterItemsIterator.Next()_"')"
+	}
+	Quit WhereClause
+]]></Implementation>
+</Method>
+
+<Method name="IsItemInList">
+<FormalSpec>ItemValue:%String,ItemsIterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsInList As %Boolean = 0
+	While (ItemsIterator.HasNext()) && (IsInList=0) {
+		If (ItemsIterator.Next()=ItemValue) {
+			Set IsInList=1
+		}
+	}
+	Quit IsInList
+]]></Implementation>
+</Method>
+
+<Method name="GeefHTMLSeparator">
+<FormalSpec>GroepIndex:%String,IsLaatsteItem:%Boolean,GroepenIt:TECH.Iterator</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim HTMLSeparator As %String = ""
+	; || 
+	If GroepenIt.HasNext() {
+		Set HTMLSeparator=" | "
+		If (GroepIndex#10)=0 {
+			Set HTMLSeparator=HTMLSeparator_"<BR/>"
+		}
+	}
+	Quit HTMLSeparator
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>FilterGroepenIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	;Set ..FilterGroepenIterator=FilterGroepenIterator
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>