Index: vhConsistency/ConsistencyCheck.cls.xml =================================================================== diff -u -r30955 -r52749 --- vhConsistency/ConsistencyCheck.cls.xml (.../ConsistencyCheck.cls.xml) (revision 30955) +++ vhConsistency/ConsistencyCheck.cls.xml (.../ConsistencyCheck.cls.xml) (revision 52749) @@ -85,17 +85,17 @@ Do Meldingen.Rewind() #dim From As %String = $$$SystemMail($$$Server_" - Consistency check") - #dim MailNaar As %String = "" + #dim lbMailNaar As %String = "" #dim Mail As %String = $$GetMailAddressFromTerminal^vhLib() - Set:(Mail'="") MailNaar = $LB(Mail) - If (MailNaar = ""){ + Set:(Mail'="") lbMailNaar = $LB(Mail) + If (lbMailNaar = ""){ #dim Mails As %String = $zobjclassmethod(CheckClassName,"%GetParameter","StuurMailNaar") Set:(Mails="") Mails = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar") For i = 0 : 1 : $Length(Mails,";") { - Set MailNaar = MailNaar_$ListBuild($Piece(Mails,";",i)) + Set lbMailNaar = lbMailNaar_$ListBuild($Piece(Mails,";",i)) } } - Do SendMiniMail^vhLib.Mail(From,MailNaar,"Consistencycheck "_$Piece(CheckClassName,".",$Length(CheckClassName,"."))_" failed on ["_$$$Server_"]",Meldingen,1) + Do SendMiniMail^vhLib.Mail(From,lbMailNaar,"Consistencycheck "_$Piece(CheckClassName,".",$Length(CheckClassName,"."))_" failed on ["_$$$Server_"]",Meldingen,1) ]]>