Merge branch '18284-vm-listing' into main. Closes #18284

[arvados-workbench2.git] / src / services / api / url-builder.ts

diff --git a/src/services/api/url-builder.ts b/src/services/api/url-builder.ts
index 0587c837371dbe0ef242885f0bce6a4a5c2e9c4b..d94aab3506188f15a156cc8a1a0dd6e10bf3ca49 100644 (file)
--- a/src/services/api/url-builder.ts
+++ b/src/services/api/url-builder.ts
@@ -24,3 +24,24 @@ export class UrlBuilder {
         return this.url + this.query;
     }
 }
+
+export function joinUrls(url0?: string, url1?: string) {
+    let u0 = "";
+    if (url0) {
+        let idx0 = url0.length - 1;
+        while (url0[idx0] === '/') { --idx0; }
+        u0 = url0.substring(0, idx0 + 1);
+    }
+    let u1 = "";
+    if (url1) {
+        let idx1 = 0;
+        while (url1[idx1] === '/') { ++idx1; }
+        u1 = url1.substring(idx1);
+    }
+    let url = u0;
+    if (u1.length > 0) {
+        url += '/';
+    }
+    url += u1;
+    return url;
+}