/**
 * module 1 de scripts Javascript
 * @version 01.08.2017 21:00
 * @author Jean-red Burkhardt <webmaster@pierval.ch>
 * @package ppmweb
 * @todo ok 
 */
var catchdirty = 0; // general dirty switch
var isdirty = 0;    // dirty state
var bunodirty = 0;  // no dirty reporting button
var dirtywarning = "Données non enregistrées. Cliquez sur <b>Annuler</b> pour rester sur cette page.<br /><br />Quitter cette page sans sauvegarder les modifications";
var modaltimerhandler = null;
var pageoverflow = "";
/**
 */
function myonload() {
	pageoverflow = $("body").css("overflow");
	if(typeof jspageopen == 'function') {
		jspageopen();
	}
}
/**
 */
function disableEnter(evt) { 
  var evt = (evt) ? evt : ((event) ? event : null); 
  var node = (evt.target) ? evt.target : ((evt.srcElement) ? evt.srcElement : null); 
  if (evt.keyCode == 13)  {return false;}
}
/**
 */
function scrolltobottomofdiv(divid) {
	divh = $('#' + divid).height();
	$('#' + divid).scrollTop(divh);
}
/**
 */
function copyDown01(formname, li) {
	var nextli = li + 1;
	var sourcecell = formname + "cells" + "-" + li + "-" + "2";
	var targetcell = formname + "cells" + "-" + nextli + "-" + "2";
	$('#'+targetcell).val($('#'+sourcecell).val());
	sourcecell = formname + "cells" + "-" + li + "-" + "5";
	targetcell = formname + "cells" + "-" + nextli + "-" + "5";
	$('#'+targetcell).val($('#'+sourcecell).val());
}
/**
 */
function setRightzoneTop() {
	if ($('#hdrmtb').length > 0) {
		// $('#rightzone').css("top", "112px");
		$('#hdrmtb').fadeIn(500);
		$('#hdrboussole').fadeIn(500);
	}
	if ($('#applogo').length > 0) {
		$('#applogo').fadeIn(500);
	}
	$('#home_logged').fadeIn(500);
	$('#home_time').fadeIn(500);
	$('#home_date').fadeIn(500);
	$('#footerzone').fadeIn(500);
}
/**
 */
function setSideTBTop() {
	var navbottom = $('#nav').height();
	var sidetbtop = 0;
	var sidetbleft = 0;
	if ($('#sidetb').length > 0) {
		sidetbtop = navbottom + 100;
		sidetbleft = 135;
		$('#sidetb').css("top", sidetbtop);
		$('#sidetb').css("left", sidetbleft);
		$('#sidetb').fadeIn(1000);
	}
}
 /**
 */
function setOk(ctrl) {
	$('#'+ctrl).css({"background-color":"#FFFFFF"});
}
/**
 */
function setKo(ctrl) {
	$('#'+ctrl).css({"background-color":"#F99191"});
}
/**
 */
function triggerDirty(frm) {
	catchdirty = 1;
	$('#' + frm + ' :input').change(function() {
		isdirty = 1;
	});
}
/**
 */
function xbrowser() {
	var ua = navigator.userAgent;
	var navbottom = $('#nav').height();
	var sidetbtop = 0;
	//
	do {
	if (ua.indexOf("IEMobile") > 0) {
			if ($('#sidetb').length > 0) {
				sidetbtop = navbottom;
				$('#sidetb').css("left", "-45px");
				$('#sidetb').css("top", sidetbtop);
			}
			break;
		}
/**	if (ua.indexOf("MSIE") > 0) {
			break;
		}
		if (ua.indexOf("Chrome") > 0) {
			// $("h1").css({"padding":"10px 80px 8px 80px"});
			break;
		}
*/
		break;
	} while(0);
}
/**
 */
function bg1(elemid) {
	$('#'+elemid).css({"background-color":"#FBCEA3"});
}
/**
 */
function bg2(elemid) {
	$('#'+elemid).css({"background-color":"#FAFC5A"});
}
/**
 */
function bg3(elemid) {
	$('#'+elemid).css({"background-color":"#E6E779"});
}
/**
 */
function bg4(elemid) {
	$('#'+elemid).css({"background-color":"#C4EEEE"});
}
/**
 */
function bg5(elemid) {
	$('#'+elemid).css({"background-color":"#FFFFDC"});
}
/**
 */
function bg6(elemid) {
	$('#'+elemid).css({"background-color":"#D5F9D5"});
}
/**
 */
function bg7(elemid) {
	$('#'+elemid).css({"background-color":"#EFDBED"});
}
/**
 */
function mytrim(mystr) {
	return mystr.replace(/^\s+/g, '').replace(/\s+$/g,'');
}
/**
 */
function stringTest(ctrl, booemptyok, boomaj) {
	var result = true;
	var mixval = $('#'+ctrl).val();
	var str = mytrim(mixval);
	//
	if (str == "" && !booemptyok) {
		result = false;
	}
	if (boomaj) {
		str = str.toUpperCase();
	}
	$('#'+ctrl).val(str);
	return result;
}
/**
 */
function numberTest(ctrl, binf, binfok, bsup, bsupok, nbdeci, thsep, zasblk) {
	var result = false;
	var mixval = $('#'+ctrl).val();
	var multifactor = Math.pow(10, nbdeci);
	var strvalrounded = "";
	//
	mixval = str_replace("'", "", mixval);
	mixval = parseFloat(mixval, 10);
	do {
		if (isNaN(mixval)) {
			mixval = 0;
		}
		if (binfok && bsupok) {
			if (Math.round(mixval * multifactor) / multifactor >= binf && Math.round(mixval * multifactor) / multifactor <= bsup) {
				result = true;
			}
			break;
		}
		if (!binfok && bsupok) {
			if (Math.round(mixval * multifactor) / multifactor > binf && Math.round(mixval * multifactor) / multifactor <= bsup) {
				result = true;
			}
			break;
		}		
		if (binfok && !bsupok) {
			if (Math.round(mixval * multifactor) / multifactor >= binf && Math.round(mixval * multifactor) / multifactor < bsup) {
				result = true;
			}
			break;
		}			
		if (!binfok && !bsupok) {
			if (Math.round(mixval * multifactor) / multifactor > binf && Math.round(mixval * multifactor) / multifactor < bsup) {
				result = true;
			}
			break;
		}	
		break;
	} while(0);
	mixval = Math.round(mixval * multifactor) / multifactor;
	strvalrounded = mixval.toFixed(nbdeci);
	if (thsep) {
		strvalrounded = addThSep(strvalrounded);
	}
	if (mixval == 0 && zasblk) {
		strvalrounded = ""; 
	}
	$('#'+ctrl).val(strvalrounded);
	return result;
}
/**
 */
function addThSep(str) {
    str += "";
    var x = str.split(".");
    var x1 = x[0];
    var x2 = x.length > 1 ? "." + x[1] : "";
    var rgx = /(\d+)(\d{3})/;
    while (rgx.test(x1)) {
        x1 = x1.replace(rgx, "$1" + "'" + "$2");
    }
    return x1 + x2;
}
/**
 */
function cellGetIntval(ctrl) {
	var strval = "";
	//
	strval = $('#'+ctrl).val();
	strval = str_replace("'", "", strval);
	if (isNaN(strval)) {
		strval = "0";
	}
	return parseInt(strval, 10);
}
/**
 */
function cellGetFloatval(ctrl) {
	var strval = "";
	//
	strval = $('#'+ctrl).val();
	strval = str_replace("'", "", strval);
	if (isNaN(strval)) {
		strval = "0";
	}
	return parseFloat(strval, 10);
}
/**
 * sum columns in a datagrid (cells are input elements)
 * arrcols[0] <=> target column details
 * (***) notation used to identify key position in IDs
 */
