var v4DLink = "/4DLINK12/4DCGI/"
//fabrique un cookie
function cookieset() {
 var cookies = document.cookie;
 if (cookies.indexOf("ID=")>=0) {return;}
 document.cookie = "ID=op; path=/";
}

function envoi(com,url){
    var d = document.form;
    d.i_com.value = com; //alert(d.i_com.value);
    if (com == "Printer") {d.i_export.selectedIndex=0;d.i_export2.selectedIndex=0;pageprint();return true;}
    if (com == "Excel") {d.i_export.selectedIndex=0;d.i_export2.selectedIndex=0;sendexcel();return true;}
    else {
    if (url == "s") {d.action =v4DLink+'Resumes.search#list'}
    if (url == "c") {d.action =v4DLink+'Resumes.comptes'}
    d.submit();
    }
}

function pageprint(){
    var d = document.form;
    var tri=d.i_tri[d.i_tri.selectedIndex].value; 
    var lot=d.i_lot[d.i_lot.selectedIndex].value; 
    var fmt=d.i_format[d.i_format.selectedIndex].value; 
    var p=d.i_nopage.value; 
    var ser=d.i_serie.value; 
    var gar=d.i_garde.value; 
    var ens=d.i_ens.value;
    var code=d.i_congres.value;
    var url="?i_nopage="+p+"&i_tri="+tri+"&i_lot="+lot+"&i_format="+fmt+"&i_serie="+ser+"&i_garde="+gar+"&i_ens="+ens+"&i_congres="+code;
    //alert(url);
    affichresum(v4DLink+'Resumes.exp.print'+url);
    //d.action = v4DLink+'Resumes.print'+url;d.submit();
}

function sendexcel(){
    var d = document.form;
    var tri=d.i_tri[d.i_tri.selectedIndex].value; 
    var lot=d.i_lot[d.i_lot.selectedIndex].value; 
    var fmt=d.i_format[d.i_format.selectedIndex].value; 
    var p=d.i_nopage.value; 
    var ser=d.i_serie.value; 
    var gar=d.i_garde.value; 
    var ens=d.i_ens.value;
    var code=d.i_congres.value;
    var url="?i_nopage="+p+"&i_tri="+tri+"&i_lot="+lot+"&i_format="+fmt+"&i_serie="+ser+"&i_garde="+gar+"&i_ens="+ens+"&i_congres="+code;
    //alert(url);
    window.open(v4DLink+'Resumes.exp.excel'+url,'');
}

// appele par menu deroulant Option
function listes(){
d = document.form; 
if (d.i_lchoix.selectedIndex == 0) {d.i_laction.selectedIndex=0;return false;} 
//if (d.i_lchoix.selectedIndex == 1) {creliste();}
if (d.i_laction.selectedIndex == 0) {return false;}

act = d.i_laction[d.i_laction.selectedIndex].value;//alert(act);
if (act =='') {d.i_laction.selectedIndex=0;return false;}
if (act == "open") {return false;} 
if (act == "view" && afliste() == false) {d.i_laction.selectedIndex=0;return false;} 
if (act == "ren" && renliste() == false) {d.i_laction.selectedIndex=0;return false;}
//if (act == "cre" && creliste() == false) {d.i_laction.selectedIndex=0;return false;}
//if (act == "save" && saveliste() == false) {d.i_laction.selectedIndex=0;return false;} 
if (act == "del" && delliste() == false) {d.i_laction.selectedIndex=0;return false;} 
if (act == "add" && addliste() == false) {d.i_laction.selectedIndex=0;return false;} 
//d.i_laction.selectedIndex=0;
// on est OK, envoyer
envoi("page","c");
d.i_laction.selectedIndex=0;//alert("fin");
}

//affiche une liste dans le compte
function afliste(){ //alert("hi "+d.i_lchoix.selectedIndex);
d = document.form; 
rlist = d.i_lchoix.selectedIndex;//alert(rlist);
if (rlist < 2) {d.i_laction.selectedIndex=0;return false;} 
if (d.i_serie.value != "") {
  if (confirm("Caution, this will replace the current selection. Do you want to continue?") == false)
   {return false;}
}
return true;
}

//ajoute une liste ˆ la liste courante
function addliste(){
d = document.form; 
rlist = d.i_lchoix.selectedIndex;//alert(rlist);
if (rlist < 2) {d.i_laction.selectedIndex=0;return false;} 
if (d.i_serie.value != "") {
  if (confirm("Caution, this will modify the current selection. Do you want to continue?") == false)
   {return false;}
}
return true;
}

//efface une liste dans le compte
function delliste(){
d = document.form; 
rlist = d.i_lchoix.selectedIndex;//alert(rlist);
if (rlist < 2) {d.i_laction.selectedIndex=0;return false;} 
	if(confirm("Do you really want to erase the list from your account?") == false)
	{d.i_laction.selectedIndex=0;return false;}
return true;
}

