Merge

EnvelopeGenerator.Form/Controllers/EnvelopeEditorController.vb

@@ -31,11 +31,9 @@ Public Class EnvelopeEditorController
 
 #Region "Public"
     Public Function SendEnvelope() As Boolean
-        Dim oResult As Boolean = True
-
         For Each receiverItem As EnvelopeReceiver In Envelope.Receivers
 
-            Dim oEmailData As EmailData = New EmailData With
+            Dim oEmailData As New EmailData With
             {
                 .EmailAdress = receiverItem.Email,
                 .EmailSubject = Envelope.Subject,
@@ -48,12 +46,12 @@ Public Class EnvelopeEditorController
                 .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, Envelope.Uuid, receiverItem.Signature)
             }
 
-            Dim oTemplate As EmailTemplate = New EmailTemplate(State)
+            Dim oTemplate As New EmailTemplate(State)
             oTemplate.FillEmailBody(oEmailData)
 
             If EmailModel.Insert(oEmailData) = False Then
                 Logger.Error("EMail data could not be inserted.")
-                oResult = False
+                Dim oResult As Boolean = False
             End If
 
         Next
@@ -97,12 +95,13 @@ Public Class EnvelopeEditorController
 
             Dim newHistoryEntry As New EnvelopeHistoryEntry With {
                 .EnvelopeId = oEnvelope.Id,
-                .Status = HistoryStatus.Created,
-                .ActionTitle = "Envelope erstellt",
+                .ActionType = ActionType.Created,
                 .ActionDescription = "Envelope wurde neu erstellt",
                 .UserEmailAddress = oEnvelope.User.Email
             }
 
+            HistoryModel.Insert(newHistoryEntry)
+
             Return oEnvelope
         Else
             Return Nothing
@@ -159,7 +158,7 @@ Public Class EnvelopeEditorController
     Public Function CreateDocument(pDocumentFilePath As String) As EnvelopeDocument
         Try
             Dim oFileInfo = New FileInfo(pDocumentFilePath)
-            Dim oTempFiles As TempFiles = New TempFiles(State.LogConfig)
+            Dim oTempFiles As New TempFiles(State.LogConfig)
             Dim oTempFilePath = Path.Combine(oTempFiles.TempPath, Guid.NewGuid().ToString + oFileInfo.Extension)
             File.Copy(oFileInfo.FullName, oTempFilePath, True)