diff --git a/src/en/OInt/core/Modules/OPI_Dropbox.os b/src/en/OInt/core/Modules/OPI_Dropbox.os index 996f94c56..4e41b80f6 100644 --- a/src/en/OInt/core/Modules/OPI_Dropbox.os +++ b/src/en/OInt/core/Modules/OPI_Dropbox.os @@ -821,7 +821,7 @@ Function GetRequestHeaders(Val Token, Val Parameters = "") If ValueIsFilled(Parameters) Then JSON = OPI_Tools.JSONString(Parameters, "None"); - JSON = StrReplace(JSON, Chars.CR + Chars.PS, ""); + JSON = StrReplace(JSON, Chars.CR + Chars.LF, ""); Headers.Insert("Dropbox-API-Arg", JSON); diff --git a/src/en/OInt/core/Modules/OPI_Telegram.os b/src/en/OInt/core/Modules/OPI_Telegram.os index 2672ce462..a22afc024 100644 --- a/src/en/OInt/core/Modules/OPI_Telegram.os +++ b/src/en/OInt/core/Modules/OPI_Telegram.os @@ -205,7 +205,7 @@ Function ProcessTMAData(Val DataString, Val Token) Export For Each DataString In TValue Do If DataString.Key <> "hash" Then - DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.PS; + DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.LF; ReturnMapping.Insert(DataString.Key, DataString.Value); Else Hash = DataString.Value; diff --git a/src/en/OInt/tools/Modules/OPI_TestDataRetrieval.os b/src/en/OInt/tools/Modules/OPI_TestDataRetrieval.os index d6ac5876d..991a874a5 100644 --- a/src/en/OInt/tools/Modules/OPI_TestDataRetrieval.os +++ b/src/en/OInt/tools/Modules/OPI_TestDataRetrieval.os @@ -363,11 +363,11 @@ Procedure WriteLog(Val Result, Val Method, Val Library = "") Export Data = " " + Data; Message(Header); - Message(Chars.PS); + Message(Chars.LF); Message(Data); - Message(Chars.PS); + Message(Chars.LF); Message("---------------------------------"); - Message(Chars.PS); + Message(Chars.LF); If ValueIsFilled(Library) Then WriteLogFile(Data, Method, Library); diff --git a/src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os b/src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os index c973616dc..3a90fb6d3 100644 --- a/src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os +++ b/src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os @@ -666,7 +666,7 @@ Function ExecuteMultipartRequest(Val URL Redirection = 300; Error = 400; Boundary = StrReplace(String(New UUID), "-", ""); - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; DataType = "multipart/form-data; boundary=" + Boundary; URLStructure = SplitURL(URL); Server = URLStructure["Server"]; @@ -730,7 +730,7 @@ Function ExecuteMultipartRelatedRequest(Val URL Redirection = 300; Error = 400; Boundary = StrReplace(String(New UUID), "-", ""); - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; DataType = "multipart/related; boundary=" + Boundary; URLStructure = SplitURL(URL); Server = URLStructure["Server"]; @@ -839,7 +839,7 @@ EndProcedure Procedure WriteMultipartParameters(TextRecord, Val Boundary, Val Parameters) - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; For Each Parameter In Parameters Do @@ -878,7 +878,7 @@ EndProcedure Procedure WriteMultipartFiles(TextRecord, Val Boundary, Val ContentType, Val Files) ContentType = TrimAll(ContentType); - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; DotReplacement = "___"; For Each File In Files Do @@ -921,7 +921,7 @@ Procedure WriteRelatedFiles(TextRecord, Val Boundary, Val Files) Return; EndIf; - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; If TypeOf(Files) = Type("Map") Then For Each File In Files Do @@ -976,7 +976,7 @@ Procedure WriteJSONMultipart(TextRecord, Val Boundary, Val JSON) Return; EndIf; - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; TextRecord.WriteLine("--" + boundary + LineSeparator); TextRecord.WriteLine("Content-Type: application/json; charset=UTF-8"); diff --git a/src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl b/src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl index 93bac7043..210f5efe5 100644 --- a/src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl +++ b/src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl @@ -821,7 +821,7 @@ Function GetRequestHeaders(Val Token, Val Parameters = "") If ValueIsFilled(Parameters) Then JSON = OPI_Tools.JSONString(Parameters, "None"); - JSON = StrReplace(JSON, Chars.CR + Chars.PS, ""); + JSON = StrReplace(JSON, Chars.CR + Chars.LF, ""); Headers.Insert("Dropbox-API-Arg", JSON); diff --git a/src/en/OPI/src/CommonModules/OPI_Telegram/Module.bsl b/src/en/OPI/src/CommonModules/OPI_Telegram/Module.bsl index 6b86404ec..81aa8d0ac 100644 --- a/src/en/OPI/src/CommonModules/OPI_Telegram/Module.bsl +++ b/src/en/OPI/src/CommonModules/OPI_Telegram/Module.bsl @@ -205,7 +205,7 @@ Function ProcessTMAData(Val DataString, Val Token) Export For Each DataString In TValue Do If DataString.Key <> "hash" Then - DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.PS; + DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.LF; ReturnMapping.Insert(DataString.Key, DataString.Value); Else Hash = DataString.Value; diff --git a/src/en/OPI/src/CommonModules/OPI_TestDataRetrieval/Module.bsl b/src/en/OPI/src/CommonModules/OPI_TestDataRetrieval/Module.bsl index 363f3b8af..5ec149584 100644 --- a/src/en/OPI/src/CommonModules/OPI_TestDataRetrieval/Module.bsl +++ b/src/en/OPI/src/CommonModules/OPI_TestDataRetrieval/Module.bsl @@ -363,11 +363,11 @@ Procedure WriteLog(Val Result, Val Method, Val Library = "") Export Data = " " + Data; Message(Header); - Message(Chars.PS); + Message(Chars.LF); Message(Data); - Message(Chars.PS); + Message(Chars.LF); Message("---------------------------------"); - Message(Chars.PS); + Message(Chars.LF); If ValueIsFilled(Library) Then WriteLogFile(Data, Method, Library); diff --git a/src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl b/src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl index ab65092f3..6665df4bf 100644 --- a/src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl +++ b/src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl @@ -666,7 +666,7 @@ Function ExecuteMultipartRequest(Val URL Redirection = 300; Error = 400; Boundary = StrReplace(String(New UUID), "-", ""); - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; DataType = "multipart/form-data; boundary=" + Boundary; URLStructure = SplitURL(URL); Server = URLStructure["Server"]; @@ -730,7 +730,7 @@ Function ExecuteMultipartRelatedRequest(Val URL Redirection = 300; Error = 400; Boundary = StrReplace(String(New UUID), "-", ""); - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; DataType = "multipart/related; boundary=" + Boundary; URLStructure = SplitURL(URL); Server = URLStructure["Server"]; @@ -839,7 +839,7 @@ EndProcedure Procedure WriteMultipartParameters(TextRecord, Val Boundary, Val Parameters) - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; For Each Parameter In Parameters Do @@ -878,7 +878,7 @@ EndProcedure Procedure WriteMultipartFiles(TextRecord, Val Boundary, Val ContentType, Val Files) ContentType = TrimAll(ContentType); - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; DotReplacement = "___"; For Each File In Files Do @@ -921,7 +921,7 @@ Procedure WriteRelatedFiles(TextRecord, Val Boundary, Val Files) Return; EndIf; - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; If TypeOf(Files) = Type("Map") Then For Each File In Files Do @@ -976,7 +976,7 @@ Procedure WriteJSONMultipart(TextRecord, Val Boundary, Val JSON) Return; EndIf; - LineSeparator = Chars.CR + Chars.PS; + LineSeparator = Chars.CR + Chars.LF; TextRecord.WriteLine("--" + boundary + LineSeparator); TextRecord.WriteLine("Content-Type: application/json; charset=UTF-8");