//renomme une liste dans le compte
function renliste(){
d = document.form; 
rlist = d.i_lchoix.selectedIndex;//alert(rlist);
	if (rlist <2) {d.i_laction.selectedIndex=0;return false;} 
	var lname=prompt("Please enter a new name","")
	if (lname==null || lname=="") {return false;}
	if (lname.length > 20 || legal(lname) == false) {alert("Invalid name.");return false;}
	var listeencours = d.i_list.value.toLowerCase(); ltemp = lname.toLowerCase();
	if (listeencours.indexOf(ltemp) != -1) {alert("List name already exists.");return false;}
	d.i_nlist.value=lname;
	return true;
}

//sauve (ajoute ou remplace) une recherche dans une liste du compte
function saveliste(){
	d = document.form; 
	var x = d.i_save.selectedIndex; a = d.i_save[x].value;
	d.i_save.selectedIndex = 0;	

	if (d.i_serie.value == "") {return false;}
	if (d.i_garde.value.indexOf("0") != -1) {
	alert("the current selection contains 'unselected' references. Please update before saving."); return false;}
	if(d.i_compte.value == ""){alert("No account open in which to save the results.");return false;}
	
	rlist = d.i_lchoix.selectedIndex;//alert(rlist);	
	if (d.i_laction.selectedIndex != 1) {
	alert("In your account, select and open a list in which you want to save the current results\nor create a new list."); return false;} 
	var lname = d.i_lchoix[rlist].value;
	if (a == "add") {
	if (confirm("Add the selection to content of list "+lname+"?") == false)
	{return false;}
	d.i_submit.value = "save";
	}
	if (a == "repl") 
	{if (confirm("Replace content of list "+lname+" by selection?") == false)
	{return false;} 
	d.i_submit.value = "repl";
	}
/*	if(confirm("Do you really want to save the current list as "+d.i_lchoix[rlist].value+" ?") == false)
	{d.i_laction.selectedIndex=0;return false;}
*/
	envoi("page","c");
return true;
}

//cree une liste nouvelle dans le compte
function creliste(){
	d = document.form; 
/*	if (d.i_lchoix.selectedIndex != 1) {return false;}
	if (d.i_serie.value == "") {return false;}
	if (d.i_garde.value.indexOf("0") != -1) {
		alert("the current list contains 'unselected' references. Please update before saving.");
		return false;
		}
*/
if (d.i_lchoix.selectedIndex != 1) {d.i_laction.selectedIndex = 0;return false;}
	var lname=prompt("Please enter a new list name","")
	if (lname==null || lname=="") {
	d.i_lchoix.selectedIndex = 0;
	d.i_laction.selectedIndex = 0;	
	return false;
	} else
	{
	var ltemp = lname.toLowerCase();
//	if (lname==null || lname=="") {return false;}
	if (lname.length > 20 || legal(lname) == false) {alert("Invalid name.");return false;}
	var listeencours = d.i_list.value.toLowerCase(); ltemp = lname.toLowerCase();
	if (listeencours.indexOf(ltemp) != -1) {alert("Name already exists.");return false;}
	d.i_nlist.value=lname;// alert(lname);
	d.i_lchoix.selectedIndex = 0;
	d.i_laction.selectedIndex = 0;	
	d.i_submit.value = "newlist";	
	envoi("page","c");
	}

}

function legal(n){
n = n.toLowerCase();
if (n == "lists") {return false;}//reserve
var valid="abcdefghijklmnopqrstuvwxyz1234567890"; c="";
for (i=0; i < n.length; i++) {
 c = n.charAt(i); if (valid.indexOf(c) <0) {return false;}
 } 
 return true;
}

function addsearch(){
 d = document.form;
  if (verifsearch() == false) {return false;}
 if (d.i_serie.value == "") {alert("There is no list to add to."); return false;}
 d.contr.value=""; envoi("add","s");
}

function ersearch(){
d = document.form.err.value;
if (d != "") {alert(d);}
}

function nsearch(){
 d = document.form;
  if (verifsearch() == false) {return false;}
  if (d.i_serie.value != "") {
  if (confirm("Caution, this will replace the current selection by a new one. Do you want to continue?") == false) {return false;}
}
d.contr.value=""; envoi("new","s");
}

function subsearch(){
 d = document.form;
  if (verifsearch() == false) {return false;}
 if (d.i_serie.value == "") {alert("There is no list to search in."); return false;}
 d.contr.value=""; envoi("sub","s");
}

//
function upsearch(){
 d = document.form;
 if (d.i_serie.value == "") {alert("There is no selection to update."); return false;}
 if (d.i_garde.value.indexOf("0")<0) {alert("No reference of the selection has been 'unselected'."); return false;}
 if (d.i_garde.value.indexOf("1")<0) {alert("All references of the selection have been 'unselected'."); return false;}
 d.contr.value=""; envoi("up","s");
}

