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