function dgsum01(arrcols, intdecimals, boothsep, boototal) {
	var tlcellid = "";
	var flototal = 0;
	var flolinetotal = 0;
	var strlinetotal = "";
	var strtotal = "";
	var elemcellprefix = "";
	var bribes = new Array();
	var inputs = new Array();
	var i;
	var j;
	var fcprefix = "";
	var fcsuffix = "";
	var fcprefixlen = 0;
	var fcsuffixlen = 0;
	var strkey = "";
	var id = "";
	var idlen = 0;
	var elemcellid = "";
	var cellid = "";
	var flocellval = 0;
	var strcellval = 0;
	//
	// --- target column details ---
	bribes = arrcols[0].split("(***)");
	elemcellprefix = bribes[0];
	elemcellsuffix = bribes[1];
	tlcellid = "tl" + elemcellsuffix;
	// --- first column (fc) details ---
	bribes = arrcols[1].split("(***)");
	fcprefix = bribes[0];
	fcsuffix = bribes[1];
	fcprefixlen = fcprefix.length;
	fcsuffixlen = fcsuffix.length;
	// ---
   inputs = document.getElementsByTagName('input');
	for (i = 0; i < inputs.length; i++){ 
		do {
			id = inputs[i].id;
			if (id.substr(0, fcprefixlen) != fcprefix) {
				break;
			}
			if (id.substr(-fcsuffixlen, fcsuffixlen) != fcsuffix) {
				break;
			}
			// --- found a row containing cells to sum ---
			idlen = id.length;
			strkey = id.substr(fcprefixlen, idlen - fcprefixlen - fcsuffixlen);
			// ---
			elemcellid = elemcellprefix + strkey + elemcellsuffix;
			flolinetotal = 0;
			// ---
			for (j = 1; j < arrcols.length; j++){ 
				bribes = arrcols[j].split("(***)");
				cellid = bribes[0] + strkey + bribes[1];
				strcellval = getValue(cellid);
				strcellval = strcellval.replace(/'/g, "");
				flocellval = parseFloat(strcellval);
				if (isNaN(flocellval)) {
					flocellval = 0;
				}
				flolinetotal += flocellval;
			}
			flototal += flolinetotal;
			// --- formatting line total ---
			strlinetotal = my_number_format(flolinetotal, intdecimals, boothsep, false);
			// --- show line total ---
			document.getElementById(elemcellid).innerHTML = strlinetotal;
			break;
		} while(0);
	}	
	// --- formatting target column total ---
	strtotal = my_number_format(flototal, intdecimals, boothsep, false);
	// --- show total ---
   if (boototal == 1) {
		document.getElementById(tlcellid).innerHTML = strtotal;
   } else {
		document.getElementById(tlcellid).innerHTML = "&nbsp;";
   }
}
/**
 */
function my_number_format(number, nbdeci, boothsep, boozab) {
	var mynumber = number;
	var strnumber = "";
	var multifactor = Math.pow(10, nbdeci);
	//
	if (isNaN(mynumber)) {
		mynumber = 0;
	}
	mynumber = Math.round(mynumber * multifactor) / multifactor;
	strnumber = mynumber.toFixed(nbdeci);
	if (boothsep) {
		strnumber = addThSep(strnumber);
	}
	if ((mynumber == 0) &&  boozab) {
		strnumber = "";
	}
	return strnumber;
}
/**
 * get elements from a string (variante 1)
 */
function getElements1(xrt) {
   var bribes = new Array();
   //
   bribes = xrt.split("(£££)");
   return bribes;
}
/**
 * get elements from a string
 */
function getElements(xrt) {
   var bribes = new Array();
   var elem = new Array();
   var result = new Array();
   var i;
   //
   bribes = xrt.split("(£££)");
   for (i in bribes) {
      elem = bribes[i].split("(ççç)");
      result[i] = new Array(elem[0], elem[1]);
   }
   return result;
}
/**
 * get elements from a string
 */
function getElements2(xrt) {
   var bribes = new Array();
   var elem = new Array();
   var result = new Array();
   var i;
   //
   bribes = xrt.split("(£££)");
   for (i in bribes) {
		elem = bribes[i].split("(ççç)");
      result[i] = new Array(elem[0], elem[1], elem[2]);
   }
   return result;
}
/**
 * reset innerHTML contents for elements described in arrelements
 * - arrelements[key][0] : html id of 1st element
 * - arrelements[key][1] : html value of 1st element
 * - etc.
 * - éléments dont le nom commence par info <=> rendus avec innerHTML
 * - éléments dont le nom commence par radio <=> check de l'option
 * - éléments dont le nom commence par ctrlzlm <=> sélection de l'option
 * - autres éléments <=> rendus comme valeur d'un INPUT html  
 */
function refreshElements(arrelements) {
   var i = 0;
   var n = arrelements.length;
   var elid = "";
	var elemid = "";
   //
   for(i = 0; i <= n-1; i++) {
      elid = arrelements[i][0];
      do {
			if (elid.substr(0, 4) == "info") {
				document.getElementById(arrelements[i][0]).innerHTML = arrelements[i][1];
				break;
			}
			if (elid.substr(0, 7) == "newhtml") {
				elemid = elid.substring(7);
				$('#'+elemid).html(arrelements[i][1]);
				break;
			}
			if (elid.substr(0, 5) == "radio") {
				elemid = "#";
				elemid = elemid + elid.substring(5);
				$(elemid).attr('checked', true);
				break;
			}
			if (elid.substr(0, 7) == "ctrlzlm") {
				elemid = "#";
				elemid = elemid + elid.substring(7);
				$(elemid).val(arrelements[i][1]);
				break;
			}
			setValue(elid, arrelements[i][1]);
			break;
      } while(0);
	}
}
/**
 */
function showWaitzone(booflag) {
   if (booflag) {
      document.getElementById("waitzone").style.visibility = "visible";
   } else {
      document.getElementById("waitzone").style.visibility = "hidden";
   }
}
/**
 */
function showModalzones(booflag) {
   var mybodybg;
	if (booflag) {
		$("body").css({"overflow":"hidden"});
		$(window).scrollTop(0);
		$('#modalzone1').fadeIn(0);
		mybodybg = $("body").css("background-color");
		$('#modalzone2').css({"background-color":mybodybg});
		$('#modalzone2').fadeIn(1000);
   } else {
		$('#modalzone2').fadeOut(0);
		$('#modalzone1').fadeOut(500);
		$("body").css({"overflow":pageoverflow});
   }
}
/**
 */
function showModalzones89(booflag) {
   var mybodybg;
	if (booflag) {
		$("body").css({"overflow":"hidden"});
		$(window).scrollTop(0);
		$('#modalzone8').fadeIn(0);
		mybodybg = $("body").css("background-color");
		$('#modalzone9').css({"background-color":mybodybg});
		$('#modalzone9').fadeIn(1000);
   } else {
		$('#modalzone9').fadeOut(0);
		$('#modalzone8').fadeOut(500);
		$("body").css({"overflow":pageoverflow});
   }
}
/**
 */
function modalsetwarning(modalzoneid) {
	var bori = $('#'+modalzoneid).css("border-right");
	var bobo = $('#'+modalzoneid).css("border-bottom");
	modaltimerhandler = setInterval(function(){modalunsetwarning(modalzoneid, bori, bobo)}, 500);
	$('#'+modalzoneid).css("border", "3px solid red");
}
/**
 */
function modalunsetwarning(modalzoneid, bori, bobo) {
	$('#'+modalzoneid).css("border", "none");
	$('#'+modalzoneid).css("border-right", bori);
	$('#'+modalzoneid).css("border-bottom", bobo);
	clearInterval(modaltimerhandler);
}
/**
 */
function modalsetwarning89() {
	var boto = $('#modalzone9').css("border-top");
	var bori = $('#modalzone9').css("border-right");
	var bobo = $('#modalzone9').css("border-bottom");
	var bole = $('#modalzone9').css("border-left");
	modaltimerhandler = setInterval(function(){modalunsetwarning89(boto, bori, bobo, bole)}, 500);
	$('#modalzone9').css("border", "3px solid red");
}
/**
 */
function modalunsetwarning89(boto, bori, bobo, bole) {
	$('#modalzone9').css("border", "none");
	$('#modalzone9').css("border-top", boto);
	$('#modalzone9').css("border-right", bori);
	$('#modalzone9').css("border-bottom", bobo);
	$('#modalzone9').css("border-left", bole);
	clearInterval(modaltimerhandler);
}
/**
 */
function getValue(ctrlid) {
   // --- retrouver la valeur d'un contrôle à partir de son id ctrlid
   var mixvalue = document.getElementById(ctrlid).value;
   return mixvalue;
}
/**
 */
function getFieldValue(fieldname, fieldtype, objform) {
   var mixvalue = "";
   var i;
   switch (fieldtype) {
      case "CtrlText":
         mixvalue = document.getElementById(fieldname).value;
         break;
      case "CtrlNumber":
         mixvalue = document.getElementById(fieldname).value;
         break;
      case "CtrlGO":
         var ctrlgo = document.getElementsByName(fieldname);
         for(i = 0; i < ctrlgo.length; i++) {     
            if (ctrlgo[i].checked) {
               mixvalue = ctrlgo[i].value;
               break;
            }
         }
         break;
      case "CtrlZlm":
         objzlm = document.getElementById(fieldname);
         mixvalue = objzlm.options[objzlm.selectedIndex].value;
         break;
      case "CtrlDate":
         mixvalue = document.getElementById(fieldname).value;
         break;      
      default:
         mixvalue = "";
   }   
   return mixvalue;
}
/**
 */
function setFieldValue(fieldname, fieldtype, objform, mixvalue) {
   switch (fieldtype) {
      case "CtrlText":
         setValue(fieldname, mixvalue);
         break;
      case "CtrlNumber":
         setValue(fieldname, mixvalue);
         break;
		case "CtrlDate":
			setValue(fieldname, mixvalue);
			break;
      default:
         alert("setFieldValue() : poursuivre le développement !");
         break;
   }
}
/**
 */ 
function setValue(ctrlid, mixvalue) {
   // --- définir la valeur du contrôle d'id ctrlid
   document.getElementById(ctrlid).value = mixvalue;
}
/**
 */
function changeCtrlTextImage(ctrltextid, newvalue, newsource, newwidth, newheight, newtitle, boosetdirty) {
	var imgid = ctrltextid + "img";
	var imgtdid = ctrltextid + "imgtd";
	var tdnewwidth = newwidth + 20;
	var tdnewheight = newheight + 30;
	$('#'+imgtdid).css('width', tdnewwidth + "px");
	$('#'+imgtdid).css('height', tdnewheight + "px");
	$('#'+imgid).attr('src', newsource);
	$('#'+imgid).attr('width', newwidth);
	$('#'+imgid).attr('height', newheight);
	$('#'+imgid).attr('title', newtitle);
	$('#'+ctrltextid).val(newvalue);
	if (boosetdirty) {
		isdirty = boosetdirty;
	}
}
/**
 */ 
function CtrlTextSetReadOnly(ctrltextid, booro) {
   if (booro) {
      document.getElementById(ctrltextid).readOnly = true;
      document.getElementById(ctrltextid).style.color = "#646464";
   } else {
      document.getElementById(ctrltextid).readOnly = false;
      document.getElementById(ctrltextid).style.color = "#000000";  
   }
}
/**
 */ 
function CtrlNumberSetReadOnly(ctrltextid, booro) {
   if (booro) {
      document.getElementById(ctrltextid).readOnly = true;
      document.getElementById(ctrltextid).style.color = "#646464";
   } else {
      document.getElementById(ctrltextid).readOnly = false;
      document.getElementById(ctrltextid).style.color = "#000000";  
   }
}
/**
 */ 
function CtrlGOSetReadOnly(ctrlgoname, booro) {
   var ctrlgo = document.getElementsByName(ctrlgoname);
   var boid = "";
   var i = 0;
   for(i = 0; i < ctrlgo.length; i++) {
      boid = ctrlgoname + i;
      document.getElementById(boid).disabled = booro;
   }
}
/**
 */ 
function submitform(strformid, strdba, strdboa) {
   // automatic requery only available if form has a default button
   var objform=document.getElementById(strformid);
   if (strdba != "" && strdboa != "") {
      setAction1(strdba, strdboa, strformid);
      objform.submit();
   }  
}
/**
 */
function zlmSort01(strzlm) {
   var objzlm=document.getElementById(strzlm);
   var i=0;
   var optionscount=objzlm.length;
   var separator = "<***>";
   newlibs = new Array();
   var elem = "";
   var texte = "";
   var valeur = "";
   splits = new Array();
   for(i=0; i < optionscount; i++) {
      elem = objzlm.options[i].text + separator + objzlm.options[i].value;
      newlibs[i] = elem;
   }
   newlibs.sort();
   for(i=0; i < optionscount; i++) {
      elem = newlibs[i];
      splits = elem.split(separator);
      texte = splits[0];
      valeur = splits[1];
      objzlm.options[i].text = texte;
      objzlm.options[i].value = valeur;
   }
}
/**
 */
function submiteval(strdefaultaction, strdefaultopenargs, strform) {
	var result = false;
   var currentaction = "";
   var calen = 0;
   var calastchar = "";
	var quesfuncparam = "";
   currentaction = document[strform].action;
   do {
      if (document[strform].ztstate.value == "cancel") {
         document[strform].ztstate.value = "";
         break;
      }
      calen = currentaction.length;
      if (calen != 0) {
         calastchar = currentaction.charAt(calen-1);
      }
      if (currentaction != "" && calastchar != "#") {
         result = true;
      } else {
		   if (strdefaultaction != "" && strdefaultopenargs != "") {
				setAction1(strdefaultaction, strdefaultopenargs, strform);
				result = true;
			}
      }
		if (result) {
			if (catchdirty && isdirty && !bunodirty) {
				quesfuncparam += dirtywarning + "(ççç)" + "1";
				quesfuncparam += "(£££)";
				quesfuncparam += "submitConfirmed" + "(ççç)" + "1";
				quesfuncparam += "(£££)";
				quesfuncparam += strform + "(ççç)" + "1";
				xhrconfirm(quesfuncparam);
				result = false;
			}
			break;
		}
      break;
   } while(0);
   if (result) {
      enabledisabled();
   }
	return result;
}
/**
 */
function submitConfirmed(strform) {
	catchdirty = 0;
	enabledisabled();
	document[strform].submit();
}
/**
 */
function afterconf2(stropenargs, strztfieldname, strform, straction) {
	if (strztfieldname != "") {
		stropenargs += "&parentcleunik=";
		stropenargs +=  document[strform][strztfieldname].value;
	}
	document[strform].ztopenargs.value = stropenargs;
	document[strform].action = straction;
	enabledisabled();                        
	document[strform].submit();
}
/**
 */
function afterconf(stropenargs, strztfieldname, strform, straction) {
	if (strztfieldname != "") {
		stropenargs += "&cleunik=";
		stropenargs +=  document[strform][strztfieldname].value;
	}
	document[strform].ztopenargs.value = stropenargs;
	document[strform].action = straction;
	enabledisabled();                        
	document[strform].submit();
}
/**
 */
function enabledisabled() {
   // disabled SELECT controls, radio buttons and checked checkboxes are not posted => re-enabling them to get them posted
	// NB: unchecked checkboxes are never posted
   var i=0;
   var zlms = new Array();
   var radiosandchkboxes = new Array();
   //
   zlms = document.getElementsByTagName("select");
   radiosandchkboxes = document.getElementsByTagName("input");
   for (i = 0; i < zlms.length; i++) {
      zlms[i].disabled = false;
   }
   for (i = 0; i < radiosandchkboxes.length; i++) {
      if (radiosandchkboxes[i].type == "radio" || radiosandchkboxes[i].type == "checkbox") {
         radiosandchkboxes[i].disabled = false;
      }
   }   
}
/**
 */
function setClass(elementid, strclass) {
   var elem = document.getElementById(elementid);
   elem.className = strclass;
}
/**
 *
 */ 
function setbuttonclass(buttonid, buttonclass) {
   var button = document.getElementById(buttonid);
   button.className = buttonclass;
}
/**
 * getxhr001 function for updateboobound dgc columns 
 */ 
function getxhr001(checkboxid, page, table, connection, boofield, wherefield, wherevalue) {
   var xhr;
   var openargs = "";
   var boovalue = 0;
   var cac = document.getElementById(checkboxid);
   if (cac.checked) {
      boovalue = 1;
   } else {
      boovalue = 0;   
   }
   openargs += "func"       + "=" + "boo01";
   openargs += "&";
   openargs += "table"      + "=" + table;
   openargs += "&";
   openargs += "connection" + "=" + connection;
   openargs += "&";   
   openargs += "boofield"   + "=" + boofield;
   openargs += "&";
   openargs += "boovalue"   + "=" + boovalue;  
   openargs += "&";
   openargs += "wherefield" + "=" + wherefield;
   openargs += "&";   
   openargs += "wherevalue" + "=" + wherevalue;   
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         if (xhr.responseText != "ok") {
            alert("An xhr error occurred." + "\n" + xhr.responseText);
            location.href='/index.php';
         }
      }
   }
   xhr.open("POST", page, true);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);
}
/**
 * getxhr002 function for calc fields recalc and xhr page calls without parameters
 */ 
