//--------------------------------------------------------------------------------------------
// Initialisation : ouverture du calque et restauration du cookie de sauvegarde des paramètres
function initialise() {
 ouvrir('calque1','interne','externe');
 if (GetCookie(Type_grille) != null )  str= GetCookie(Type_grille);
 else {
	return;
	}
 restaure(2, str);restaure(3,str);	// restauration individuelle pour Date min et Date max
 for (n=7; n < (document.frm2.length); n++) restaure(n,str);
}
//-------------------------------------------------------------------------------------------
// restauration des paramètres à partir du cookie de sauvegarde (rang : 0 à n)
function restaure(rang,chaine) {
	deb=debut=0;
	for (i=0; i<=rang; i++) {
		fin =chaine.indexOf('!', deb); 
		debut=deb;
		deb=fin+1;
		}
	fin= chaine.indexOf('!', debut);
	document.frm2.elements[rang].value = (fin == debut)? "" : chaine.substring(debut, fin);
}
//------------------------------------------------------------------------------------------
// Faire une RAZ sur les cookies du formulaire
function Raz(form) {
	form.elements[2].value=""; 
	form.elements[3].value=""; 
	for (i=7; i< (form.length); i++)  { form.elements[i].value=""; }
	charge_cookies(); 
}
//-------------------------------------------------------------------------------------------
// Sauvegarde les paramètres de la grille dans un cookie
function charge_cookies() {
liste_param= "!!"+ document.frm2.elements[2].value + "!"+ document.frm2.elements[3].value + "!!!!";
for (i=7;i< (document.frm2.length); i++) {
	liste_param +=  document.frm2.elements[i].value + "!";
	}
var expdate = new Date();
expdate.setTime (expdate.getTime() + (1000 * 60 * 60 * 24 * 15)); // durée 15 jours
SetCookie(Type_grille, liste_param,  expdate); 
}
//------------------------------------------------------------------------------------------
// Teste si on se trouve dans un jeu de cadres (frames) et si NON,  redirige vers une adresse
// qui rétablira le jeu normal des cadres (pour les robots et moteurs de recherche)
function checkFrame(URL){ 
if (parent.location.href == self.location.href) window.location.href = URL;
}
//------------------------------------------------------------------------------------------
// initialise le marquage
function complete() {  
	charge_cookies();
	charge_pointeur();
}
//-------------------------------------------------------------------------------------------
// intégrer la position du pointeur sur les listes ch_pays et ch_paroisse
function charge_pointeur() {
	indice=grille+3;
	secteur = parent.haut.document.forms[0].elements[indice].value;
	if (secteur == 'ch_pays') {
	 indice = grille+12;
	 parent.haut.document.forms[0].elements[indice].value= document.forms[0].elements['choix_pays'].selectedIndex;
	 }
	if (secteur == 'ch_paroisse') {
	 indice = grille+9; // indice pour les Paroisses
	 parent.haut.document.forms[0].elements[indice].value = document.forms[0].elements['choix_paroisse'].selectedIndex;
	 }
// retour si secteur = "departement" ou autre chose
}
// -----------------------------------------------------------------------------------------
// Email obfuscator script 2.1 by Tim Williams, University of Arizona
// Random encryption key feature by Andrew Moulden, Site Engineering Ltd
// This code is freeware provided these four comment lines remain intact
// A wizard to generate this code is at http://www.jottings.com/obfuscator/
// Ce cas UNIQUEMENT pour "Corailnetcg22 (at) yahoo.fr"
function Email_obfuscator() {
  coded = "BE8AXtvdNBjww@DASEE.U8";
  key = "Wsj0iRzv2tohCxAIbZVKUOPLJMXkcGwNESHrepFy69gmuQ7nYlBT34a518dqfD";
  shift=coded.length;
  link="";
  for (i=0; i<coded.length; i++) {
    if (key.indexOf(coded.charAt(i))==-1) {
      ltr = coded.charAt(i);
      link += (ltr);
      }
    else {     
      ltr = (key.indexOf(coded.charAt(i))-shift+key.length) % key.length;
      link += (key.charAt(ltr));
      }
  }
return(link);
}
//-------------------------------------------------------------------------------------------
var texte_je_clique = "";
//------------------------------------------------------------------------------------------
function ouvrir(calq, ident, locate) {    // pour tous navigateurs
var p_p;

ajout_pays(calq, ident, locate);   //pour transmettre locate à les_pays. C'est le Form où il faudra placer le choix
ajout_paroisses(calq, ident, locate);

if ( GetCookie('Fin_Menu') == null || GetCookie('Fin_Menu') == "Mod_xxx" ) {
	secteur = 'ch_paroisse';
	}
else {
	indice=grille+3;	// secteur n'a pas la bonne valeur si le fichier menu.html n'est pas chargé complètement
	secteur = parent.haut.document.forms[0].elements[indice].value; // choix de la zone est mémorisé
	}

if (secteur == 'departement') 
	{
    	document.getElementById(locate).qParoisse.value="!";
    	texte_je_clique = "<TD  align='right'><span class='titre'>" + multilingue(0) + "</span>&nbsp;&nbsp;</TD>"; 
// attention aux accents dans les variables pour SAFARI (Mac)
    	texte = "<TD align=left>" + tout_depart + "</TD>";
    	document.forms[0].elements[3].checked=true;
    	document.forms[ident].elements['compte'].style.visibility = "hidden";
   	}
else  {
      if (secteur == 'ch_pays') {
        texte_je_clique = "<TD align='right'><span class='titre'>" + multilingue(1) + "</span>&nbsp;&nbsp;</b></TD>";
        texte = "<TD align=left>" + les_pays + "</TD>";
    	  document.forms[0].elements[4].checked=true;
        document.forms[ident].elements['compte'].style.visibility = "hidden";
        }
      else {
        secteur == 'ch_paroisse';
        texte_je_clique = "<TD  align='right'><span class='titre'>" + multilingue(2) + "</span>&nbsp;&nbsp;</b></TD>";
        texte = "<TD align='left'>" + les_paroisses + "</TD>";
    	  document.forms[0].elements[5].checked=true;
        document.forms[ident].elements['compte'].style.visibility = "visible";
	  }
     }
document.getElementById(calq).style.visibility = "hidden";
base = "<TABLE><TR>";
fin = "</TR></TABLE>";
mon_html =  base + texte_je_clique + texte + fin;
document.getElementById(calq).innerHTML = mon_html;
 
// mémorisation des variantes
if ( GetCookie('Fin_Menu') == null || GetCookie('Fin_Menu') == "Mod_xxx" ) {
	document.forms[1].elements[4].checked = true;
	}
else {
	indice = grille+6;  // idem, la valeur n'est pas bonne si menu.html n'est pas chargé
	if (parent.haut.document.forms[0].elements[indice].value == 'N') document.forms[1].elements[4].checked = true;
	else document.forms[1].elements[5].checked = true;
	}
restitue(ident, locate, secteur);
// rajouté par Michel MORO pour SAFARI 
document.getElementById(calq).style.visibility = "visible";
// FireFox semble avoir des "hésitations", je double !
document.getElementById(calq).style.visibility = "visible";
}
//----------------------------------------------------------------------------------
// retrouver et reconfigurer les sélections initiales
function restitue(ident, locate, secteur)  {
	 
	if (secteur == "departement") {
		document.getElementById(locate).qParoisse.value="!";
		}
	else {
		
// il faudrait différencier le réceptacle (formulaire du menu) pour les pays et pour les paroisses
	liste = document.getElementById(secteur);
    	   if (secteur == "ch_paroisse") {
		if ( GetCookie('Fin_Menu') == null || GetCookie('Fin_Menu') == "Mod_xxx" ) {
			paroisse_numoption= 0;
			}
		else { // ch_pays par défaut
			indice=grille+9;
			document.forms[ident].num_paroisse.value= parent.haut.document.forms[0].elements[indice].value;
    			paroisse_numoption=parseInt(document.forms[ident].num_paroisse.value);
    			if (isNaN(paroisse_numoption)){ paroisse_numoption=0; }
			}
    		liste.selectedIndex=paroisse_numoption;
    		valeurchoix=liste.value;
    		document.getElementById(locate).qParoisse.value=valeurchoix;
    		}
    	   else {  // cas des cantons ( ch_pays )
		indice=grille+12;
		document.forms[ident].num_pays.value= parent.haut.document.forms[0].elements[indice].value;
    		pays_numoption=parseInt(document.forms[ident].num_pays.value);
        	if (isNaN(pays_numoption)){pays_numoption=1;}
        	liste.selectedIndex=pays_numoption;
        	valeurchoix=liste.value;
        	document.getElementById(locate).qParoisse.value=valeurchoix;
    		} // fin du else
     } // fin du else
}
//------------------------------------------------------------------------------------

