//* ------------------------------------------------------------------------------------------------------------
//*
//* ------------------------------------------- Fonctions index ------------------------------------------------
//*
//* ------------------------------------------------------------------------------------------------------------

var urlParam = ExtraireParam();
var rep='./V1';

var user=''; var priv=0;
var priv_type=new Array(' [anonyme]',' [visiteur]',' [invité]',' [membre]',' [administrateur]')
var html_righ='';
var html_left='';
var screen_Value='0';

/* ---------------------------------------------------------------------------------------------------------- */

// Définition de paramètres

var Parm=new InitParm();                     /* Initialisation de l'objet Parm (paramètres)                   */
function InitParm ()                         /* Initialisation de l'objet Parm.xxxx                           */
  { this.nb_item=0;                          /* Parm.nb_item   nombre d'enregistrem!ents (nombre paramètres)  */
    this.Add=AddParm;}                       /* Lang.Add       Ajout d'un paramètre                           */
function AddParm (zone,value)                /* Ajout d'un paramètre                                          */
  { var item=new Array;
    item.zone=value;                         /* Parm["x"].zone Paramètre avec la clé x                        */
    this[zone]=item                          /* Sauvegarge des informations                                   */
    NPrm.Add (zone);                         /* Ajout de la zone                                              */
    this.nb_item++;}                         /* Parm.nb_item   Nombre de paramètres                           */
var NPrm=new InitNPrm();                     /* Initialisation de l'objet NPrm (liste des paramètres)         */
function InitNPrm ()                         /* Initialisation de l'objet NPrm.xxxx                           */
  { this.nb_item=0;                          /* NPrm.nb_item   nombre d'enregistrements (nombre de paramètres)*/
    this.Add=AddNPrm;}                       /* NPrm.Add       Ajout d'un paramètre                           */
function AddNPrm (zone)                      /* Ajout d'un paramètre                                          */
  { var nb=this.nb_item; var item=new Object;
    item.zone=zone;                          /* NPrm[n].zone   Paramètre avec la clé n séquentielle           */
    this[nb]=item                            /* Sauvegarge des informations                                   */
    this.nb_item++;}                         /* NPrm.nb_item   Nombre de paramètres                           */

// Ajout de paramètres

Parm.Add ('text_defl','Lions Club Montigny les 3 Villages   -   Guyancourt   -   Montigny le Bretonneux   -   Voisins le Bretonneux')
Parm.Add ('text_dely','200')
Parm.Add ('name_Lions','Lions Clubs International')
Parm.Add ('name_club','Lions Club Montigny les Trois Villages')

/* ---------------------------------------------------------------------------------------------------------- */

// Définition des langues

var Lang=new InitLang();                     /* Initialisation de l'objet Lang (langues supportées)           */
function InitLang ()                         /* Initialisation de l'objet Lang.xxxx                           */
  { this.nb_item=0;                          /* Lang.nb_item   nombre d'enregistrements (nombre de langues)   */
    this.Add=AddLang;}                       /* Lang.Add       Ajout d'une langue                             */
function AddLang (language,name,flag)        /* Ajout d'une langue (langue, nom de la langue, drapeau.gif)    */
  { var nb=this.nb_item; var item=new Object;
    item.lang=language;                      /* Lang.lang      Code de la langue en général sur 2 caractères  */
    item.name=name;                          /* Lang.name      Nom de la langue (alt sur le drapeau)          */
    item.flag=flag;                          /* Lang.flag      Nom complet du fichier image du drapeau        */
    this[nb]=item;                           /* Sauvegarge des informations                                   */
    this.nb_item++;}                         /* Lang.nb_item   Nombre de langues supportées                   */

// Ajout des langues

Lang.Add ('en','english','flag_UK.gif')
Lang.Add ('de','deutsch','flag_DE.gif')
Lang.Add ('it','italiano','flag_IT.gif')
Lang.Add ('fr','français','flag_FR.gif')

/* ---------------------------------------------------------------------------------------------------------- */

// Définition des données

var Data=new InitData();                     /* Initialisation de l'objet Data (Titres fixes)                 */
function InitData ()                         /* Initialisation de l'objet Data.xxxx                           */
  { this.nb_item=0;                          /* Data.nb_item   nombre d'enregistrements (nombre de titres)    */
    this.Add=AddData;}                       /* Data.Add       Ajout d'un titre                               */
function AddData (zone,language,addr,value)  /* Ajout d'une langue (nom du titre, langue, adresse, texte)     */
  { var item=new Object;
    if (!this[zone])                         /* vérification si l'objet Data pour ce Titre a déjà été créé    */
    { item.lang=new Array;                   /* création d'un tableau des langues pour ce Titre               */
      item.addr=new Array;                   /* création d'un tableau d'adresses pour ce Titre                */
      for (var i=0;i<Lang.nb_item;i++)       /* si une seule valeur, tous les items sont identiques           */
      { item.addr[Lang[i].lang]=addr;
        item.lang[Lang[i].lang]=value;}
      NDat.Add (zone);                       /* Ajout de la zone                                              */
      this.nb_item++;}                       /* Data.nb_item   Nombre d'objet Data (Titres fixes)             */
    else
    { item.addr=this[zone].addr              /* Récupération des Titres déjà existant pour ne pas les écraser */
      item.lang=this[zone].lang}             /* Récupération des Titres déjà existant pour ne pas les écraser */
    item.addr[language]=addr                 /* Data.addr["x"] Adresse de l'objet Data dans la langue x       */
    item.lang[language]=value                /* Data.lang["x"] Titre de l'objet Data dans la langue x         */
    this[zone]=item}                         /* Sauvegarge des informations                                   */