function getxhr002(page) {
   var xhr;
   var openargs = "";
	showWaitzone(true);
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			showWaitzone(false);
			xhralert(xhr.responseText, "", "", "");
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * getxhr003insert function to insert a member in a n:n situation 
 */ 
function getxhr003insert(strcandidateszlm, strmemberszlm, strnntablename, intconnection, strnnleftfieldname, strnnrightfieldname, intnnrightfieldvalue) {
   var xhr = null;
   var openargs = "";
   var page = "/xhr/xhr003inserta.php";
   var objcandidateszlm = document.getElementById(strcandidateszlm);
   var objmemberszlm = document.getElementById(strmemberszlm);
   var selkey = objcandidateszlm.selectedIndex;
   var texte = "";
   var valeur = 0;
   var newmember = null;
   do {
      if (selkey < 0) {
         break;
      }
      texte = objcandidateszlm.options[selkey].text;
      valeur = objcandidateszlm.options[selkey].value;
      openargs += "strnntablename"       + "=" + strnntablename;
      openargs += "&";
      openargs += "intconnection"        + "=" + intconnection;
      openargs += "&";   
      openargs += "strnnleftfieldname"   + "=" + strnnleftfieldname;
      openargs += "&";
      openargs += "intnnleftfieldvalue"  + "=" + valeur;  
      openargs += "&";
      openargs += "strnnrightfieldname"  + "=" + strnnrightfieldname;
      openargs += "&";   
      openargs += "intnnrightfieldvalue" + "=" + intnnrightfieldvalue;   
      if (window.XMLHttpRequest) {
         xhr = new XMLHttpRequest();
      } else {
         xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
      }
      xhr.onreadystatechange = function() {
         if (xhr.readyState==4 && xhr.status==200) {
            if (xhr.responseText != "ok") {
               alert(xhr.responseText);
            } else {
               newmember = document.createElement("option");
               newmember.text = texte;
               newmember.value = valeur;
               objcandidateszlm.remove(selkey);
               objmemberszlm.add(newmember);
               zlmSort01(strmemberszlm);
            }
         }
      }
      xhr.open("POST", page, true);
      xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
      xhr.send(openargs);      
   } while(0);   
}
/**
 * getxhr003delete function to remove a member in a n:n situation 
 */ 
function getxhr003delete(strcandidateszlm, strmemberszlm, strnntablename, intconnection, strnnleftfieldname, strnnrightfieldname, intnnrightfieldvalue, intnodeleteid, intlan) {
   var xhr = null;
   var openargs = "";
   var page = "/xhr/xhr003deletea.php";
   var objcandidateszlm = document.getElementById(strcandidateszlm);
   var objmemberszlm = document.getElementById(strmemberszlm);
   var selkey = objmemberszlm.selectedIndex;
   var texte = "";
   var valeur = 0;
   var oldmember = null;
	var skipmark = "(*?*)";
	var msg = "ne peut pas être supprimé(e) de cette liste.";
   do {
      if (selkey < 0) {
         break;
      }
      if (intlan == 2) {
			msg = "may not be removed from this list.";
      } else {
			if (intlan == 3) {
				msg = "darf nicht aus dieser Liste entfernt werden.";
			}
      }
		texte = objmemberszlm.options[selkey].text;
      valeur = objmemberszlm.options[selkey].value;
      if (intnodeleteid > 0 && valeur == intnodeleteid) {
			msg = texte + " " + msg;
			xhralert(msg, "", "", "");
			break;
		}
		openargs += "strnntablename"       + "=" + strnntablename;
      openargs += "&";
      openargs += "intconnection"        + "=" + intconnection;
      openargs += "&";   
      openargs += "strnnleftfieldname"   + "=" + strnnleftfieldname;
      openargs += "&";
      openargs += "intnnleftfieldvalue"  + "=" + valeur;  
      openargs += "&";
      openargs += "strnnrightfieldname"  + "=" + strnnrightfieldname;
      openargs += "&";   
      openargs += "intnnrightfieldvalue" + "=" + intnnrightfieldvalue;   
      if (window.XMLHttpRequest) {
         xhr = new XMLHttpRequest();
      } else {
         xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
      }
      xhr.onreadystatechange = function() {
         if (xhr.readyState==4 && xhr.status==200) {
            if (xhr.responseText != "ok") {
               alert(xhr.responseText);
            } else {
					// remove old member
					// if new candidate not skipped (using (*?*) prefix), add it
					oldmember = document.createElement("option");
					oldmember.text = texte;
					oldmember.value = valeur;
					objmemberszlm.remove(selkey);
					if (texte.substr(0, 5) != "(*?*)") {
						objcandidateszlm.add(oldmember);
						zlmSort01(strcandidateszlm);
					}
				}
         }
      }
      xhr.open("POST", page, true);
      xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
      xhr.send(openargs);      
   } while(0);   
}
/**
 * getxhr004 function : log a served page into TPagesServed
 */ 
function getxhr004(usloginname, pacleunik, pafilepath) {
	var xhr;
   var openargs = "";
   var strpage = "/xhr/xhr004.php";
   openargs += "usloginname" + "=" + usloginname;
   openargs += "&";
   openargs += "pacleunik"   + "=" + pacleunik;
   openargs += "&";   
   openargs += "pafilepath"  + "=" + pafilepath;
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         if (xhr.responseText != "ok") {
            alert("An xhr error occurred." + "\n" + xhr.responseText);
            location.href='/index.php';
         }
      }
   }
   xhr.open("POST", strpage, true);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
   xhr.send(openargs);
}
/**
 * getxhr005 function : unlog a served page from TPagesServed
 */ 