function click_tous_pays(locate)
{
document.getElementById(locate).qParoisse.value="!";
}
//-----------------------------------------------------------------------------------
function click_un_pays(calq,  ident,   locate )
{
liste = document.getElementById('ch_pays');
pays_numoption = liste.selectedIndex;

//on stocke le rang de l'option choisie dans num_pays du Form "interne" (frm1) qui ne bouge pas.
document.forms[ident].num_pays.value=pays_numoption; 

valeurchoix=liste.value
document.getElementById(locate).qParoisse.value=valeurchoix;
}
//------------------------------------------------------------------------------------
function click_une_paroisse(calq,  ident,   locate )
{
liste = document.getElementById('ch_paroisse');
paroisse_numoption = liste.selectedIndex;

//on stocke le rang de l'option choisie dans num_paroisse du Form "interne" (frm1) qui ne bouge pas.
document.forms[ident].num_paroisse.value=paroisse_numoption; 
//certains navigateurs ne transmettent pas le Select, d'ou nécessité de stocker la valeur dans un Input
valeurchoix=liste.value
document.getElementById(locate).ID_qParoisse.value=valeurchoix;
document.getElementById(ident).nm_paroisse.value=valeurchoix;
}
//------------------------------------------------------------------------------------
// on récupère les deux derniers caractères de l'adresse pour reconnaitre la langue
function multilingue(cas) {
URL=parent.location.href;
lang=URL.substring(URL.length-2, URL.length);
deb="<span style='font-size:12px'>"; fin="</span>";
if ( cas == 0 ) {
	if (lang =="FR") return("Recherche sur  ");
	if (lang =="EN") return("Search through ");
	if (lang =="ES") return("Investigación sobre ");
	if (lang =="PT") return("Procura sobre ");
	if (lang =="BZ") return("Klask war ");
	if (lang =="GA") return("Va t'en voer dans ");
	return("Recherche sur  ");
	}
 
if ( cas == 1 ) {
	if (lang =="FR") return("Je clique sur le canton choisi");
	if (lang =="EN") return("I click on the chosen Canton");
	if (lang =="ES") return("Presiono el cantón elegido");
	if (lang =="PT") return("Eu clico no districto escolhido");
	if (lang =="BZ") return("Klikañ a ran war ar c'hanton dibabet");
	if (lang =="GA") return("Clique ousque tu veuil' à drette");
	return("Je clique sur le canton choisi");
	}

if ( cas == 2 ) {
	if (lang =="FR") return("Je clique sur le lieu choisi");
	if (lang =="EN") return("I click on the chosen place");
	if (lang =="ES") return("Presiono el lugar elegido");
	if (lang =="PT") return("Eu clico no sitio escolhido");
	if (lang =="BZ") return("Klikañ a ran war al lec'h dibabet");
	if (lang =="GA") return("Faudré voer à coti' l'mulot<br> dans l'pertu à drette");
      return("Je clique sur le lieu choisi");
	}

if ( cas == 3 ) { 
	if (lang =="FR") return(deb + "tout le département des Côtes d'Armor<br>");
	if (lang =="EN") return(deb + "the whole of the Cotes d'Armor departement<br>");
	if (lang =="ES") return(deb + "Todo el Departamento de las Costas d'Armor<br>");
	if (lang =="PT") return(deb + "Todo o departamento das Costas d'Armor<br>");
	if (lang =="BZ") return(deb + "Departamant Aodoù an Arvor en e bezh<br>");
	if (lang =="GA") return(deb + "Tô l' paï dé Côtes d'Armor<br>");
	return(deb + "tout le département des Côtes d'Armor<br>"); 
}

if ( cas == 4 ) {
	if (lang =="FR") return("actes" + fin);
	if (lang =="EN") return("acts" + fin);
	if (lang =="ES") return("actos" + fin);
	if (lang =="PT") return("actos" + fin);
	if (lang =="BZ") return("dihell" + fin);
	if (lang =="GA") return("actes" + fin);
      return("actes" + fin);
	}

}
//----------------------------------------------------------------------------------------