Index: svn/Helper.cls.xml
===================================================================
diff -u -r1577 -r1578
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1577)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1578)
@@ -486,6 +486,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MailChanges">
+<Implementation><![CDATA[
+	set MailBody = ##class(%GlobalCharacterStream).%New()
+		
+	set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
+	do rsRepos.Execute()
+	while rsRepos.Next() {
+		#dim Repo As svn.Repository = ..OpenRepository(rsRepos.Get("ID"))
+		#dim svnResults As svn.CommandResult = Repo.Changes()
+		if svnResults.Count() {
+			do MailBody.WriteLine(Repo.Path_" "_Repo.Branch)
+			set itsvnResults = ##class(TECH.ListIterator).%New(svnResults)
+			while itsvnResults.HasNext() {
+				#dim svnInfo As svn.CommandResult = itsvnResults.Next()
+				do MailBody.WriteLine(svnInfo.ExternalName_" : "_svnInfo.Action)
+			}
+		}	
+	}
+	if MailBody.Size {
+		set Mail = ##class(TECH.Mail).%New()
+		do Mail.ZetVerzender($$$SystemMail("SVN"))
+		do Mail.ZetOnderwerp("openstaande svn wijzigingen")
+		do Mail.VoegToeOntvanger("jcl@vanhoecke.be")
+		do Mail.ZetInhoudStream(MailBody)
+		do Mail.Verstuur()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="RemovePackageFromArray">
 <FormalSpec>arrInternalNames:%ArrayOfDataTypes,Package:%String</FormalSpec>
 <Implementation><![CDATA[
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1577 -r1578
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1577)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1578)
@@ -460,17 +460,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SynchronizeChanges">
+<Method name="Changes">
+<ReturnType>svn.CommandResult</ReturnType>
 <Implementation><![CDATA[
 	set svnCommand = ##class(svn.Command).%New($listbuild(..WorkspacePath(..Branch)))
 	set svnCommand.SubCommand="status"
 	set svnCommand.File = ..WorkspacePath(..Branch)
-	
 	do svnCommand.Execute()
+	quit svnCommand.Results
+]]></Implementation>
+</Method>
 
+<Method name="SynchronizeChanges">
+<Implementation><![CDATA[
 	set listExternalNames = ##class(%ListOfDataTypes).%New()
 	
-	set itResults = ##class(TECH.ListIterator).%New(svnCommand.Results)
+	set itResults = ##class(TECH.ListIterator).%New(..Changes())
 	while itResults.HasNext() {
 		#dim svnInfo As svn.CommandResult = itResults.Next()
 		#dim ExternalName As %String = svnInfo.ExternalName
@@ -508,7 +513,7 @@
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^SYS("SourceControl","SVN","Repositories")</DataLocation>
 <DefaultData>RepositoryDefaultData</DefaultData>
-<IdLocation>^SYS("Repositories")</IdLocation>
+<IdLocation>^SYS("SourceControl","SVN","Repositories")</IdLocation>
 <IndexLocation>^SYS("SourceControl","SVN","Indices")</IndexLocation>
 <StreamLocation>^SYS("SourceControl","SVN","Repositories")(</StreamLocation>
 <Data name="RepositoryDefaultData">
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1577 -r1578
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1577)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1578)
@@ -354,7 +354,7 @@
 	set Action=0
 	set ..Cmd=0
 	write "Synchronisatie van de wijzigingen wordt uitgevoerd ",!
-	do ##class(svn.Helper).%New(..Name,..Password).SynchronizeChanges()
+	do ##class(svn.Helper).%New(..Name,..Password).SVNSynchronizeChanges()
 	write "Synchronisatie afgelopen",!
 ]]></Implementation>
 </Method>