Clean imported documents, first pass of Import form

MultiTool.Shared/Documents/DocumentCleaner.vb

@@ -18,8 +18,11 @@ Namespace Documents
         Public Function CleanImportedDocuments(pDocuments As List(Of Document)) As Boolean
             Dim oResult = True
             Dim oOutputDirectory = FileEx.GetDateDirectory(GeneralConfig.OutputXmlFileDirectory)
+            Dim oImportedDocuments = pDocuments.
+                Where(Function(doc) doc.Imported = True).
+                ToList()
 
-            For Each oDocument As Document In pDocuments
+            For Each oDocument As Document In oImportedDocuments
                 Try
                     Dim oFileinfo = New FileInfo(oDocument.FullName)
                     Dim oDestination = Path.Combine(oOutputDirectory, oFileinfo.Name)