function getxhr005(usloginname, pacleunik) {
   var xhr;
   var openargs = "";
   var strpage = "/xhr/xhr005.php";
   openargs += "usloginname" + "=" + usloginname;
   openargs += "&";
   openargs += "pacleunik"   + "=" + pacleunik;
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         if (xhr.responseText != "ok") {
            alert("An xhr error occurred." + "\n" + xhr.responseText);
            location.href='/index.php';
         }
      }
   }
   xhr.open("POST", strpage, true);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
   xhr.send(openargs);
}
/**
 * getxhr006 xhr page call without parameters, then submit form
 */ 
function getxhr006(page, strformid, strdba, strdboa) {
   var xhr;
   var openargs = "";
	showWaitzone(true);
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			showWaitzone(false);
			xhralert(xhr.responseText, strformid, strdba, strdboa);
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * getxhr007 function for updatenumbound dgc columns
 */ 
function getxhr007(ztid, page, wherevalue, sessionkey) {
   var xhr;
   var openargs = "";
   var ztvalue = getValue(ztid);
   var xhrresponses = new Array();
   //
   openargs += "func"       + "=" + "num01";  
   openargs += "&";
   openargs += "ztvalue"       + "=" + ztvalue;
   openargs += "&";
   openargs += "wherevalue" + "=" + wherevalue; 
   openargs += "&";
   openargs += "sessionkey" + "=" + sessionkey;
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         xhrresponses = getElements1(xhr.responseText);
         if(xhrresponses[0] != "(***error***)") {
            setValue(ztid, xhrresponses[0]);
            setClass(ztid, xhrresponses[1]);
         }
         if(xhrresponses[2] != "") {
            xhralert(xhrresponses[2], "", "", "");
         }
      }
   }
   xhr.open("POST", page, false);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);
}
/**
 * getxhr008 function for usanumbound dgc columns
 */ 
function getxhr008(ztid, page, idkey, sessionkey) {
   var xhr;
   var openargs = "";
   var ztvalue = getValue(ztid);
   var xhrresponses = new Array();
	var tlid = "tl" + sessionkey;
   //
   openargs += "func" + "=" + "num02";  
   openargs += "&";
   openargs += "ztvalue" + "=" + ztvalue;
   openargs += "&";
   openargs += "idkey" + "=" + idkey; 
   openargs += "&";
   openargs += "sessionkey" + "=" + sessionkey;
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         xhrresponses = getElements1(xhr.responseText);
         if(xhrresponses[0] != "(***error***)") {
            setValue(ztid, xhrresponses[0]);
            setClass(ztid, xhrresponses[1]);
				if (xhrresponses[3] != "") {
					document.getElementById(tlid).innerHTML = xhrresponses[3];
				}
				if(typeof postusanbcols == 'function') {
					postusanbcols();
				}
			}
         if(xhrresponses[2] != "") {
            xhralert(xhrresponses[2], "", "", "");
         }
      }
   }
   xhr.open("POST", page, false);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);
}
/**
 * getxhr009 function to add a list entry into a $_SESSION key (usage: not limited to list CtrlZlm controls)
 */ 
function getxhr009(newoptiontext, sessionkey) {
   var xhr;
   var openargs = "";
   
   openargs += "func" + "=" + "addlistentry";   
   openargs += "&";
   openargs += "newot" + "=" + newoptiontext;
   openargs += "&";
   openargs += "sessionkey" + "=" + sessionkey;
   //
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         if (xhr.responseText != "ok") {
            alert("An xhr error occurred." + "\n" + xhr.responseText);
         }
      }
   }
   xhr.open("POST", "/xhr/xhr001a.php", true);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);
}
/**
 * getxhr010 function for updatestrbound dgc columns
 */ 
function getxhr010(ztid, page, wherevalue, sessionkey) {
   var xhr;
   var openargs = "";
   var ztvalue = getValue(ztid);
   var xhrresponses = new Array();
   //
   openargs += "func"       + "=" + "str01";  
   openargs += "&";
   openargs += "ztvalue"       + "=" + ztvalue;
   openargs += "&";
   openargs += "wherevalue" + "=" + wherevalue; 
   openargs += "&";
   openargs += "sessionkey" + "=" + sessionkey;
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         xhrresponses = getElements1(xhr.responseText);
         if(xhrresponses[0] != "(***error***)") {
            setValue(ztid, xhrresponses[0]);
            setClass(ztid, xhrresponses[1]);
         }
         if(xhrresponses[2] != "") {
            xhralert(xhrresponses[2], "", "", "");
         }
      }
   }
   xhr.open("POST", page, false);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);
}
/**
 * getxhr011 function for usastrbound dgc columns
 */ 
function getxhr011(ztid, page, idkey, sessionkey) {
   var xhr;
   var openargs = "";
   var ztvalue = getValue(ztid);
   var xhrresponses = new Array();
   //
   openargs += "func" + "=" + "str02";  
   openargs += "&";
   openargs += "ztvalue" + "=" + ztvalue;
   openargs += "&";
   openargs += "idkey" + "=" + idkey; 
   openargs += "&";
   openargs += "sessionkey" + "=" + sessionkey;
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         xhrresponses = getElements1(xhr.responseText);
         if(xhrresponses[0] != "(***error***)") {
            setValue(ztid, xhrresponses[0]);
            setClass(ztid, xhrresponses[1]);
				if(typeof postusanbcols == 'function') {
					postusanbcols();
				}
			}
         if(xhrresponses[2] != "") {
            xhralert(xhrresponses[2], "", "", "");
         }
      }
   }
   xhr.open("POST", page, false);
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);
}
/**
 */
