Fix error message for rest request with 401 code

So no more Error 401 displayed
4d · Sep 5, 2024 · 4c4e0ca · 4c4e0ca
1 parent fcd94b5
commit 4c4e0ca
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 1 deletion.
diff --git a/Project/Sources/Methods/Localize_server_response.4dm b/Project/Sources/Methods/Localize_server_response.4dm
@@ -22,6 +22,11 @@ Else
 
 			$message:=Get localized string:C991("theWebServerIsNotReachable")
 
+			//……………………………………………………………………………
+		: ($in=401)
+
+			$message:=Get localized string:C991("unauthorizedAccess")
+
 			//……………………………………………………………………………
 		: ($in=403)
 

diff --git a/Project/Sources/Methods/Rest.4dm b/Project/Sources/Methods/Rest.4dm
@@ -314,6 +314,13 @@ WARNING: "localhost" may not find the server if the computer is connected to a n
 				End if 
 			End if 
 
+			If (($out.httpError=Null:C1517) && ($out.errors#Null:C1517) && ($out.errors.length>0))
+				$out.httpError:=String:C10($out.errors.first().message)
+				If (Length:C16($out.httpError)=0)
+					OB REMOVE:C1226($out; "httpError")
+				End if 
+			End if 
+
 			$out.headers:=New object:C1471
 
 			For ($i; 1; Size of array:C274($headerNames); 1)

diff --git a/Project/Sources/Methods/project_BUILD.4dm b/Project/Sources/Methods/project_BUILD.4dm
@@ -348,11 +348,14 @@ If (Asserted:C1132($project#Null:C1517))
 						var $forError : Variant
 						$forError:=($rest.httpError=Null:C1517) ? $rest.code : $rest.httpError
 
+						var $httpError : Text
+						$httpError:=Localize_server_response($forError)
+
 						UI.postMessage(New object:C1471(\
 							"action"; "show"; \
 							"type"; "alert"; \
 							"title"; "theProductionServerIsNotAvailable"; \
-							"additional"; Localize_server_response($forError)\
+							"additional"; $httpError\
 							))
 
 					End if