From eea5f589af1444f4c794c0aa2ab847f2499a4c9d Mon Sep 17 00:00:00 2001 From: Ground0 Date: Fri, 27 Nov 2020 11:58:18 +0100 Subject: [PATCH] MapToJSONString Redo Was working on a older codebase ... --- lweb.pbi | 2 +- lweb_header.pbi | 2 +- server_example.pb | 6 +++--- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lweb.pbi b/lweb.pbi index d0b4757..bdf35a6 100644 --- a/lweb.pbi +++ b/lweb.pbi @@ -1111,7 +1111,7 @@ Module lhs_web ProcedureReturn 0 EndProcedure - Procedure.s MapStringToJSONString(Map ConvertMap.s()) + Procedure.s MapToJSONString(Map ConvertMap.s()) Protected MyJSON Protected.s Response MyJSON = CreateJSON(#PB_Any) diff --git a/lweb_header.pbi b/lweb_header.pbi index be74489..ff6ab45 100644 --- a/lweb_header.pbi +++ b/lweb_header.pbi @@ -90,7 +90,7 @@ DeclareModule lhs_web Declare start_server() Declare.s register_client_handler(Route.s, Callback.i, AppPrototype.i = #handler_proto_get, RouteType.i = #handler_sub) Declare.s mimetype(file.s) - Declare.s MapStringToJSONString(Map ConvertMap.s()) + Declare.s MapToJSONString(Map ConvertMap.s()) Declare IsIPStringValid(Adress.s) EndDeclareModule \ No newline at end of file diff --git a/server_example.pb b/server_example.pb index 8ec2a73..75d682a 100644 --- a/server_example.pb +++ b/server_example.pb @@ -56,7 +56,7 @@ Procedure.s Sample_Header(Map Header.s()) Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" - ZumSenden = lhs_web::MapStringToJSONString(Response()) + ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden EndProcedure @@ -80,7 +80,7 @@ Procedure.s Formular_Test(Map Header.s(), ContentData.s) Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" - ZumSenden = lhs_web::MapStringToJSONString(Response()) + ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden @@ -111,7 +111,7 @@ Procedure.s Php_Test(Map Header.s(), ContentData.s) Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" - ZumSenden = lhs_web::MapStringToJSONString(Response()) + ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden EndProcedure