var aDynSrch = new Array();
 var currentDynSrch = null;
	function moveHistory(add) {
		var i = el("interval").value;
		add *= i;
		el("to").value = el("to").value * 1 + add; 
		el("from").value = el("to").value * 1 - 144 * i; 
		var from = new Date(el("from").value * 1000);
		var to = new Date(el("to").value * 1000);
		el("history").src = "?async=history&img=1&" + getElData("frmHistory");
	}
 function getDynSrch(edt) {
   if (typeof(edt) == "string") edt = gfield(edt);
   if (!edt) return null;
   for (var i = 0; i < aDynSrch.length; i++) {
     if (aDynSrch[i].name == edt.name) {
       return aDynSrch[i];
     }
   }
   var dso = new Object();
   dso.name = edt.name;
   dso.oldvalue = "";
   aDynSrch.push(dso);
   return dso;
 }

 function focusDynSrch(e) {
   if (!e) e = window.event;
   var edt = e.srcElement;
   var dso = getDynSrch(edt);
   dso.oldvalue = edt.value;
   edt.onkeyup=kuDynSrch;
   edt.onkeydown=kdDynSrch;
   edt.onblur = blurDynSrch;
 }

 function blurDynSrch(e) {
   if (!e) e = window.event;
   var edt = e.srcElement;
   var el = document.elementFromPoint(window.event.clientX, window.event.clientY);
   if (el) if (getParentID(el, "pmSearch")) return;
   hidepopup("pmSearch");
 }

 function setDynSrch(sz) {
   if (!currentDynSrch) return;
   hidepopup("pmSearch");
   var edt = currentDynSrch.name;
   var dso = getDynSrch(edt);
   dso.oldvalue = sz;
   currentDynSrch.value = sz;
   if (eval("typeof " + edt + "SearchSet == 'function'")) {
     eval(edt + "SearchSet(sz)");
   }
   currentDynSrch.select();
   currentDynSrch.focus();
 }

 function tmrDynSrch(edt) {
   var dso = getDynSrch(edt);
   var fld = gfield(edt);
   if (eval("typeof " + edt + "Search == 'function'")) {
     var s = new Object();
     s.result = false;
     s.search = fld.value;
     s.width = fld.offsetWidth;
     eval(edt + "Search(s)");
     if (s.result === false) return;
     currentDynSrch = fld;
     var d = newDiv("pmSearch", getOffsetParentLeft(fld), getOffsetParentTop(fld) + fld.offsetHeight, s.width, 200);
     d.innerHTML = s.result;
     popupdiv(d, true);
   }
 }

 function kdDynSrch(e) {
   if (!e) e = window.event;
   var d = el("pmSearch");
   if ((e.keyCode == 27) && (d) && (d.style.display == "block")) {
     cancelbubble();
   }
 }

 function kuDynSrch(e) {
   if (!e) e = window.event;
   if (e.keyCode == 27) {
     if (hidepopup("pmSearch")) {
       cancelbubble();
     }
     return;
   }
   var edt = e.srcElement;
   var dso = getDynSrch(edt);
   if (dso.oldvalue != edt.value) {
     hidepopup("pmSearch");
     if (dso.timer) clearTimeout(dso.timer);
     dso.oldvalue = edt.value;
     dso.timer = setTimeout("tmrDynSrch('" + edt.name + "');", 500);
   }
 }


 function defBodyKU() {
  if (window.event.keyCode == 27) {
    cancelbubble();
    if (editx(null)) return;
    if (hidePopup()) return;
    docmd("cancel");
  }
}

function loadScript(id, src, onload) {
  if (el(id)) return true; // loaded
  var d = document.createElement("div");
  d.id = id;
  document.body.appendChild(d);
  var scr = document.createElement("script");
  scr.type = "text/javascript";
  if (onload) {
    if (typeof(onload) == "function") {
      onload();
    } else {
      scr.onreadystatechange = function () {
        if (this.readyState == 'loaded') { eval(onload);}
      }
      scr.onload = function () { eval(onload); };
    }  
  }
  scr.src = src;
  d.appendChild(scr);
  return false;
}

