Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r909 -r1019
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 909)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 13:28:34">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 13:15:51">
 <Class name="vhLib.Logger">
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62138,48570.379282</TimeChanged>
+<TimeChanged>62200,47767.38487</TimeChanged>
 <TimeCreated>62137,61022.12517</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -153,13 +153,21 @@
 </Method>
 
 <Method name="ClearOldLogItems">
+<Description>
+Do ##class(vhLib.Logger).ClearOldLogItems(30,30,10,10)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Days:%Integer=30</FormalSpec>
+<FormalSpec>DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set OldDateTime = $h-Days	
+	Set OldDateTimeError = $h-DaysError	
+	Set OldDateTimeWarning = $h-DaysWarning
+	Set OldDateTimeInformation = $h-DaysInformation
+	Set OldDateTimeDebug = $h-DaysDebug
 	Set Server = $$$Server
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTime AND Server=:Server)	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeError AND Server=:Server AND Niveau = 'E')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeWarning AND Server=:Server AND Niveau = 'W')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeInformation AND Server=:Server AND Niveau = 'I')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeDebug AND Server=:Server AND Niveau = 'D')	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -186,5 +194,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2185134709"/>
+<Checksum value="1238874269"/>
 </Export>