// Variables globales
var requete="";
var savreq="";
var question="";
var opet="";
var opou= "";
var flag=false;
// 
function OpenWindow(LURL) {
	msg=open("","Help","location=no,status=no,toolbar=no,directories=no,resizable=yes,menubar=no,scrollbars=yes,width=400,height=400,screenx=200,screeny=200");	
//      Le positionnement de la fenetre en X et Y ne fonctionne que sous Netscape
  	msg.location.href=LURL;
  	msg.focus();
}
function IndexValue(Val,Target)
{
// Renvoi les termes de l'index
var chaine = "";
if (Target && Val) {
	// Mettre en commentaire les deux lignes suivantes si on ne recupere pas les
	// termes existants dans la zone de texte
//	chaine = eval("document.GENISIS."+Target+".value");
//	if (chaine) Val = Val + ';' + chaine;
       	eval("document.GENISIS."+Target+'.value=Val');
}
msg.close();
}
// Reinitialise le formulaire
function ResetForm() {
	document.GENISIS.reset();
}
// Lire une Textbox
function ReadTextBox(CTL,UNI) {
var src = document.GENISIS.elements[CTL].value;
if (UNI) {
	i=src.indexOf(" ",1);
	while ( i != -1) {
		src = src.substring(0,i)+";"+src.substring(i+1);
		i=src.indexOf(" ",1);
	}
}
return src;
}
// Mise en forme requete
// CTL = Element du formulaire (retour d'une fonction)
// TRN = Troncature (caractere $)
// LIB = Libellé en clair
// CDS = Etiquette ISIS
// PRF = Préfixe
// OPE = Opérateur
function MakeRequest(CTL,TRN,LIB,CDS,PRF,OPE) {
var but="";
var aff="";
var bis="";
var act="";
if (OPE==" AND ") {
	act=opet;
} else {
	act=opou;
}
decoupe=CTL.split(";");
for (var i in decoupe) {
if (decoupe[i]) {
if (but) {
	but = but + OPE + "\"" + PRF + decoupe[i] + TRN + "\"" + CDS;
	bis = bis + OPE + "#" + PRF + decoupe[i] + TRN + "#" + CDS;
	aff = aff + act + decoupe[i] + TRN;
} else {
	but = "\"" + PRF + decoupe[i] + TRN + "\"" + CDS;
	bis = "#" + PRF + decoupe[i] + TRN + "#" + CDS;
	aff = decoupe[i] + TRN;
}
}
}
if (but) {
	aff = "(" + LIB + "=" + aff + ")";
	flag=true;
	if (requete) {
		requete = requete+" AND ("+but+")";
		savreq = savreq+" AND ("+bis+")";
	} else {
		requete = "("+but+")";
		savreq = "("+bis+")";
	}
	if (question) {
		question = question+opet+aff;
	} else {
		question = aff;
	}
}  
}
// Mise en forme requete
// CTL = Element du formulaire (retour d'une fonction)
// TRN = Troncature (caractere $)
// LIB = Libellé en clair
// CDS = Etiquette ISIS
// PRF = Préfixe
// OPE = Opérateur
function MakeRequestMulti(CTL,CMB,OPE) {
var chaine="";
chaine=ReadListSimple(CMB);
decoupe=chaine.split("|");
MakeRequest(ReadTextBox(CTL,decoupe[3]),decoupe[2],decoupe[0],decoupe[1],decoupe[4],OPE);
}

// Lire checkBox
function ReadCheckBox(CTL,IND) {
var terme="";
for (var i=0; i<IND; i++) {
	if (document.GENISIS.elements[CTL][i].checked) {
	if (terme) {
		terme=terme+";"+document.GENISIS.elements[CTL][i].value;
	} else {
		terme=document.GENISIS.elements[CTL][i].value;
	}}
}
return terme;
}
// Lire Bouton Radio
function ReadRadio(CTL) {
for (var i=0; i<document.GENISIS.elements[CTL].length; i++) {
if (document.GENISIS.elements[CTL][i].checked ) return document.GENISIS.elements[CTL][i].value;
}
return "";
}
// Liste multiple
function ReadListMulti(CTL) {
var terme = "";
for (var i=0; i<document.GENISIS.elements[CTL].length; i++) {
if (document.GENISIS.elements[CTL].options[i].selected) {
if (terme == "") {
	terme=document.GENISIS.elements[CTL].options[i].value;
} else {
	terme=terme+";"+document.GENISIS.elements[CTL].options[i].value;
}}}
return terme;
}
// Liste simple
function ReadListSimple(CTL) {
i=document.GENISIS.elements[CTL].options.selectedIndex;
if (i < 0) return "";
return document.GENISIS.elements[CTL].options[i].value;
}
function OpenIndex(CDS,RET,FIC,TIT,PFX,POS,Lgx,Lgy) {
// Ouverture d'un index
	msg=window.open("","index","resizable=no,height="+Lgx+",width="+Lgy+",scrollbars=yes,screenx=100,screeny=100");
	contenu='<body><BR>Please wait ...</body>'; 
	msg.document.write(contenu);
	document.INDEX.t2000.value = CDS;
	document.INDEX.t2001.value = RET;
	document.INDEX.t2002.value = POS;
	document.INDEX.t2003.value = FIC;
	document.INDEX.t2004.value = TIT;
        document.INDEX.t2006.value = PFX;
	document.INDEX.target="index";  
	msg.focus();  
	document.INDEX.submit();
}
function OpenIndexMulti(CTL,CMB,Lgx,Lgy) {
// Ouverture d'un index
var chaine="";
var champ="";
chaine=ReadListSimple(CMB);
decoupe=chaine.split("|");
OpenIndex(decoupe[7],CTL,decoupe[6],decoupe[5],decoupe[4],"",Lgx,Lgy);
}
