directories per template, export tweaks

MultiTool.Shared/Documents/DocumentCleaner.vb

@@ -6,18 +6,18 @@ Namespace Documents
     Public Class DocumentCleaner
         Inherits BaseClass
 
-        Private ReadOnly GeneralConfig As GeneralConfig
+        Private ReadOnly Template As Template
         Private ReadOnly FileEx As DigitalData.Modules.Filesystem.File
 
-        Public Sub New(pLogConfig As LogConfig, pGeneralConfig As GeneralConfig)
+        Public Sub New(pLogConfig As LogConfig, pTemplate As Template)
             MyBase.New(pLogConfig)
-            GeneralConfig = pGeneralConfig
+            Template = pTemplate
             FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
         End Sub
 
         Public Function CleanImportedDocuments(pDocuments As List(Of Document)) As Boolean
             Dim oResult = True
-            Dim oOutputDirectory = FileEx.GetDateDirectory(GeneralConfig.OutputXmlFileDirectory)
+            Dim oOutputDirectory = FileEx.GetDateDirectory(Template.OutputXmlFileDirectory)
             Dim oImportedDocuments = pDocuments.
                 Where(Function(doc) doc.Imported = True).
                 ToList()