ocaml 3.09 transition

[helm.git] / helm / uwobo-panel / control.js

diff --git a/helm/uwobo-panel/control.js b/helm/uwobo-panel/control.js
index 393bd3a68d647f01257041a7d91a09673731b9c7..9858fe1400c6d8a53f8a8e27d2b089ca37b33154 100644 (file)
--- a/helm/uwobo-panel/control.js
+++ b/helm/uwobo-panel/control.js
@@ -91,6 +91,44 @@ function selectPredefinedStylesheet(ss)
   document.loadEscape.elements[0].checked = true;
 }
 
+function getProfileParams()
+{
+  var password = document.getParamsProfilePassword.elements[0].value;
+  if (password != "") { password = "&password=" + password; };
+
+  top.result.location.replace(getUwoboURL() + "getparams?id=" + document.getParamsProfileID.elements[0].value + password);
+}
+
+function setProfileParam()
+{
+  var password = document.setParamProfilePassword.elements[0].value;
+  if (password != "") { password = "&password=" + password; };
+
+  top.result.location.replace(getUwoboURL() + "setparam?id=" + document.setParamProfileID.elements[0].value + "&key=" + document.setParamProfileKey.elements[0].value + "&value=" + document.setParamProfileValue.elements[0].value + password);
+}
+
+function createProfile()
+{
+  var id = document.createProfileID.elements[0].value;
+  if (id != "") { id = "&id=" + id; };
+
+  var password = document.createProfilePassword.elements[0].value;
+  if (password != "") { password = "&password=" + password; };
+
+  var clone = document.createProfileClone.elements[0].value;
+  if (clone != "") { clone = "&orig=" + clone; };
+
+  top.result.location.replace(getUwoboURL() + "createprofile?foo=x" + id + password + clone);
+}
+
+function removeProfile()
+{
+  var password = document.removeProfilePassword.elements[0].value;
+  if (password != "") { password = "&password=" + password; };
+
+  top.result.location.replace(getUwoboURL() + "removeprofile?id=" + document.removeProfileID.elements[0].value + password);
+}
+
 function getStylesheetURL()
 {
   var s;