function newDiv(id, x, y, w, h) {
  var d;
  if (d = el(id)) {
  } else {
    d = document.createElement("div");
    d.id = id;
    document.forms["frm"].appendChild(d);
  }
  d.style.position = "absolute";
  d.style.padding = "2px";
  d.style.left = x;
  d.style.top = y;
  d.style.width = w;
  d.style.height = h;
  d.style.border = "1px solid red"
  d.style.overflow = "auto";
  d.style.display = "none";
  d.style.backgroundColor = "#dddddd";
  return d;
}

request = getRequest();

popups = new Array();

function dateonly(date) {
  return Math.floor((date * 1 + 10800) / 24 / 60 / 60) * 24 * 60 * 60 - 10800;
}

function el(sz) {
  return document.getElementById(sz);
}

function gfield(sz) {
  return document.forms["frm"][sz];
}

function mov(el) {
  if ((el.style.backgroundColor == "whitesmoke") ||
    (el.style.backgroundColor == "rgb(245, 245, 245)") ||
    (el.style.backgroundColor == "")) {
      el.style.backgroundColor = '#ddddff';
  }
}

function mot(el) {
  if ((el.style.backgroundColor == "rgb(221, 221, 255)") ||
    (el.style.backgroundColor == "#ddddff")) {
      el.style.backgroundColor = 'WhiteSmoke';
  }
}

function getRequest() {
  if (window.ActiveXObject) {
    return new ActiveXObject("Microsoft.XMLHTTP");
  } else
  if (window.XMLHttpRequest) {
    return new XMLHttpRequest();
  }
}

function docmd(c, p) {
  if (p != undefined) {
    document.forms["frm"].params.value = p;
  }
  document.forms["frm"].cmd.value = c;
  document.forms["frm"].submit();
}

function myescape(sz) {
  return sz.replace(/\n/g, "%0A").replace(/&/g, "%26").replace(/\r/g,"").replace(/\+/g,"%2B").replace(/\t/g, "%09");
}

function getFormData(frm, fields) {
  if (typeof(fields) == "string") {
    fields = fields.split(",");
  }
  if (fields == undefined) {
    var data = "";
    for (i = 0; i < document.forms[frm].elements.length; i++) {
      if (document.forms[frm].elements[i].type == "checkbox") {
        if (document.forms[frm].elements[i].checked) v = 1; else v = 0;
        data += "&" + document.forms[frm].elements[i].name + "=" + v;
      } else {
        data += "&" + document.forms[frm].elements[i].name + "=" +
          myescape(document.forms[frm].elements[i].value);
      }
    }
  } else {
    try {
      var data = "";
      var i = 0;
      for (i = 0; i < fields.length; i++) {
      	if (!document.forms["frm"][fields[i]]) {alert("Unknown field: " + fields[i]); continue;}
        if (document.forms["frm"][fields[i]].type == "checkbox") {
          if (document.forms["frm"][fields[i]].checked) v = 1; else v = 0;
          data += "&" + document.forms[frm][fields[i]].name + "=" + v;
        } else {
          try {
            data += "&" + document.forms[frm][fields[i]].name + "=" +
              myescape(document.forms[frm][fields[i]].value);
          } catch (ex) {
            alert("Error fetching information for " + fields[i]);
          }
        }
      }
    } catch (ex) {
      alert("Error with field: " + fields[i] + " " + ex.getMessage());
    }
  }
  return data;
}

function popupMonths(id, where) {
  var p = document.getElementById('pmmonths' + id);
  document.body.appendChild(p);
  if (!where) where = window.event.srcElement;
  popupdiv(p, false, where);
}

function popupYears(id, where) {
  var p = document.getElementById('pmyears' + id);
  document.body.appendChild(p);
  if (!where) where = window.event.srcElement;
  popupdiv(p, false, where);
}

function getChecked(name) {
  var result = "";
  for (var i = 0; i < document.forms["frm"].length; i++) {
    if (document.forms["frm"][i].name.substr(0, name.length) == name) {
      if (document.forms["frm"][i].checked) {
        if (result != "") result += ",";
        result += document.forms["frm"][i].name.substr(name.length);
      }
    }
  }
  return result;
}

function field(name) {
  var f = gfield(name);
  if (f.type == "checkbox") if (f.checked) return "&" + name + "=1"; else return "&" + name + "=0";
  return "&" + name + "=" + f.value;
}

