/*********************************************************
Fonctions de bases pour illicopage
**********************************************************/

/* Fonction d'ouverture d'un popup : evite le target */
function winOpen(url, largeur, hauteur){
      gauche = (screen.width/2)-(largeur/2);
      haut = (screen.height/2)-(hauteur/2);
      window.open(url,"popup","height="+hauteur+",width="+largeur+",status = no,toolbar = no,menubar = no,location = no,resizable = no,titlebar = no,scrollbars = yes,fullscreen = no,top ="+haut+",left ="+gauche);
   }

/* affichage de la date du jour **/
function AfficheDateJour (  ){
Today = new Date;
TexteJour = new Array ("Dimanche" , "Lundi", "Mardi", "Mercredi" , "Jeudi" , "Vendredi", "Samedi");
TexteMois = new Array ("Janvier" , "Février", "Mars", "Avril" , "Mai" , "Juin", "Juillet", "Août" , "Septembre", "Octobre", "Novembre", "Décembre");


Day = Today.getDay();
Jour = Today.getDate();
if (Jour<10)
Jour = "0"+Jour;
Mois = (Today.getMonth())+1;
if (Mois<10)
Mois = "0"+Mois;
Annee = Today.getFullYear();
var DateDuJour = "";

DateDuJour = TexteJour[Day] + " "+ Jour +" "+TexteMois[Mois]+ " " +Annee;

document.write(DateDuJour);
}

/* Fonction de remplissage d'un div avec le contenu passé par programme */
function ChangeMessage(message,champ)
{
	var msg2 = message.replace(/\&gt\;/gi, ">");
	msg2 = msg2.replace(/\&lt\;/gi, "<");

  if(document.getElementById)
    document.getElementById(champ).innerHTML = msg2;
}

/* Fonction d'ouverture de la version imprimable*/
function printer_friendly()
{
	
	ret = window.open('/cgi-local/printer_friendly.pl?url='+url_printer, 'printer_friendly','width=800,height=600,scrollbars=1');
	
}

/* Fonction de passage à la version malvoyant */
function version_malvoyant()
{
	if( url_lien_malvoyant != "" )
		document.location=url_lien_malvoyant;
	
}

/* Fonction d'ajout du site aux favoris : Attention à l'adresse du site*/
function favoris() 
{
	if ( navigator.appName != 'Microsoft Internet Explorer' ){ 
		window.sidebar.addPanel("CCI Expert - Annuaire des compétences en Franche-Comté","http://www.cciexpert.net",""); 
	}
	else { 
		window.external.AddFavorite("http://www.cciexpert.net","CCI Expert - Annuaire des compétences en Franche-Comté"); 
	} 
}
/* Fonction de transformation de la page html en un fichier pdf */
function version_pdf()
{
    ret = window.open('/cgi-local/imprime-pdf.pl?url='+url_printer, 'printer_friendly','width=800,height=600,scrollbars=1');
    
}
/* permute image */
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
/* Initialisation des parametres */

var prse_menu_lateral = 0;
var url_printer = "";
var url_lien_malvoyant = "";