Index: zTryout/JCL/TestSVN.cls.xml
===================================================================
diff -u -r2590 -r2803
--- zTryout/JCL/TestSVN.cls.xml	(.../TestSVN.cls.xml)	(revision 2590)
+++ zTryout/JCL/TestSVN.cls.xml	(.../TestSVN.cls.xml)	(revision 2803)
@@ -1,9 +1,29 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.JCL.TestSVN">
-<Description>
-</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExportProject">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProjectName:%String</FormalSpec>
+<Implementation><![CDATA[
+
+	set svnHelper = ##class(svn.Helper).%New()
+
+	set Project = ##class(%Studio.Project).%OpenId(ProjectName)
+	
+	set itItems = ##class(TECH.ListIterator).%New(Project.Items)
+	while itItems.HasNext() {
+		set Item = itItems.Next()
+		set Type = $zconvert(Item.Type,"L")
+		if Type = "cls" set SourceCode = Item.Name_"."_Type
+		else  set SourceCode = Item.Name
+		do svnHelper.SVNExport(SourceCode)
+		
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>