AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix jumbled up indexnames in WriteIndex2File

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-23 15:21:47 +02:00
parent cff6c289bb
commit 3fa9e8b75e
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Global_Indexer/frmIndex.vb
View File

@ -856,20 +856,14 @@ Public Class frmIndex
End Try
Return True
End Function
Private Function WriteIndex2File(indexname As String, indexvalue As String)
Private Function WriteIndex2File(pIndexName As String, pIndexValue As String)
Try
_Logger.Info("Indexvalue: " & indexvalue.ToString)
Return WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, indexvalue, CURR_DOKART_OBJECTTYPE)
_Logger.Info($"Indexing with Name {pIndexName} and Value: {pIndexValue.ToString}")
Return WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, pIndexName, pIndexValue, CURR_DOKART_OBJECTTYPE)
Catch ex As Exception
ShowErrorMessage(ex, "WriteIndex2File")
Return False
End Try
End Function
Private Function SetAttachmentIndicies() As Boolean
End Function
Private Function SetEmailIndicies(pIndexAttachment As Boolean) As Boolean
@ -923,8 +917,8 @@ Public Class frmIndex
Else
oIndexNames = New Dictionary(Of String, Object) From {
{"IDX_EMAIL_ID", CURRENT_MESSAGEID},
{"IDX_EMAIL_SUBJECT", CURRENT_MESSAGEDATE},
{"IDX_EMAIL_DATE_IN", CURRENT_MESSAGESUBJECT},
{"IDX_EMAIL_SUBJECT", CURRENT_MESSAGESUBJECT},
{"IDX_EMAIL_DATE_IN", CURRENT_MESSAGEDATE},
{"IDX_CHECK_ATTACHMENT", True}
}
End If
@ -944,6 +938,7 @@ Public Class frmIndex
End If
Dim oIndexingSuccessful = WriteIndex2File(oRow.Item(oIndex.Key), oIndex.Value)
If oIndexingSuccessful = False Then