]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/on-line/javascript/utils.js
first moogle template checkin
[helm.git] / helm / on-line / javascript / utils.js
index 42599f7e8462bf17553b8513994a55e320f678fe..a4ca9cc353e0c0458850f87761d6ee1352fae4fd 100644 (file)
@@ -1,8 +1,35 @@
+function dropBodySuffix(url)
+{ var length = url.length;
+  if (url.slice(length - 5, length) == '.body')
+   return (url.slice(0, length - 5));
+  else
+   return url;
+}
+
 function chopSlash(url)
 {
   return url.slice(0,url.lastIndexOf('/'));
 }
 
+function dropParam(url,name)
+{
+  var urla = url.split("?");
+  var search = urla[1];
+  var args = search.split("&");
+  var newargs = new Array();
+  var j = 0;
+
+  for (var i = 0 ; i < args.length ; i++) {
+     var couple = args[i].split("=");
+     if (couple[0] != name) {
+        newargs[j] = args[i];
+        j++;
+     }
+  }
+
+  return (urla[0] + "?" + newargs.join("&"));
+}
+
 function setParam(url,name,value)
 {
   var urla = url.split("?");