// GOWAP - 2001/2004 - Tous droits réservé. http://gowap.fr.fm

adresse="gowap@fr.fm";
m0 = 'Première page du site';	url0 = "index.html"	; fnt0 = "max"
m1 = 'Page précédente.';	
m2 = 'Haut de page.';
m3 = 'Compatible et testé avec ';
img_estat = new Image(); img_estat.src ="http://perso.estat.com/m/00/14001713474?p=entete_js&c=gowap";
SLL="Suivre le lien...";
VLL="Voir le lexique sur ce texte...";
TLF="Télécharger le fichier...";


//------------------------------- sous programmes généraux.

function My_Array(n) 
{
 this.length = n;
 for(var i=0; i<n; i++) this[i+1] = 0;
 return this;
}

function info()         {window.status=(info.arguments.length==0)?'':info.arguments[0];return true;}
function ins_info(txt)  {return "onmouseover=\"return info(&quot;"+txt+"&quot;);\" onmouseout=\"info();\" title=\""+txt+"\"";}
//function ins_info(txt){return "onmouseover=\"info("+txt+");return true;\" onmouseout=\"info('');return true;\" title=\""+eval(txt)+"\" ";}

//---e_mail([add_sujet])-------- ins. adresse e-mail avec nom de fichier (ou rép) en sujet
//------------------ Si pas de paramètre, add. de donnée dans le corps du email
function e_mail()     
{
var N=location.href,
 P1=N.lastIndexOf('/'),		N1=N.substring(P1+1,N.length),
 P2=N.lastIndexOf('/',P1-1), 	N2=N.substring(P2+1,P1+1);

 if (N1.indexOf('#')!=-1) {N1=N1.substring(0,N1.indexOf('#')-1)};

 var N3=N1.substring(0,N1.lastIndexOf('.')).toUpperCase();
 if (N3=="INDEX") {N1=N2}	// substitution d'index.html par le répertoire

 location.href="mailto:"+adresse+"?subject=["+N1+"] : "+((e_mail.arguments.length==0)?"&body=Identifiez-vous : Nom, Prénom, ...":e_mail.arguments[0]);
}

//------------------------------- création de l'entête avec icônes de navigateur compatible.

var rep = "/gowap/";
var mask_navigateur;

var T_img = new My_Array(3), T_rem = new My_Array(3);
 T_img[0] = 'ie';    T_rem[0] = 'Internet Explorer 4.x.';
 T_img[1] = 'ns';    T_rem[1] = 'Netscape 4.06.';
 T_img[2] = 'opera'; T_rem[2] = 'Opéra 3.50.';
  
function nav_icon_Av(mask)
{
 mask_navigateur = mask;

 var nb=0;
 for (var t=0;t<3;t++) if ((mask & (1<<t))!=0) nb+=1;

 document.write("<table border=0 cellpadding=0 cellspacing=0 width=100%><tr><td align=center rowspan="+nb+ " width=100%  title=\"Site du GOWAP : tous droits réservés.\">");
};

function nav_icon_Ap()
{
 document.write("</td>");
 
 var c=0;
 for (var t=0;t<3;t++)
  if ((mask_navigateur & (1<<t))!=0)
   {document.write(((c!=0)?"<tr>":"")
		+'<td><img src=' + rep + 'DATA/logo_' + T_img[t] + '.gif width=16 height=16 alt="'+m3+T_rem[t]+'"></td></tr>');
    c=1;
   }
 document.write("</table>");
};

//------------------------------- Pied de page + comptage par estat.

function PiedPage_Av()
{
document.write("<a href=javascript:history.back() "+ins_info(m1)
 +" target=_self><img src="+rep+"DATA/mygale/back.gif alt='"+m1+"' border=0 width=20 height=20></a>");
}

function PiedPage_Ap(sujet)
{
document.write("<a href=#top "+ins_info(m2)+" target=_self><img alt='"+m2+"' border=0 height=23 src="
 +rep+"DATA/top.gif width=27></a></td>");
document.write("<td align=right><a href="+rep+url0+" "
 +ins_info(m0)+" target="+fnt0+"><img alt='"+m0+"' border=0 height=23 src="
 +rep+"DATA/top_site.gif width=65></a>");
}

//--------------------- Affectation des liens vides avec un status ----

function _0() {return info();}
function _1() {return info(SLL);}
function _lex() {return info(VLL);}
function _DnLoad() {return info(TLF);}

function LinkInfoAll()
{
// alert("nb de lien : "+document.links.length);
for (var t=0;t<document.links.length;t++)
 {
//  var st=t;
//  for (i in document.links[t])
//  {st+="\t"+i+"="+document.links[t][i]}
// alert(st);

  if (document.all)					//si IE4+
   {obj=document.links[t];
    if ((!obj.title)||(!obj.onmouseover))		//si title ou OnMouseOver est vide
    {
     if (obj.className=="lex")
      {
       if(!obj.title) obj.title=VLL;   
       if(!obj.onmouseover) obj.onmouseover=_lex;	//affecté info(VLL)
      } 
     else
     if (obj.className=="DnLoad")
      {
       if(!obj.title) obj.title=TLF;
       if(!obj.onmouseover) obj.onmouseover=_DnLoad;	//affecté info(TLF)
      } 
     else
       obj.title=SLL;
    }
   };

  if (!(document.links[t].onmouseover))			// si pas de status
	document.links[t].onmouseover=_1;		//affecté info(SLL)
	
  if (!(document.links[t].onmouseout))			// si pas de status
	document.links[t].onmouseout=_0;		//affecté info()
 }
}