var inSyncRequest = false;
function showSrvInfo(content, show, func) {
  var div = document.getElementById("srvinfo");
  window.status = content;
  if (div) {
    if (show) {
      div.innerHTML = content;
      div.style.display = "block";
      if (inSyncRequest) func(); else setTimeout(function() {inSyncRequest = true; func(); inSyncRequest = false}, 0);
    } else {
      div.style.display = "none";
    }
  }
}

function getParentID(el, pid) {
  if (el.id == pid) return true;
  while (el = el.parentElement) {
    if (el.id == pid) return true;
  }
  return false;
}

function requestGetRow(url) {
  var r = doRequest(url);
  if (r) {
    var temp = document.createElement("div");
    temp.innerHTML = r;
    var newrow = temp.children[0].rows[0].cloneNode(true);
    temp.innerHTML = "";
    return newrow;
  }
  return false;
}

function doRequest(url, debugresult, postdata) {
  var r = getRequest();
  r.open("POST", url, false);
  if (postdata) {
    r.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
    r.setRequestHeader("Content-length", postdata.length);
    r.send(postdata);
  } else r.send("-");
  if ((r.readyState == 4) && (r.status == 200)) {
    if (debugresult) alert(r.responseText);
    showSrvInfo('', 0);
    return r.responseText;
  } else {
  	if (r.status == 444) {
  		alert(r.responseText);
  	} else {
      alert("Error processing request to server: [" + r.status + "] " + r.statusText + "\n" + r.responseText);
    }
    showSrvInfo('', 0);
    return false;
  }
}

function cancelbubble() {
  if (event.preventDefault) event.preventDefault(); else event.returnValue = false;
  if (window.event) window.event.cancelBubble = true;
}

function asyncRequest(place, url, onend, noshowload, hideonerror) {
  var pos = document.getElementById(place);
  if (noshowload) {
  } else {
    pos.innerHTML = "<table width='100%' height='100%'><tr><td style='font: 15pt Verdana; color: red;' valign='middle' align='center'>Loading data...</td></tr></table>";
  }
  var r = getRequest();
  r.open("POST", url, true);
  r.onreadystatechange = function() {
    if (r.readyState == 4)
    {
      var pos = document.getElementById(place);
      if (r.status == 200) {
        pos.innerHTML = r.responseText;
        r.onreadystatechange = null;
        if (onend) {
          onend();
          //eval(onend);
        }
      } else {
        if (hideonerror) pos.style.display = 'none';
        alert(r.responseText);
        //pos.innerHTML = "<span style=\"color: red; font-weight: bold;\">Error processing request to server: " + r.statusText + "<br><br>" + r.responseText + "</span>";
      }
    } else
    { }
  }
  r.send("-");
}

function zeroPad(num,count)
{
  var numZeropad = num + '';
  while(numZeropad.length < count) {
    numZeropad = "0" + numZeropad;
  }
  return numZeropad;
}

function hidepopup(place) {
  if (typeof(place) == "string") place = document.getElementById(place);
  if ((place) && (place.style.display == 'block')) {
    removePopup(place);
    place.style.display = 'none';
    cancelbubble();
    return true;
  }
  return false;
}

function mncs(id, date, seldate) {
  var e = el('pmmonths' + id); if (e && (e.parentElement == document.body)) {removePopup(e); document.body.removeChild(e);}
  e = el('pmyears' + id); if (e && (e.parentElement == document.body)) { removePopup(e); document.body.removeChild(e);}
  popupCal(id, 1, date, el(id));
}

function popupCal(place, dopop, date, where, nullable) {
  if (!nullable) nullable = 0;
  var left = 0;
  var top = 0;
  if (where) {
    left = getOffsetParentLeft(where);
    top = getOffsetParentTop(where) + where.offsetHeight;
  }
  var p = newDiv('cal' + place, left, top, 230, "");
  if ((p.style.display == 'none') || (dopop)) {
    popupdiv(p, true);
    if (!date) date = gfield("h" + place).value * 1;
    var r = doRequest("online/calselect.php?cal=" + date + "&canbenull=" + nullable + "&func=cs&cid=" + place);
    p.innerHTML = r;
  } else {
    p.style.display = 'none';
  }
}