function getxhrdata2(task, otheropenargs, successfuncname) {
   var page = "/xhr/xhrdata.php";
   var xhr;
   var openargs;
   var myrt = "";
   //
   openargs = "task=" + task;
   if(otheropenargs != "") {
      openargs += "&";
      openargs += otheropenargs;
   }
   //
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         myrt = xhr.responseText;
         // --- remove codes 13 and 10 if present
			if (myrt.charCodeAt(myrt.length-2) == 13 && myrt.charCodeAt(myrt.length-1) == 10) {
            myrt = myrt.substring(0, myrt.length-2);
         }
         if (myrt == 'KO') {
            alert("An xhrdata error occurred in task " + task);
         } else {
				window[successfuncname](myrt);
			}
      }
   }   
   xhr.open("POST", page, false);  
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);   
}
/**
 */ 
function getxhrdata(task, otheropenargs) {
   var page = "/xhr/xhrdata.php";
   var xhr;
   var openargs;
   var elems = new Array();
   var myrt = "";
   //
   openargs = "task=" + task;
   if(otheropenargs != "") {
      openargs += "&";
      openargs += otheropenargs;
   }
   //
   if (window.XMLHttpRequest) {
      xhr = new XMLHttpRequest();
   } else {
      xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
   }
   xhr.onreadystatechange = function() {
      if (xhr.readyState==4 && xhr.status==200) {
         myrt = xhr.responseText;
         // --- remove codes 13 and 10 if present
			if (myrt.charCodeAt(myrt.length-2) == 13 && myrt.charCodeAt(myrt.length-1) == 10) {
            myrt = myrt.substring(0, myrt.length-2);
         }
         if (myrt == 'KO') {
            alert("An xhrdata error occurred in task " + task);
         } else {
            if (myrt.length > 0) {
					elems = getElements(myrt);
					refreshElements(elems);
				}
			}
      }
   }   
   xhr.open("POST", page, false);  
   xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
   xhr.send(openargs);   
}
/**
 * getxhrlib1 xhr page call with task parameter, then submit form
 * - utiliser addSessionParam() sur les boutons ToolbarButtonXhrGeneric pour ajouter d'autres paramètres pour la page appelée.
 */ 
