Updated missing_tokens key

This commit is contained in:
Daniel S. Billing 2021-04-19 22:23:26 +02:00
parent 85e1402d0a
commit 402760c08e

View File

@ -117,7 +117,7 @@ Public Class Localization
Dim LocaleFilePath As String = FullPath & "missing_tokens.json"
Dim TokensFile As JObject = JObject.Parse(System.IO.File.ReadAllText(LocaleFilePath))
If TokensFile.ContainsKey(s) = False Then
TokensFile.Add(NewTokenName, s)
TokensFile.Add(s, s)
End If
File.WriteAllText(LocaleFilePath, JsonConvert.SerializeObject(TokensFile, Newtonsoft.Json.Formatting.Indented))