function cs(id, dt, explicit) {
  var txt = gfield(id);
  var etxt;
  if (!txt) etxt = el(id);
  var h = gfield("h" + id);
  if ((!explicit) && (!eval("typeof " + id + "_changed === 'undefined'"))) {
    if (!(eval(id + "_changed(" + dt + ")"))) return;
  }
  if (h) {
    h.value = dt;
    if (!(h.value * 1)) txt.value = ""; else {
      d = new Date(h.value * 1000);
      var sz = zeroPad(d.getDate(), 2) + "." + zeroPad(d.getMonth() + 1, 2) + "." + d.getFullYear();
      if (txt) txt.value = sz;
      if (etxt) etxt.innerText = sz;
    }
  }
  hidepopup('cal' + id);
}

function hidePopup() {
  if (popups.length) {
    popupdiv(popups[popups.length - 1], false);
    cancelbubble();
    return true;
  }
  return false;
}

function addPopup(popup) {
  for (i = 0; i < popups.length; i++) {
    if (popups[i] == popup) return;
  }
  if (popups.length == 0) popup.style.zIndex = 5; else
    popup.style.zIndex = popups[popups.length - 1].style.zIndex + 1;
  popups[popups.length] = popup;
}

function removePopup(popup) {
  var newpopups = new Array();
  for (i = 0; i < popups.length; i++) {
    if (popups[i] != popup) newpopups[newpopups.length] = popups[i];
  }
  popups = newpopups;
}

function setCombo(value, div) {
  var name = document.forms["frm"][div + "by"].value;
  document.forms["frm"][name].value = value;
  document.getElementById("cb" + name).innerHTML = window.event.srcElement.innerHTML;
  popupdiv(div, false);
}

function popupCombo(div, name) {
  document.forms["frm"][div + "by"].value = name;
  popupdiv(div, true, document.getElementById("cb" + name));
}

function popupdiv(place, dopop, where) {
  p = place;
  if (typeof(p) == "string") {
    p = document.getElementById(p);
    if (!p) {
      alert(place + " not found");
      return;
    }
  }
  if ((p.style.display == 'none') || (dopop)) {
    p.style.display = 'block';
    addPopup(p);
    if (where) {
      p.style.left = getOffsetParentLeft2(p, where);
      p.style.top = getOffsetParentTop2(p, where) + where.offsetHeight;
    }
  } else {
    removePopup(p);
    p.style.display = 'none';
  }
}

function getOffsetParentTop(el) {
  if (el.offsetParent) return el.offsetTop + getOffsetParentTop(el.offsetParent);
  return el.offsetTop;
}

function getOffsetParentLeft(el) {
  if (el.offsetParent) return el.offsetLeft + getOffsetParentLeft(el.offsetParent);
  return el.offsetTop;
}

function getOffsetParentTop2(p, el) {
  if ((el.offsetParent) && (p.offsetParent != el.offsetParent)) return el.offsetTop + getOffsetParentTop2(p, el.offsetParent);
  return el.offsetTop;
}

function getOffsetParentLeft2(p, el) {
  if ((el.offsetParent) && (p.offsetParent != el.offsetParent)) return el.offsetLeft + getOffsetParentLeft2(p, el.offsetParent);
  return el.offsetLeft;
}

