svn,%occErrors,vhLib.Macro 1 %RegisteredObject svn2Filebridge this comes from TEMP variabele %String svn.CompileList %Boolean 0 svn.SyncStatus array %String array %Boolean %String %String %ListOfDataTypes TECH.CSP.CSPApplicatie 1 %Boolean 1 1 %Boolean %Boolean IgnorePattern ; delimeted string 1 Path:%String,WorkSpacePath:%String,IgnorePattern:%String="" InternalName:%String,IgnorePattern:%String 1 %String 1 %String 1 %String 1 %String 1 UitvoerenUnitTesten:%Boolean "_..GeefNamespace()_"]",Exception.ToString(),0) ]]> 1 Actie:%String 0 { Set FeedbackStream = ..GeefFailedCharacterStream(Actie) Set From = $$$SystemMail(..GeefServerNaam()_" - Subversion") Set MailTo = $listbuild($$$SVNGlobal("SourceControl","SVN","MailWhenFailed")) Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion failed on ["_..GeefServerNaam()_" => "_..GeefNamespace()_"]",FeedbackStream,1) } ]]> iPath:%String %String rset:%ResultSet 1 %Boolean flagRecompile:%Boolean=0 0) { if flagRecompile { set idxSource="" set ListToCompile = ##class(TECH.ListUtils).CopyListOfDataTypes(..ToCompile.List) set itListToCompile = ##class(TECH.ListIterator).%New(ListToCompile) while itListToCompile.HasNext() { set SourceCode = itListToCompile.Next() if ##class(TECH.SourceCodeUtils).Exists(SourceCode) { kill mdSources set mdSources(SourceCode)="" do ..CompileList(.mdSources,Flags,.mdErrors) if 'mdErrors do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List) } else { do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List) } } } if 'flagRecompile { do ..CompileList(.mdSources,Flags,.mdErrors) if 'mdErrors do ..ToCompile.List.Clear() } do ..ToCompile.%Save() } set ..ExecCompile = 0 ]]> 1 0 1 Path:%String="" %String %ListOfDataTypes %ListOfDataTypes %ListOfDataTypes 1 InternalName %String check if a SourceFile needs to be synchronized if so add it to the module persistent data InternalName helper function to create intermediate directory when needed pFilename:%String 1 Actie:%String="" Actie:%String="" %CharacterStream %New method to provide notification that a new instance of an object is being created.

If this method returns an error then the object will not be created.

It is passed the arguments provided in the %New call. When customizing this method, override the arguments with whatever variables and types you expect to receive from %New(). For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:

Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]> Username:%String="",Password:%String="" 1 1 %Status InternalName:%String InternalName:%String arrInternalNames:%ArrayOfDataTypes,Package:%String 0) do ..Failed.Clear() } } if '..IsGetLatestGefaald { do ..DisplayMessage("Starting deploy classes") do ##class(svn.Deploy).Run() do ..DisplayMessage("Deploy classes finished") } ]]> Message:%String 1 %Boolean 1 %Boolean InternalName:%String svn.Repository RepoID:%String svn.Repository