4D NetKit (small optimization of headers copy)

Author: yannicktrinh

Project/Sources/Classes/Office365Mail.4dm

@@ -16,22 +16,17 @@ Class constructor($inProvider : cs.OAuth2Provider; $inParameters : Object)
 	// ----------------------------------------------------
 
 
-Function _postJSONMessage($inURL : Text; $inMail : Object; $bSkipMessageEncapsulation : Boolean; $inHeader : Object) : Object
+Function _postJSONMessage($inURL : Text; $inMail : Object; $bSkipMessageEncapsulation : Boolean; $inHeaders : Object) : Object
 
 	var $response : Object
 
 	If ($inMail#Null)
 
 		var $headers : Object:={}
-		$headers["Content-Type"]:="application/json"
-		If (($inHeader#Null) && (Value type($inHeader)=Is object))
-			
-			var $key : Text
-			var $keys : Collection:=OB Keys($inHeader)
-			For each ($key; $keys)
-				$headers[$key]:=$inHeader[$key]
-			End for each 
+		If (($inHeaders#Null) && (Value type($inHeaders)=Is object))
+			$headers:=OB Copy($inHeaders)
 		End if 
+		$headers["Content-Type"]:="application/json"
 
 		var $message : Object
 		var $messageCopy : Object:=This._copyGraphMessage($inMail)

Project/Sources/Classes/_BaseAPI.4dm

@@ -69,16 +69,12 @@ Function _sendRequestAndWaitResponse($inMethod : Text; $inURL : Text; $inHeaders
 	var $options : Object:={headers: {}}
 	var $token : Text:=This._getAccessToken()
 
+	If (($inHeaders#Null) && (Value type($inHeaders)=Is object))
+		$options.headers:=OB Copy($inHeaders)
+	End if 
 	If (Length(String($token))>0)
 		$options.headers["Authorization"]:=This._getAccessTokenType()+" "+$token
 	End if 
-	If (($inHeaders#Null) && (Value type($inHeaders)=Is object))
-		var $keys : Collection:=OB Keys($inHeaders)
-		var $key : Text
-		For each ($key; $keys)
-			$options.headers[$key]:=$inHeaders[$key]
-		End for each 
-	End if 
 	If (Length(String($inMethod))>0)
 		$options.method:=Uppercase($inMethod)
 	End if 
@@ -202,11 +198,7 @@ Function _returnStatus($inAdditionalInfo : Object) : Object
 	var $errorStack : Collection:=Super._getErrorStack()
 
 	If (Not(OB Is empty($inAdditionalInfo)))
-		var $key : Text
-		var $keys : Collection:=OB Keys($inAdditionalInfo)
-		For each ($key; $keys)
-			$status[$key]:=$inAdditionalInfo[$key]
-		End for each 
+		$status:=OB Copy($inAdditionalInfo)
 	End if 
 
 	If ($errorStack.length>0)