function cbc() { // Combo on change
	var cb = window.event.srcElement;
	var name = cb.name.replace("[", "_");
	name = name.replace("]", "_");
  if (eval("typeof " + name + "_changed") == "function") {
    (eval(name + "_changed")(cb));
  }
}
var edtimg, edttxt, edtoldvalue;
function editx(val) {
  if (typeof searchdiv != "undefined") searchdiv.style.display = 'none';
  if (edtimg) {
    var ok = document.getElementById(edtimg.id + 'ok');
    var cx = document.getElementById(edtimg.id + 'x');
    ok.style.display = 'none';
    cx.style.display = 'none';
    edtimg.style.display = 'inline';
    for (i = 0; i < edttxt.length; i++) {
      var el = edttxt[i];
      if (i == 0) el.blur();
      el.readOnly = true;
      if (i == 0) el.focus();
      el.style.backgroundColor = 'silver';
      if (val == null) el.value = el.oldvalue;
      el.oldvalue = el.value;
    }
    edttxt = 0;
    edtimg = 0;
    return true;
  }
  return false;
}
function eku(ename) {
  if (window.event.keyCode == 13) {
    cancelbubble();
    var el = ename;
    el = document.getElementById(ename);
    if (el) {
      if (el == edtimg) {
        edit('ok');
      } else {
        el.onclick();
      }
    }
    return;
  } else
  if (!edttxt) return;
  if (window.event.keyCode == 27) {
    if (editx(null)) {
      cancelbubble();
      return;
    }
  } else
  if (eval("typeof eku_" + edttxt[0].name) == "function") {
    eval("eku_" + edttxt[0].name)(edttxt[0]);
  }
}
function dtekd(ename) {
  var e = window.event.srcElement;
  window.status = window.event.keyCode;
  if (!edttxt) return;
  if ((window.event.keyCode == 110) || (window.event.keyCode == 190)) {
    var f = null;
    if (e.name.substr(0, 1) == "d") f = gfield("m" + ename); else
    if (e.name.substr(0, 1) == "m") f = gfield("y" + ename);
    if (f) {
      f.focus();
      f.select();
    }
    if (e.preventDefault) e.preventDefault();
    e.returnValue = false;
    return false;
  }
}
function edit(ename) {
  cancelbubble();
  if (ename == 'ok') {
    changed = false;
    if (edttxt) for (i = 0; i < edttxt.length; i++) if (edttxt[i].value != edttxt[i].oldvalue) changed = true;
    if (changed) {
      if (typeof editok == "function") {
        if (editok(edttxt[0])) for (i = 0; i < edttxt.length; i++) editx(edttxt[i].value);
      } else
      if (eval("typeof editok_" + edttxt[0].name) == "function") {
        if (eval("editok_" + edttxt[0].name)(edttxt[0])) for (i = 0; i < edttxt.length; i++) editx(edttxt[i].value);
      } else
        for (i = 0; i < edttxt.length; i++) editx(edttxt[i].value);
    } else if (edttxt) for (i = 0; i < edttxt.length; i++) editx(edttxt[i].value);
    return true;
  }
  editx(null);
  if (ename == 'x') return;

  edttxt = gfield('edt' + ename);
  if (!edttxt) {
    edttxt = gfield("d" + ename);
    if (edttxt) edttxt = new Array(gfield("d" + ename),
      gfield("m" + ename),
      gfield("y" + ename));
  } else {
    edttxt = new Array(edttxt);
  }
  edtimg = document.getElementById(ename);
  var ok = document.getElementById(edtimg.id + 'ok');
  var cx = document.getElementById(edtimg.id + 'x');

  ok.style.display = 'inline';
  cx.style.display = 'inline';
  edtimg.style.display = 'none';
  for (i = 0; i < edttxt.length; i++) {
    var el = edttxt[i];
    el.readOnly = false;
    el.style.backgroundColor = 'White';
    edtoldvalue = el.value;
    el.oldvalue = el.value;

    if (i == 0) {
      el.select();
      el.focus();
    }
  }
}

function asyncLoadCombo(cb, url) {
  var r = doRequest(url);
  if (r) {
    r = r.split("\n");
    if (r.length > 0) cb.options.length = r.length - 1; else cb.options.length = 0;
    for (var i = 0; i < r.length - 1; i++) {
      var item = r[i].split("\t");
      cb.options[i].value = item[0];
      cb.options[i].text = item[1];
    }
  } else {
    cb.options.length = 0;
  }
}

function getElData(e) {
  if (!e) return "";
  if (typeof e == "string") e = el(e);
  if (!e) return "";
  var result = "";
  var i;
  for (i = 0; i < e.children.length; i++) {
    var ch = e.children[i];
    if ((ch.tagName == "INPUT") || (ch.tagName == "SELECT") || (ch.tagName == "TEXTAREA")) {
      if (ch.type == "checkbox") {
        if (ch.checked) {
          result += "&" + ch.name + "=" + ch.value;
        }
      } else
      if (ch.name) {
        result += "&" + ch.name + "=" + myescape(ch.value);
      }
    } else {
      result += getElData(ch);
    } 
  }
  return result;
}