function getxhrlib1(page, strformid, strdba, strdboa, strtask) {
	var xhr;
   var openargs = "";
   openargs += "task" + "=" + strtask;
	showWaitzone(true);
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			showWaitzone(false);
			xhralert(xhr.responseText, strformid, strdba, strdboa);
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * getxhrlib2 xhr page call with task parameter
 * - WITH confirm
 * - no form submit
 * - can send field values from JS to called php page
 * - can redefine specific values using responseText  
 */ 
function getxhrlib2(page, strtask, objform, strfields) {
   var xhr;
   var openargs = "";
   var fields = new Array();
   var i;
   var fieldname;
   var fieldtype;
   var fieldvalue;
   var nbfields = 0;
   var myrt;
   var elems = new Array();
   openargs += "task" + "=" + strtask;
   //
   fields = getElements(strfields);
   nbfields = fields.length;
   for (i = 0; i <= nbfields-1; i++) {
      fieldname = fields[i][0];
      fieldtype = fields[i][1];
      fieldvalue = getFieldValue(fieldname, fieldtype, objform);
      openargs += "&";
      openargs += fieldname;
      openargs += "=";
      openargs += fieldvalue;
   }
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt.charCodeAt(myrt.length-2) == 13 && myrt.charCodeAt(myrt.length-1) == 10) {
				myrt = myrt.substring(0, myrt.length-2);
			}
			elems = getElements2(myrt);
			updateFieldValues(elems, objform);
			showErrors(elems);
			showInfos(elems);
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * getxhrlib3()
 * - WITHOUT confirm
 */ 
function getxhrlib3(page, strtask, objform, strfields, strextraparams) {
   var xhr;
   var openargs = "";
   var fields = new Array();
	var extraparams = new Array();
   var i;
   var fieldname;
   var fieldtype;
   var fieldvalue;
   var nbfields = 0;
	var extraparamname;
	var extraparamstrvalue;
	var nbextraparams = 0;
   var myrt;
   var elems = new Array();
   openargs += "task" + "=" + strtask;
   //
   fields = getElements(strfields);
   nbfields = fields.length;
	for (i = 0; i <= nbfields-1; i++) {
      fieldname = fields[i][0];
      fieldtype = fields[i][1];
      fieldvalue = getFieldValue(fieldname, fieldtype, objform);
      openargs += "&";
      openargs += fieldname;
      openargs += "=";
      openargs += fieldvalue;
   }
	extraparams = getElements(strextraparams);
	nbextraparams = extraparams.length;
   for (i = 0; i <= nbextraparams-1; i++) {
      extraparamname = extraparams[i][0];
      extraparamstrvalue = extraparams[i][1];
      openargs += "&";
      openargs += extraparamname;
      openargs += "=";
      openargs += extraparamstrvalue;
   }	
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt.charCodeAt(myrt.length-2) == 13 && myrt.charCodeAt(myrt.length-1) == 10) {
				myrt = myrt.substring(0, myrt.length-2);
			}
			elems = getElements2(myrt);
			if (myrt != "") {
				updateFieldValues(elems, objform);
				showErrors(elems);
				showInfos(elems);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 */
function updateFieldValues(elems, objform) {
   var i = 0;
	var nbelems = elems.length;
   var errorflag = 0;
   //
   do {
      for (i = 0;  i < nbelems; i++) {
         if (elems[i][0] == "error") {
            errorflag = 1;
            break;
         }
      }
      if (errorflag == 1) {
         break;
      }
		for (i = 0;  i < nbelems; i++) {	
			if (elems[i][0] != "info") {
				setFieldValue(elems[i][0], elems[i][1], objform, elems[i][2]);
				isdirty = 1;
         }
      }
      break
   } while(0);
}
/**
 */
function showErrors(elems) {
   var i;
	var msg = "";
	var sep = "";
   for (i in elems) {
      if (elems[i][0] == "error") {
         msg += sep;
			msg += elems[i][2];
			sep = "<br /><br />";
      }
   }
	if (msg != "") {
		xhralert(msg, "", "", "");
	}
}
/**
 */
function showInfos(elems) {
   var i;
	var msg = "";
	var sep = "";
   for (i in elems) {
      if (elems[i][0] == "info") {
         msg += sep;
			msg += elems[i][2];
			sep = "<br /><br />";
      }
   }
	if (msg != "") {
		xhralert(msg, "", "", "");
	}
}
/**
 */
function deleteFromTab(strsourcetable, intconnection, strsource, strwherevalue, booquotes, straction, stropenargs, strform) {
   var page = "/xhr/xhrdata.php";
   var xhr;
   var openargs = "";  
   var task = "deleteFromTab";
   var strquestion = "Supprimer cette ligne";
   var myrt = "";
   //
   openargs += "task=" + task;
   openargs += "&";
   openargs += "strsourcetable=" + strsourcetable;
   openargs += "&";
   openargs += "intconnection=" + intconnection;
   openargs += "&";
   openargs += "strsource=" + strsource;
   openargs += "&";
   openargs += "strwherevalue=" + strwherevalue;
   openargs += "&";
   openargs += "booquotes=" + booquotes;
   //
   if (confirm(strquestion + " ?")) {
      if (window.XMLHttpRequest) {
         xhr = new XMLHttpRequest();
      } else {
         xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
      }
      xhr.onreadystatechange = function() {
         if (xhr.readyState==4 && xhr.status==200) {
            myrt = xhr.responseText;
            // --- remove codes 13 and 10 if present
            if (myrt.charCodeAt(myrt.length-2) == 13 && myrt.charCodeAt(myrt.length-1) == 10) {
               myrt = myrt.substring(0, myrt.length-2);
            }
            if (myrt != "ok") {
               alert("Echec de la suppression.");
            }  
            setAction2(straction, stropenargs, strform);
         }
      }
      xhr.open("POST", "/xhr/xhrdata.php", true);
      xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
      xhr.send(openargs);
   }
}
/**
 */
function getCookie(cookiename) {
   if (document.cookie.length>0) {
      cookiestart=document.cookie.indexOf(cookiename + "=");
      if (cookiestart!=-1) {
         cookiestart=cookiestart + cookiename.length+1;
         cookieend=document.cookie.indexOf(";",cookiestart);
         if (cookieend==-1) {
            cookieend=document.cookie.length;
			}	
         return unescape(document.cookie.substring(cookiestart,cookieend));
      }
   }
   return "";
}
function setCookie(cookiename, value, expiredays) {
   var expiredate=new Date();
   expiredate.setDate(expiredate.getDate()+expiredays);
   document.cookie=cookiename+ "=" +escape(value)+((expiredays==null) ? "" : ";expires="+expiredate.toGMTString());
}
/**
 */
function checkCookies() {
   var cookievalue;
   cookievalue=getCookie("PSASESSION");
   if (cookievalue == "" || cookievalue == null) {
      var myprotocol=document.location.protocol;
      var myhost=document.location.host;
      var myurl=myprotocol+"//"+myhost+"/"+"errors"+"/"+"nocookies.php";
      if (document.location.href != myurl) {
         jumpto(myurl);
      }
   }
} 
/**
 */
function updateCalendar() {
	var timediv = $("#home_time");
	var datediv = $("#home_date");
	var datedivhtml = datediv.html();
   var jours = new Array();
   var mois = new Array();
   var langue = -1;
   var maintenant = new Date();
   var html = "";
   var hh = maintenant.getHours();
   var mm = maintenant.getMinutes();
   var timedata = "";
   var datedata = "";
	if (hh < 10) {
      hh = "0" + hh;
   }
   if (mm < 10) {
      mm = "0" + mm;
   }   
   //---
   jours[0]=new Array("dimanche", "Sunday", "Sonntag");
   jours[1]=new Array("lundi", "Monday", "Montag");   
   jours[2]=new Array("mardi", "Tuesday", "Dienstag");   
   jours[3]=new Array("mercredi", "Wednesday", "Mittwoch");   
   jours[4]=new Array("jeudi", "Thursday", "Donnerstag");   
   jours[5]=new Array("vendredi", "Friday", "Freitag");
   jours[6]=new Array("samedi", "Saturday", "Samstag");   
   //---
   mois[0]=new Array("janvier", "January", "Januar");
   mois[1]=new Array("février", "February", "Februar");
   mois[2]=new Array("mars", "March", "März");
   mois[3]=new Array("avril", "April", "April");
   mois[4]=new Array("mai", "May", "Mai");
   mois[5]=new Array("juin", "June", "Juni");
   mois[6]=new Array("juillet", "July", "Juli");
   mois[7]=new Array("août", "August", "August");
   mois[8]=new Array("septembre", "September", "September");
   mois[9]=new Array("octobre", "October", "Oktober");
   mois[10]=new Array("novembre", "November", "November");
   mois[11]=new Array("décembre", "December", "Dezember");
   //
	for (var i=0; i <= 6; i++) {
      if (datedivhtml.search(jours[i][0]) >= 0) {
         langue = 0;
			break;
      }
      if (datedivhtml.search(jours[i][1]) >= 0) {
         langue = 1;
			break;
      }   
      if (datedivhtml.search(jours[i][2]) >= 0) {
         langue = 2;
			break;
      }   
   }
   if (langue == -1) {
      langue = 0;
   }
   //
	timedata = hh;
	timedata += ":";
	timedata += mm;
   //
	datedata = jours[maintenant.getDay()][langue];
   datedata += " ";
	datedata += maintenant.getDate();
	datedata += " ";
   datedata += mois[maintenant.getMonth()][langue];
	datedata += " ";
	datedata += maintenant.getFullYear();	 
   //
	timediv.html(timedata);
	datediv.html(datedata);
}
/**
 */
function checkgebi() {
   if (!document.getElementById) {
      var myprotocol=document.location.protocol;
      var myhost=document.location.host;
      var myurl=myprotocol+"//"+myhost+"/"+"errors"+"/"+"nogebi.php";
      if (document.location.href != myurl) {
         jumpto(myurl);
      }
   }
}
/**
 */
function checkxhr() {
   var myxhrcapable=1;
   var myprotocol=document.location.protocol;
   var myhost=document.location.host;
   var myurl=myprotocol+"//"+myhost+"/"+"errors"+"/"+"noxhr.php";   
   do {
      if (window.XMLHttpRequest) {
         // ok
         break;
      }
      if (window.ActiveXObject) {
         // ok too
         break;
      }
      // KO !
      myxhrcapable=0;
      break;
   } while(1);
   if (myxhrcapable != 1) {
      if (document.location.href != myurl) {
         jumpto(myurl);
      }
   }
}
/**
 */
function jumpto(mydestination) {
	window.location.href=mydestination;
}
/**
 */
function txterasor(ctrlid, formid, dba, dboa, requeryflag) {
   document.getElementById(ctrlid).value = "";
   if (requeryflag) {
      submitform(formid, dba, dboa);
   }
}
/**
 */
function ctrldatefavourite(ctrlid, formid, dba, dboa, requeryflag, favouriteval) {
   document.getElementById(ctrlid).value = favouriteval;
	isdirty = 1;
   if (requeryflag) {
      submitform(formid, dba, dboa);
   }
}
/**
 */
function callDocviewer(sd, fn, ex, ct, strform) {
   var straction = "";
   var stropenargs = "";
   straction = "/tools/docviewer.php";
   stropenargs += "sd";
   stropenargs += "=";
   stropenargs += sd;
   stropenargs += "&";
   stropenargs += "fn";
   stropenargs += "=";
   stropenargs += fn;
   stropenargs += "&";   
   stropenargs += "ex";
   stropenargs += "=";
   stropenargs += ex;
   stropenargs += "&";     
   stropenargs += "ct";
   stropenargs += "=";
   stropenargs += ct;
   document[strform].action = straction;
   if (ex == "pdf") {
		document[strform].target = "_blank";
   }
	document[strform].ztopenargs.value = stropenargs;
   document.getElementById(strform).submit();
	document[strform].target = "_self";
}
/**
 */
function setAction1AfterConfirmation(straction, stropenargs, strform) {
	document[strform].ztstate.value = "";
	document[strform].action=straction;
	document[strform].ztopenargs.value=stropenargs;
	document[strform].submit();
}
/**
 */
function setAction1(straction, stropenargs, strform) {
	if(typeof setAction1Before == 'function') {
		setAction1Before();
	}
	document[strform].action=straction;
   document[strform].ztopenargs.value=stropenargs;
}
/**
 */
function setAction2(straction, stropenargs, strform) {
	document[strform].action=straction;
   document[strform].ztopenargs.value=stropenargs;
   document.getElementById(strform).submit();
}
/**
 */
function requeryOrderBy(straction, stropenargs, strform, strorderby) {
   document[strform].action = straction;
   document[strform].ztopenargs.value = stropenargs;
   document[strform].ztorderby.value = strorderby;
   document.getElementById(strform).submit();
}
/**
 */
function pause(strmsg) {
   xhralert(strmsg, "", "", "");
}
/**
 */
function hidestatusbar() {
   window.status = "";
   return true;
}
/**
 * --- speed ! ---
 */ 
function hsb() {
   window.status = "";
   return true;
}
/**
 */
function formaterReferenceBVR(dcreferencebvr, nbpos, boospacing) {
	var result = "";
	var lon = strlen(dcreferencebvr);
	var txt = "";
	//
	if (lon > nbpos) {
		txt = substr(dcreferencebvr, 0, nbpos);
	} else {
		txt = str_repeat("0", nbpos-lon) + dcreferencebvr;
	}
	if (boospacing) {
		if (nbpos == 27) {
			result = substr(txt, 0, 2);
			result += " ";
			result += substr(txt, 2, 5);
			result += " ";
			result += substr(txt, 7, 5);			
			result += " ";
			result += substr(txt, 12, 5);			
			result += " ";
			result += substr(txt, 17, 5);			
			result += " ";
			result += substr(txt, 22, 5);		
		} else {
			result = substr(txt, 0, 5);
			result += " ";
			result += substr(txt, 5, 5);			
			result += " ";
			result += substr(txt, 10, 5);	
		}
	} else {
		result = txt;
	}
	return result;
}
/**
 * aperçu d'un modèle de message sous forme de page html (variante 2)
 * - source à retrouver dans temailstemplates
 * - fichier tpl*.php variable
 */
function xhremttesthtml2(idfield, idfieldtype, formid, lang, tplfn) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "emttesthtml2";
	var emt = getFieldValue(idfield, idfieldtype, formid);
	if (emt == null || emt == "") {
		emt = "0";
	}
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "emt" + "=" + emt;
	openargs += "&";
	openargs += "lang" + "=" + lang;
	openargs += "&";
	openargs += "tplfn" + "=" + tplfn;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * affichage d'un document de ma bibliothèque (format html)
 * champs source présents sur le formulaire (mémo et titre)
 */
function xhrmabibliohtml(sourcememo, sourcetitre, sourceauthor, sourcedate, sourceid) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "mabibliohtml";
	var encodedurimemo = encodeURIComponent(tinyMCE.get(sourcememo).getContent());
	var encodedurititle = encodeURIComponent(document.getElementById(sourcetitre).value);
	var encodeuriauthor = encodeURIComponent(document.getElementById(sourceauthor).value);
	var encodeuridate = encodeURIComponent(document.getElementById(sourcedate).value);
	var encodeuriid = encodeURIComponent(document.getElementById(sourceid).value);
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "memo" + "=" + encodedurimemo;
	openargs += "&";
	openargs += "title" + "=" + encodedurititle;
	openargs += "&";
	openargs += "author" + "=" + encodeuriauthor;
	openargs += "&";
	openargs += "date" + "=" + encodeuridate;
	openargs += "&";
	openargs += "id" + "=" + encodeuriid;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * affichage champ memo contenant du html sous forme de nouvel onglet
 */
function xhrCallHtmlViewer(xhrtablename, xhrpkfieldname, xhrcleunik, xhrhtmlfieldname, xhrtitle, xhrauthor, xhrdate, xhrtemplate) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "htmlmemoviewer";
	var encodexhrtablename = encodeURIComponent(xhrtablename);
	var encodexhrpkfieldname = encodeURIComponent(xhrpkfieldname);
	var encodexhrcleunik = encodeURIComponent(xhrcleunik);
	var encodexhrhtmlfieldname = encodeURIComponent(xhrhtmlfieldname);
	var encodexhrtitle = encodeURIComponent(xhrtitle);
	var encodexhrauthor = encodeURIComponent(xhrauthor);
	var encodexhrdate = encodeURIComponent(xhrdate);
	var encodexhrtemplate = encodeURIComponent(xhrtemplate);
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "tablename" + "=" + encodexhrtablename;
	openargs += "&";
	openargs += "pkfieldname" + "=" + encodexhrpkfieldname;
	openargs += "&";
	openargs += "cleunik" + "=" + encodexhrcleunik;
	openargs += "&";
	openargs += "htmlfieldname" + "=" + encodexhrhtmlfieldname;
	openargs += "&";	
	openargs += "title" + "=" + encodexhrtitle;
	openargs += "&";	
	openargs += "author" + "=" + encodexhrauthor;
	openargs += "&";	
	openargs += "date" + "=" + encodexhrdate;
	openargs += "&";	
	openargs += "template" + "=" + encodexhrtemplate;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * affichage d'une faq sous forme de page html
 * champs source présents sur le formulaire (mémo, titre, auteur, date, cleunik)
 */
function xhrfaqhtml(sourcememo, sourcetitre, sourceauthor, sourcedate, sourceid) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "faqhtml";
	var encodedurimemo = encodeURIComponent(tinyMCE.get(sourcememo).getContent());
	var encodedurititle = encodeURIComponent(document.getElementById(sourcetitre).value);
	var encodeuriauthor = encodeURIComponent(document.getElementById(sourceauthor).value);
	var encodeuridate = encodeURIComponent(document.getElementById(sourcedate).value);
	var encodeuriid = encodeURIComponent(document.getElementById(sourceid).value);
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "memo" + "=" + encodedurimemo;
	openargs += "&";
	openargs += "title" + "=" + encodedurititle;
	openargs += "&";
	openargs += "author" + "=" + encodeuriauthor;
	openargs += "&";
	openargs += "date" + "=" + encodeuridate;
	openargs += "&";
	openargs += "id" + "=" + encodeuriid;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * affichage d'une procédure sous forme de page html
 * champs source présents sur le formulaire
 */
function xhrprochtmlvar1(sourcememo, sourcetitre, sourceauthor, sourcedate, sourceid) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "prochtmlvar1";
	var encodedurimemo = encodeURIComponent(tinyMCE.get(sourcememo).getContent());
	var encodedurititle = encodeURIComponent(document.getElementById(sourcetitre).value);
	var encodeuriauthor = encodeURIComponent(document.getElementById(sourceauthor).value);
	var encodeuridate = encodeURIComponent(document.getElementById(sourcedate).value);
	var encodeuriid = encodeURIComponent(document.getElementById(sourceid).value);
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "memo" + "=" + encodedurimemo;
	openargs += "&";
	openargs += "title" + "=" + encodedurititle;
	openargs += "&";
	openargs += "author" + "=" + encodeuriauthor;
	openargs += "&";
	openargs += "date" + "=" + encodeuridate;
	openargs += "&";
	openargs += "id" + "=" + encodeuriid;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * affichage d'un howto sous forme de page html
 * champs source présents sur le formulaire (mémo et titre)
 */
function xhrhowtohtml(sourcememo, sourcetitre, sourceauthor, sourcedate, sourceid) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "howtohtml";
	var encodedurimemo = encodeURIComponent(tinyMCE.get(sourcememo).getContent());
	var encodedurititle = encodeURIComponent(document.getElementById(sourcetitre).value);
	var encodeuriauthor = encodeURIComponent(document.getElementById(sourceauthor).value);
	var encodeuridate = encodeURIComponent(document.getElementById(sourcedate).value);
	var encodeuriid = encodeURIComponent(document.getElementById(sourceid).value);
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "memo" + "=" + encodedurimemo;
	openargs += "&";
	openargs += "title" + "=" + encodedurititle;
	openargs += "&";
	openargs += "author" + "=" + encodeuriauthor;
	openargs += "&";
	openargs += "date" + "=" + encodeuridate;
	openargs += "&";
	openargs += "id" + "=" + encodeuriid;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * affichage d'une procédure sous forme de page html
 */
function xhrprochtml(proccleunik) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "prochtml";
	var encodedproccleunik = encodeURIComponent(proccleunik);
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "proccleunik" + "=" + encodedproccleunik;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * aperçu d'un modèle de message sous forme de page html
 * champ source présent sur le formulaire
 */
function xhremttesthtml(sourcefield, lang) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "emttesthtml";
	var encodeduri = encodeURIComponent(tinyMCE.get(sourcefield).getContent());
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "msg" + "=" + encodeduri;
	openargs += "&";
	openargs += "lang" + "=" + lang;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				window.open(myrt, "_blank");
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * envoi d'un e-mail de test à soi-même avec message modal.
 */
function xhrmodaltestmail(subjectfield, sourcefield, lang, windowtitle) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "modaltestmail";
	var encodeduri = encodeURIComponent(tinyMCE.get(sourcefield).getContent());
	var subject = $('#'+subjectfield).val();
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "subject" + "=" + "TEST MESSAGE " + subject;	
	openargs += "&";
	openargs += "msg" + "=" + encodeduri;
	openargs += "&";
	openargs += "lang" + "=" + lang;
	openargs += "&";
	openargs += "title" + "=" + windowtitle;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				$("#modalzone2").html(myrt);
				showModalzones(true);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * aperçu du contenu d'un contrôle comme message modal
 */
function xhrmodalpreview1(sourcefield, windowtitle) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "modalpreview1";
	var encodeduri = encodeURIComponent(tinyMCE.get(sourcefield).getContent());
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "msg" + "=" + encodeduri;	
	openargs += "&";
	openargs += "title" + "=" + windowtitle;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				$("#modalzone2").html(myrt);
				showModalzones(true);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * aperçu du contenu d'un champ texte d'une table, comme message modal
 * stridfieldname est le nom du champ de formulaire dont la valeur servira à retrouver l'ID du record à rechercher
 */
function xhrmodalpreview2(strsourcetablename, strpkfieldname, strsourcefieldname, stridfieldname, stridfieldtype, stridfieldform, windowtitle) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "modalpreview2";
	var stridfieldvalue = getFieldValue(stridfieldname, stridfieldtype, stridfieldform);
	if (stridfieldvalue == null || stridfieldvalue == "") {
		stridfieldvalue = "0";
	}
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "tbl" + "=" + strsourcetablename;
	openargs += "&";
	openargs += "pkf" + "=" + strpkfieldname;
	openargs += "&";
	openargs += "fld" + "=" + strsourcefieldname;	
	openargs += "&";
	openargs += "strid" + "=" + stridfieldvalue;	
	openargs += "&";
	openargs += "title" + "=" + windowtitle;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				$("#modalzone2").html(myrt);
				showModalzones(true);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * xhralert()
 * JS alert() replacement with xhr
 * strformid != "" => form will be submited after OK press
 */
function xhralert(txtmsg, strformid, strdba, strdboa) {
   var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "xhralert";
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "txtmsg" + "=" + txtmsg;
	openargs += "&";
	openargs += "strformid" + "=" + strformid;
	openargs += "&";
	openargs += "strdba" + "=" + strdba;
	openargs += "&";
	openargs += "strdboa" + "=" + strdboa;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				$("#modalzone9").html(myrt);
				showModalzones89(true);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 * xhralert()
 * JS alert() replacement with xhr
 */
function xhrconfirm(quesfuncpara) {
	var xhr;
   var myrt = "";
	var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "xhrconfirm";
	//
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "quesfuncpara" + "=" + quesfuncpara;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
			} else {
				$("#modalzone9").html(myrt);
				showModalzones89(true);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}	
/**
 * xhr image selector 1
 */
function xhrimgselector1(booshowwaitzone, formid, targetfield, dir, validext, maxcars, limit, maxsize) {
   var xhr;
   var openargs = "";
	var page = "/xhr/xhrlib1.php";
	var strtask = "imgselector1";
	//
	if (booshowwaitzone == 1) {
		showWaitzone(true);		
	}
	openargs += "task" + "=" + strtask;	
	openargs += "&";
	openargs += "formid" + "=" + formid;	
	openargs += "&";
	openargs += "targetfield" + "=" + targetfield;
	openargs += "&";
	openargs += "targetfieldcurval" + "=" + getFieldValue(targetfield, "CtrlText", formid);
	openargs += "&";
	openargs += "dir" + "=" + dir;
	openargs += "&";
	openargs += "validext" + "=" + validext;
	openargs += "&";
	openargs += "maxcars" + "=" + maxcars;
	openargs += "&";
	openargs += "limit" + "=" + limit;
	openargs += "&";
	openargs += "maxsize" + "=" + maxsize;
	//
	if (window.XMLHttpRequest) {
		xhr = new XMLHttpRequest();
	} else {
		xhr = new ActiveXObject("Microsoft.XMLHTTP"); 
	}
	xhr.onreadystatechange = function() {
		if (xhr.readyState==4 && xhr.status==200) {
			myrt = xhr.responseText;
			if (myrt == "KO") {
				alert("An xhr error occurred in function " + strtask + "() on page " + page);
				showWaitzone(false);
			} else {
				$("#modalzone2").html(myrt);
				showWaitzone(false);
				showModalzones(true);
			}
		}
	}
	xhr.open("POST", page, true);
	xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
	xhr.send(openargs);
}
/**
 */
function eraseModalzone2() {
	$("#modalzone2").html("");
}
/**
 */
function eraseModalzone9() {
	$("#modalzone9").html("");
}
/**
 */
function modalGalleryOnPictureSelected1(ctrltextid, newvalue, newsource, newwidth, newheight, newtitle, boosetdirty) {
	changeCtrlTextImage(ctrltextid, newvalue, newsource, newwidth, newheight, newtitle, boosetdirty);
	showModalzones(false);
	eraseModalzone2();
}
/**
 */
function dateansinow(format) {
	format = format || "aaaa-mm-jj";
	var myresult = ""; 
	var today = new Date();
	var dd = today.getDate();
	var mm = today.getMonth()+1;
	var yyyy = today.getFullYear();
	//
	switch (format) {
		case "aaaa-mm-jj":
         myresult = sprintf("%04d-%02d-%02d", yyyy, mm, dd);      
         break;
		case "aaaa-mm":
         myresult = sprintf("%04d-%02d", yyyy, mm);
         break;
	}
	return myresult;
}
/**
 */
function getCHDateFromISODate(strisodate) {
   // assuming strisodate format is yyyy-mm-dd or ""
   var result = "";
   var bribes = new Array();
   //
   if (strisodate != "") {
      bribes = strisodate.split("-");
      result = bribes[2] + "." + bribes[1] + "." + bribes[0];
   }   
   return result;
}
/**
 */
<!--
/* ============================================================================== */
var MyBox = null;
var ns4 = (document.layers)? true:false;   			//NS 4 
var ie4 = (document.all)? true:false;   				//IE 4 
var dom = (document.getElementById)? true:false;   //DOM
var myloops = 0;                                   // loops counter
// var loopsbeforerefresh = 0;                        // page refresh threshold
var loopsbeforerefresh = 5;                        // page refresh threshold
function Panel1366x768Init()
	{
	MyBox = new Box('MyBox', 'conteneur', 3, 1, 1000, 400);
   MyBox.start();
  }
function GetNS4Object(MyID,MyDocument)
	{
	var MyObject= eval('MyDocument.'+MyID);
  if (!(MyObject))
  	for(var i=0;i<MyDocument.layers.length;i++)
			{
			MyObject = GetNS4Object(MyID,MyDocument.layers[i].document);
			if (MyObject) break;
			}
  return MyObject;
  }


function GetObject(MyID)
	{
  if (dom) return document.getElementById(MyID);
  if (ie4) return document.all[MyID];
  if (ns4) return GetNS4Object(MyID,window.document);
  return 0;
	} 

function GetCSS(MyObject)
	{
  if (dom || ie4) return MyObject.style;
  else if (ns4) return MyObject;
  else return 0;
	}

function GetHeight(MyObject)
	{ 
  if (dom || ie4) return MyObject.offsetHeight;
  else if (ns4) return MyObject.clip.height;
  else return 0;
	}
	
function GetWidth(MyObject)
	{ 
  if (dom || ie4) return MyObject.offsetWidth;
  else if (ns4) return MyObject.clip.width;
  else return 0;
	}

function GetTop(MyObject)
	{ 
  if (dom || ie4) 
  	return (MyObject.offsetTop);
  if (ns4) return MyObject.y;
  	return 0;
	}

function GetLeft(MyObject)
	{ 
  if (dom || ie4) return MyObject.offsetLeft;
  if (ns4) return MyObject.x;
  return 0;
	}

function MoveObject(myX,myY)
	{
  this.X = myX;
  this.Y = myY;
  this.CSS.left=this.X;
  this.CSS.top=this.Y;
  }

function MoveObjectUp(mystep)
	{
  this.Y -= mystep;
  this.CSS.top=this.Y;
  }

function MoveObjectDown(mystep)
	{
  this.Y += mystep;
  this.CSS.top=this.Y;
  }

function CreateObject(DivId,MyObject)
		{
    if (MyObject)
    	this.Object = MyObject;
    else
    	this.Object = GetObject(DivId);
    
    if (this.Object)
    	{
      this.CSS = GetCSS(this.Object);
      this.Height = GetHeight(this.Object);
      this.Width = GetWidth(this.Object);
      this.X = GetTop(this.Object);
      this.Y = GetLeft(this.Object);
      this.Move = MoveObject;
      this.Up = MoveObjectUp;
      this.Down = MoveObjectDown;
      }
    return this;
    }

function DelTextNode(MyObject)
	{
  var node = MyObject.firstChild;
  var next;

  while (node)
  	{
    next = node.nextSibling;
    if (node.nodeType == 3)
      MyObject.removeChild(node);
    node = next;
  	}
  }

function CreateChildren(MyObject,HoriSpacer,VertSpacer)
	{
  var i=0;
  var MyChildren = new Array();
  if (dom)
  	{
    DelTextNode(MyObject);
    for (i=0;i<MyObject.childNodes.length;i++)
    	{
    	MyChildren[i] = new CreateObject(0,MyObject.childNodes[i]);
      MyChildren[i].Move(i*HoriSpacer,i*VertSpacer);
      }
    return MyChildren;
    }
  if (ie4)
  	{
    for (i=0;i<MyObject.children.length;i++)
    	{
      MyChildren[i] = new CreateObject(0,MyObject.children(i));
      MyChildren[i].Move(i*HoriSpacer,i*VertSpacer);
      }
    return MyChildren;
    }
  if (ns4)
  	{
    for (i=0;i<MyObject.document.layers.length;i++)
    	{
      MyChildren[i] = new CreateObject(0,MyObject.layers[i]);
      MyChildren[i].Move(i*HoriSpacer,i*VertSpacer);
      }
    return MyChildren;   
    }
  }

function ScrollUp()
	{
  var MyInterval = this.Interval1;
  this.stop();
  if (this.Children[this.FirstChildren].Y<-this.threshold)
  	{
    MyInterval = this.Interval2;
 	  this.Children[this.FirstChildren].Down(this.TotalHeight);
    if (this.FirstChildren<this.Children.length-1)
    	{
    	this.FirstChildren++;
      this.threshold += this.Children[this.FirstChildren].Height;
      }
    else
    	{
    	this.FirstChildren = 0;
      this.threshold = this.Children[this.FirstChildren].Height+this.Spacer;
      myloops++;
      /* refresh page after n loops */
      if (myloops > loopsbeforerefresh) {
         jumpto("/panel-1366x768.php");
      }
      }
    }
	for (var i=0;i<this.Children.length;i++)
  	{
    this.Children[i].Up(this.Step);
    }
  this.ProcessId = setTimeout(this.name + '.start()', MyInterval);
  }

  
function ScrollStop()
	{
  if (this.ProcessId)
    clearTimeout(this.ProcessId);
  this.ProcessId = null;
	}

function Box(BoxName, DivId, myStep, myTempo1, myTempo2, mySpacer)
	{
  this.name     = BoxName;
  this.Step  = myStep ? myStep : 1;
  this.Interval1 = myTempo1 ? myTempo1 : 100;
  this.Interval2 = myTempo2 ? myTempo2 : 100;
  this.Spacer = mySpacer ? mySpacer : 0;
  this.ProcessId	= null;
  this.Container = new CreateObject(DivId);
  this.Children = new CreateChildren(this.Container.Object,0,mySpacer);
  this.FirstChildren = 0;
  this.LastChildren = this.Children.length-1;
  this.threshold = this.Children[0].Height+this.Spacer;
  var myHeight = 0;
  for (var i=0;i<this.Children.length;i++) 
  	{
    myHeight += (this.Children[i].Height + this.Spacer);
    }
  this.TotalHeight = myHeight;
  this.Container.visibility = 'visible';
	}

Box.prototype.start = ScrollUp;
Box.prototype.stop = ScrollStop;
/* ============================================================================== */
//-->