FSN#52418 Beter loggen van Putorders aanroepen naar andere FACILITOR's

svn path=/Website/branches/v2017.3/; revision=37228

APPL/Shared/logger.inc

@@ -235,7 +235,9 @@ htmlLogger =
             txt += ("<br><span class='orgurl'>User: " + Session("userident") + "</span>");
         if (Session("fclt_realuser"))
             txt += " Realuser: " + Session("fclt_realuser");
-
+        var origin = Request.ServerVariables("HTTP_X_FCLT_CUST"); // Onze eigen putorders?
+        if (origin.Count)
+            txt += ("<br><span class='orgurl'>Origin: Putorders " + String(origin) + "</span>");
 
         this._do_write(txt);
         // _do_close komt wel in log_tekst()

UTILS/PutOrders/puo_shared.js

@@ -165,6 +165,17 @@ function doHTTP(url, params) // params is sterk vergelijkbaar met p_bedrijfadres
         params.method = params.data?"POST":"GET"; // Met data default POST, zonder data default GET
     if (!params.headers)
         params.headers = {};
+    params.headers["X-FCLT-cust"] = customerId; // Wordt door logger.inc eventueel opgepikt
+    try
+    {
+        var WshShell = new ActiveXObject("WScript.Shell");
+        var computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%");
+    }
+    catch (e)
+    {
+        var computername = "???";
+    }
+    params.headers["X-FCLT-cust"] += " (" + computername + ")";
 
     var http_request = new ActiveXObject("Msxml2.ServerXMLHTTP.6.0");
     var lResolve = 60 * 1000; // The default value is infinite, meaning no timeout.