Quick update to refresh

aa8aab08 · Mac Stephens · 60d7ce4f · aa8aab08
Commit aa8aab08 authored Jan 07, 2026 by Mac Stephens
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletions

webKGOrders.dpr kgOrdersClient/webKGOrders.dpr +5 -1

No files found.
--- a/kgOrdersClient/webKGOrders.dpr
+++ b/kgOrdersClient/webKGOrders.dpr
@@ -69,7 +69,10 @@ end;


 procedure StartApplication;
+var
+  ClientVer: string;
 begin
+  ClientVer := TDMConnection.clientVersion;
  DMConnection.InitApp(
    procedure
    begin
@@ -102,7 +105,8 @@ begin
              dlg.showModal();

              document.getElementById("refreshBtn").addEventListener("click", function () {
-                location.reload(true); // Hard refresh
+                var base = location.origin + location.pathname;
+                location.replace(base + "?ver=" + ClientVer + "&r=" + Date.now() + location.hash);
              });
            end;
          end;