function verifsearch() { d =document.form;
a = d.i_mot1.value +
	d.i_mot2.value +
	d.i_mot3.value +
	d.i_mot4.value + 
	d.i_mot5.value + 
	d.i_mot6.value +
	d.i_mot7.value +
	d.i_mot8.value +
	d.i_mot9.value + 
	d.i_mot10.value;//alert(a);
	if (a == "") 
	{ alert("At least one search criterium must be filled."); return false; }
	return true;
}

function clearlist(){
 d = document.form;
 if (d.i_serie.value == "") {return false;}
 if (confirm("Do you want to clear the current selection?") == false)
	{d.i_laction.selectedIndex=0;return false;}
 envoi('clear',"c");
}

function go(){
var d=document.form;
if (d.contr.value != "") { return false;}
d.contr.value="*"; return true;
}// fin
 
function affichresum(id){
window.open(id, '_blank', 'scrollbars=yes,location=no,menubar=yes,width=900,height=700,resizable=yes');
}

function clearnomaut(mot){ d = document.form;
d.i_mot1.value = "";
d.i_mot2.value = "";
d.i_mot3.value = "";
}

//fabrique le nom ˆ chercher
function nomaut(i) {//alert(i);
 d = document.form;
 a = (i+1).toString();
 n = d['i_nom[' + i + ']'].value;
 x = d['i_1pre[' + i + ']'].selectedIndex;
// x = d.i_1pre[i].selectedIndex;
 y = d['i_2pre[' + i + ']'].selectedIndex;
 
// if ((n =='') || (n.charAt(0) == '*')) {
 if (n =='') {
 n = ''; d['i_nom[' + i + ']'].value = n;
 d['i_1pre[' + i + ']'].selectedIndex = 0;
 d['i_2pre[' + i + ']'].selectedIndex = 0; }
 
 else {
    if (n.indexOf("*") != -1) {
    d['i_1pre[' + i + ']'].selectedIndex = 0;
    d['i_2pre[' + i + ']'].selectedIndex = 0; 
    n = n +",*"; }
    else {
      n = n+",";
	  if (x == 0) {n = n+"*";}
	  else { n = n+d['i_1pre[' + i + ']'][x].value;
	      	if (y == 0) {n = n+"*";} 
	      	else { n = n+d['i_2pre[' + i + ']'][y].value+"*";
	      	}
	 }
   }
 }
 d['i_mot'+a].value = n; //alert(d['i_mot'+a].value);
}

// enleve la reference
function absinout(d) {
  var a ="0"; astring = document.form.i_garde.value;
  var i = Math.round(d); i = i-1;
  if (astring.charAt(i) == "0") {a="1";}
  newstring = astring.substring(0,i) +a+ astring.substring(i+1);
  document.form.i_garde.value = newstring;//alert(newstring);
}
 
function absinout2(d) {
  var astring = document.form.i_serie.value;
  var no = d +"/"; l = no.length;
  var i = astring.indexOf(no); alert(i);
  if (i>= 0) { newstring = astring.substring(0,i) + astring.substring(i+l); astring = newstring; 
  } else { astring = no + astring;
  }
  document.form.i_serie.value = astring; alert(astring);
}
 
function npage(n) { d = document.form;
if (n == d.nopage1.value) {return false;}
if (isNaN(n)) {d.i_nopage.value=d.nopage1.value;return false;}
var p = eval(d.i_nopage.value);
if ((p < 1) || (p > eval(d.nbrpage.value))) {d.i_nopage.value=d.nopage1.value;return false;}
envoi("page","s");
}

function ppage(n) {
d = document.form;
d.i_nopage.value=n; envoi("page","s");
}

function setcheckboxes(b,n) {
 d = document.form;
 var elem = d.elements;
 for(i=0;i<elem.length;i++) {
   if(elem[i].type=="checkbox") {
     elem[i].checked=b;
     a=elem[i].name.substring(5);//i_ref12 par ex.
     x=Math.round(a);absinout(x);//alert(document.form.i_garde.value);
   }
 }
  if (n != "-1") {//alert(d.i_garde.value);
 // d.i_check.value=n; 
  var astring=""; x = d.i_garde.value.length;
  for(i=0;i<x;i++) {astring = astring+n;}
  d.i_garde.value = astring;//alert(astring);
  }
}

//Quand on tape dans un input, dŽtermine la touche
//si return, submit the form. Indispensable pour detecter return dans IE
function keypress(p,e)// p: no de page. e= event=mot reserve
{
 var nav = ( navigator.appName == "Netscape" ) ? true : false;
 var msie = ( navigator.appName.indexOf("Microsoft") != -1 ) ? true : false;
 var k = 0;
 if( nav ) { k = e.which; }
 else if( msie ) { k = e.keyCode; }
 if( k==13 ) {npage(p,"s");}
}

function synchrobar(frm, src, dst) {
    if( frm.elements[src] && frm.elements[dst] ) {
        var s = frm.elements[src];
        var d = frm.elements[dst];
        if( s.tagName.toUpperCase() == "SELECT" && d.tagName.toUpperCase() == "SELECT" ) {
            d.selectedIndex = s.selectedIndex;
        }
    }
}