From 3fa9e8b75eada1bd49849cd9aa3900c75aa266b1 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 23 Aug 2021 15:21:47 +0200 Subject: [PATCH] fix jumbled up indexnames in WriteIndex2File --- Global_Indexer/frmIndex.vb | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 7b1e5f6..e2a3879 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -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