var NDat=new InitNDat();                     /* Initialisation de l'objet NDat (liste des data)               */
function InitNDat ()                         /* Initialisation de l'objet NDat.xxxx                           */
  { this.nb_item=0;                          /* NDat.nb_item   nombre d'enregistrements (nombre de paramètres)*/
    this.Add=AddNDat;}                       /* NDat.Add       Ajout d'un paramètre                           */
function AddNDat (zone)                      /* Ajout d'un paramètre                                          */
  { var nb=this.nb_item; var item=new Object;
    item.zone=zone;                          /* NDat[n].zone   Paramètre avec la clé n séquentielle           */
    this[nb]=item                            /* Sauvegarde des informations                                   */
    this.nb_item++;}                         /* NDat.nb_item   Nombre de paramètres                           */

// Exemple d'ajout de titres

Data.Add("dev_club",  "fr","","aidez nous à aider les autres")
Data.Add("dev_club",  "de","","uns helfen anderen zu helfen")
Data.Add("dev_club",  "en","","help us to help others")
Data.Add("dev_club",  "it","","ci aiuti ad aiutare gli altri")
Data.Add("send_mail", "fr","mailto:alain@aubriet.fr?subject=Information_Site_Internet_(fr)&body=>","nous écrire")
Data.Add("send_mail", "de","mailto:alain@aubriet.fr?subject=Information_Site_Internet_(de)&body=>","senden eine E-mail")
Data.Add("send_mail", "en","mailto:alain@aubriet.fr?subject=Information_Site_Internet_(en)&body=>","send a mail")
Data.Add("send_mail", "it","mailto:alain@aubriet.fr?subject=Information_Site_Internet_(it)&body=>","inviaci una mail")
Data.Add("Menu0","fr","../0/default.html","« Humanisme et Actions »")
Data.Add("Menu0","de","../0/default.html","« Humanismus + Aktionen »")
Data.Add("Menu0","en","../0/default.html","« Humanism and Actions »")
Data.Add("Menu0","it","../0/default.html","« Umanesimo e Azioni »")
Data.Add("Menu1","fr","../0/default.html","Montigny<br>les 3 Villages")
Data.Add("Menu1","de","../0/default.html","Montigny<br>les 3 Villages")
Data.Add("Menu1","en","../0/default.html","Montigny<br>les 3 Villages")
Data.Add("Menu1","it","../0/default.html","Montigny<br>les 3 Villages")
Data.Add("Menu2","fr","../2/default.html","Actions<br>du Club")
Data.Add("Menu2","de","../2/default.html","Aktien<br>des Club")
Data.Add("Menu2","en","../2/default.html","Shares<br>of the Club")
Data.Add("Menu2","it","../2/default.html","Quote<br>di Club")
Data.Add("Menu3","fr","../3/default.html","Manifestations<br>du Club")
Data.Add("Menu3","de","../3/default.html","Veranstaltungen<br>des Club")
Data.Add("Menu3","en","../3/default.html","Events<br>of the Club")
Data.Add("Menu3","it","../3/default.html","Eventi<br>di Club")
Data.Add("Menu5","fr","../5/default.html","Lions Clubs<br>en France")
Data.Add("Menu5","de","../5/default.html","Lions Clubs<br>in Frankreich")
Data.Add("Menu5","en","../5/default.html","Lions Clubs<br>in France")
Data.Add("Menu5","it","../5/default.html","Lions Clubs<br>in Francia")
Data.Add("Menu4","fr","../4/default.html","Lions Clubs<br>International")
Data.Add("Menu4","de","../4/default.html","Lions Clubs<br>International")
Data.Add("Menu4","en","../4/default.html","Lions Clubs<br>International")
Data.Add("Menu4","it","../4/default.html","Lions Clubs<br>International")
Data.Add("Menu6","fr","../6/default.html","La vie<br>du Club")
Data.Add("Menu6","de","../6/default.html","Das Leben<br>des Club")
Data.Add("Menu6","en","../6/default.html","Life<br>Club")
Data.Add("Menu6","it","../6/default.html","Club vita")
Data.Add("Menu7","fr","../7/default.html","Zone<br>Privée")
Data.Add("Menu7","de","../7/default.html","Privatenbr>Bereich")
Data.Add("Menu7","en","../7/default.html","Private<br>area")
Data.Add("Menu7","it","../7/default.html","Area<br>privata")
Data.Add("Menu8","fr","../8/default.html","Diaporama")
Data.Add("Menu8","de","../8/default.html","Diashow")
Data.Add("Menu8","en","../8/default.html","Slideshow")
Data.Add("Menu8","it","../8/default.html","Slideshow")
Data.Add("Menu9","fr","../9/default.html","La Cité<br>et liens")
Data.Add("Menu9","de","../9/default.html","Der Stadt<br>+ Links")
Data.Add("Menu9","en","../9/default.html","City<br>and Links")
Data.Add("Menu9","it","../9/default.html","Città e<br>Collegamenti")
Data.Add("Marche_Espoir","fr","../3/default.html","./Marche_Espoir/Marche_Espoir_1.html")
Data.Add("Prairiale","fr","../3/default.html","./Prairiale/Prairiale_3.html")
Data.Add("ART_Manet","fr","../3/default.html","./ART_Manet/ART_Manet_0.html")

/* ---------------------------------------------------------------------------------------------------------- */

// Défiler en bas de page une chaîne de caractères

  var msg='MESSAGE'; var index=0; var delay=window.top.parent.Parm['text_dely'].zone;
  function defil() {var nb_char=msg.length;index++;if (index>nb_char) index=0;
	window.status=msg.substring(index)+msg;	setTimeout('defil()',delay);}
  function defiler(txt) {msg=txt + '   -   ' + txt + '   -   ';defil();}

  defiler(window.top.parent.Parm['text_defl'].zone);