Monotone-Parent: b8ad0061e865a522c79c6a19bc8d7841469af81a

Monotone-Revision: 7f2779135e9501efcfbb73fce0b3d244687ecaa4 Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2010-06-03T14:43:38 Monotone-Branch: ca.inverse.sogo
2026-05-28 14:45:28 +00:00 · 2010-06-03 14:43:38 +00:00
parent ba2b9aad81
commit 0959a88ea9
49 changed files with 280 additions and 118 deletions
@@ -1497,6 +1497,22 @@ function configureLinkBanner() {
    }
 }

+function CurrentModule() {
+    var module = null;
+    if (ApplicationBaseURL) {
+        var parts = ApplicationBaseURL.split("/");
+        var last = parts.length - 1;
+        while (last > -1 && parts[last] == "") {
+            last--;
+        }
+        if (last > -1) {
+            module = parts[last];
+        }
+    }
+
+    return module;
+}
+
 /* accessing another user's data */
 function UserFolderURLForUser(user) {
    var folderArray = UserFolderURL.split("/");