/*
=====================================================================================================   mise à jour :
=== COPYRIGHT ==> 2000-2004 (c) Archives Webmemoria - www.WEBMEMORIA.com <== TOUS DROITS RÉSERVÉS ===   Martin Richard
=====================================================================================================   2004-03-25 17:49:27
-- fncBase.js --
*/

  var aiMousePosit = new Array(0,0);String.prototype.allReplace = str_allReplace;String.prototype.cnvInt  = str_cnvInt;String.prototype.cnvNum  = str_cnvNum;String.prototype.putSpace  = str_putSpace;String.prototype.doLine  = str_doLine;if(!navigator.xCross)setNavX();function cnvInt(sVal){var bCutZero = true;var sInt = "";for(var i=0;i<sVal.length;i++){var sChar = sVal.charAt(i);var iChar = sVal.charCodeAt(i);if(iChar>=49&&iChar<=57)bCutZero = false;if(!bCutZero&&iChar>=48&&iChar<=57)sInt+= sChar;}xVal =(sInt)?sInt : 0;return(xVal);}function cnvNum(sVal,bFullText){;var bFull =(bFullText)?bFullText : false;var sNum = "";for(var i=0;i<sVal.length;i++){var sChar = sVal.charAt(i);var iChar = sVal.charCodeAt(i);if(iChar==46||(iChar>=48&&iChar<=57)){sNum+= sChar;}else{if(sNum!=""&&!bFull)break;}}xVal =(sNum)?sNum : 0;return(xVal);}function realReplace(sIn,sToCut,sNew){var sOut = sTmp = "";var iCnt = 0;var bClr = false;for(var i=0;i<sIn.length;i++){sTmp+= sIn.charAt(i);if(sIn.charCodeAt(i)==sToCut.charCodeAt(iCnt)){iCnt++;if(iCnt==sToCut.length){sOut+= sNew;bClr = true;}}else{sOut+= sTmp;bClr = true;}if(bClr){sTmp="";iCnt=0;bClr=false;}}return(sOut);}function epureStr(sIn,asCharToCut,sReplace){var sEpure = "";var sReplc =(sReplace)?sReplace : "";for(var i=0;i<sIn.length;i++){var sChar = sIn.charAt(i);var iChar = sIn.charCodeAt(i);for(var j=0;j<asCharToCut.length;j++){if(sChar==asCharToCut[j]||iChar==parseInt(asCharToCut[j].substr(2))){sChar = sReplc;break;}}sEpure+= sChar;}return(sEpure);}function cutBadSpace(sIn){var bSpcBef = true;var sOut    = "";for(var i=0;i<sIn.length;i++){var iChar = sIn.charCodeAt(i);if(iChar==32){if(!bSpcBef)sOut+= sIn.charAt(i);bSpcBef = true;}else{sOut+= sIn.charAt(i);bSpcBef = false;}}return(sOut);}function changeScrollbarColor(hC){if(document.all){hC =(hC)?hC : "#B3AC75";document.body.style.scrollbarBaseColor = hC;}}function ecritSignet(sName,iHaut){var iHy =(iHaut)?iHaut : 30;document.write("<A NAME=\""+sName+"\"><IMG border=\"0\" NAME=\"_"+sName+"\" ID=\"_"+sName+"\" src=\""+sSrcInv+"\" width=\"100\" height=\""+iHy+"\"></A><BR>");}function slideTo(sNomSignet,iSpeed){var bSlide =(iSpeed!=0);var bSpeed = iSpeed>0;var sImgRef = "_"+sNomSignet;var bTop = sNomSignet=="top";var iToReach = 0;var iTopV, iDist, iStep;if(bTop||getXobject(sImgRef)){iTopV =(bIsNs)?window.pageYOffset : document.body.scrollTop;if(!bTop){getXYpos(getXobject(sImgRef));iToReach = document.images[sImgRef].yPos;}iDist = Math.abs(iTopV-iToReach);iStep =(bSpeed)?iSpeed : 50;if(bSlide){for(var y=0;y<iDist;y+=iStep){if(!bSpeed)iStep+=(iDist/100)* Math.cos((2*y-iDist)* Math.PI /(2*iDist));iY =(iTopV<iToReach)?iTopV+y : iTopV-y;window.scrollTo(0,iY);}}window.scrollTo(0,iToReach);}else{var iPosA = window.location.href.indexOf(window.location.search);var iPosL = window.location.href.indexOf(window.location.hash);var sLocat =(iPosA<=0)?window.location : window.location.href.substr(0,iPosA);sLocat =(iPosL<=0)?sLocat : window.location.href.substr(0,iPosL);window.location = sLocat+"#"+sNomSignet;}}function goLocSignet(){var sDest = getQueryParam("go");if(sDest)setTimeout("slideTo(\""+sDest+"\")",1000);}function goTop(iSpeed){var bSpeed =(iSpeed>=0);if(bSpeed){slideTo("top",iSpeed);}else{slideTo("top");}}function getWinWH(sRef){var sRef =(sRef||sRef==0)?sRef.toString().toLowerCase(): "";var aWH ={};var iW =(bIsNs)?parseInt(self.outerWidth): parseInt(document.body.offsetWidth);var iH =(bIsNs)?parseInt(self.outerHeight): parseInt(document.body.offsetHeight);aWH["0"] = aWH["w"] = aWH["width"] = iW;aWH["1"] = aWH["h"] = aWH["height"] = iH;if(sRef&&aWH[sRef])return(aWH[sRef]);return(aWH);}function getMouseXY(e){if(bIsNs){iPosX = e.pageX;iPosY = e.pageY;}else{iPosX = event.clientX+document.body.scrollLeft;iPosY = event.clientY+document.body.scrollTop;}if(iPosX < 0){iPosX = 0;}if(iPosY < 0){iPosY = 0;}aiMousePosit = [iPosX,iPosY];return(true);}function getXobject(sIDname, objWinFrame){var objWF =(objWinFrame)?objWinFrame : window;var sType = typeof(sIDname);var xObject = null;if(sType.search("object")>=0)return(sIDname);sType = typeof(eval("objWF."+sIDname));if(sType.search("object")>=0){xObject = eval("objWF."+sIDname);if(bIsNs)xObject.style = xObject;return(xObject);}sType = typeof(eval("objWF.document."+sIDname));if(sType.search("object")>=0){xObject = eval("objWF.document."+sIDname);if(bIsNs)xObject.style = xObject;return(xObject);}if(document.getElementById){xObject = objWF.document.getElementById(sIDname);}else if(document.all){xObject = objWF.document.all[sIDname];}else if(objWF.document.layers){for(var i=0;i<objWF.document.layers.length;i++){var objLayerA = objWF.document.layers[i];objLayerA.style = objLayerA;if(objLayerA.id==sIDname||objLayerA.name==sIDname)return objLayerA;for(var j=0;j < objLayerA.document.images.length;j++){var xImage = objLayerA.document.images[j];xImage.parentLayer = objLayerA;if(xImage.id==sIDname||xImage.name==sIDname)return(xImage);}for(var j=0;j < objLayerA.document.layers.length;j++){var objLayerB = objLayerA.document.layers[j];objLayerB.parentLayer = objLayerA;objLayerB.style = objLayerB;if(objLayerB.id==sIDname||objLayerB.name==sIDname)return objLayerB;for(var k=0;k < objLayerB.document.images.length;k++){var xImage = objLayerB.document.images[k];xImage.parentLayer = objLayerB;if(xImage.id==sIDname||xImage.name==sIDname)return(xImage);}}}}return(xObject);}function getDistance(aiCorrA,aiCoorB){var aiCorrA =(typeof(aiCorrA)=="object")?[parseInt(aiCorrA.style.left),parseInt(aiCorrA.style.top)] : aiCorrA;var aiCorrB =(aiCoorB)?aiCoorB : aiMousePosit;var iDx = Math.abs(aiCorrA[0]-aiCorrB[0]);var iDy = Math.abs(aiCorrA[1]-aiCorrB[1]);var iDist = Math.sqrt(Math.pow(iDx,2)+Math.pow(iDy,2));return(iDist);}function getXYpos(objTarget){var sTypeObj = typeof(objTarget);if(sTypeObj.search("object")<0)return;var objREF = objTarget;var bMacIE =(bIsMac&&bIsIE);var iXpos = 0;var iYpos = 0;if(document.getElementById||document.all){do{iXpos+=(bMacIE)?objREF.clientLeft : objREF.offsetLeft;iYpos+=(bMacIE)?objREF.clientTop : objREF.offsetTop;objREF =(objREF.offsetParent)?objREF.offsetParent : false;}while(objREF)}else{do{iXpos+=(objREF.x)?parseInt(objREF.x): 0;iYpos+=(objREF.y)?parseInt(objREF.y): 0;objREF =(objREF.parentLayer)?objREF.parentLayer : false;}while(objREF);}objTarget.xPos = iXpos;objTarget.yPos = iYpos;}function initBulles(){if(!window.aBulles)return;var aDf = new Array(0,6,"#CCCCCC","transparent","");var aSt =(window.aSetBulles)?aSetBulles : aDf;for(i in aDf){aSt[i] =(aSt[i])?aSt[i] : aDf[i];};for(i in aBulles){var xBu =(bIsNs)?makeBulle_NS(aBulles[i][1], aSt):     makeBulle_IE(aBulles[i][1], aSt, "objBulle_"+i);aBulles[i][2] = getXobject(xBu.id);}if(bIsNs)window.document.captureEvents(Event.MOUSEMOVE);window.document.onmousemove = getMouseXY;}function makeBulle_IE(sTxtIn, aRefBulle, sIDname){if(!sTxtIn||!aRefBulle)return(null);var sID =(sIDname)?sIDname : "bulle"+parseInt(Math.random()*1000)+"_"+new Date().getTime();var sStyle = "visibility:hidden;color:"+aRefBulle[2]+";background:"+aRefBulle[3]+";position:absolute;;z-index:50";var sPlus =(aRefBulle[4])?" "+aRefBulle[4] : "";var sDivBulle = "<DIV ID='"+sID+"' STYLE='"+sStyle+"'><TABLE CLASS='tabBulle' border="+aRefBulle[0]+" cellspacing=0 cellpadding="+aRefBulle[1]+sPlus+"><TR><TD CLASS='cellBulle'>"+sTxtIn+"<\/TD><\/TR><\/TABLE><\/DIV>";document.body.insertAdjacentHTML("afterBegin",sDivBulle);var objBulle = getXobject(sID);return(objBulle);}function makeBulle_NS(sTxtIn, aRefBulle){if(!sTxtIn||!aRefBulle)return(null);var objBulle = new Layer(750);objBulle.style = objBulle;var sPlus =(aRefBulle[4])?" "+aRefBulle[4] : "";var sToWrite = "<TABLE CLASS='tabBulle' border="+aRefBulle[0]+" cellspacing=0 cellpadding="+aRefBulle[1]+sPlus+"><TR><TD CLASS='cellBulle'>"+sTxtIn+"<\/TD><\/TR><\/TABLE>";with(objBulle){visibility = "hide";color  = aRefBulle[2];bgColor  = aRefBulle[3];position = "absolute";zIndex = 10;document.open();document.write(sToWrite);document.close();}return(objBulle);}function actBulle(iIdx,bOn){if(!window.aBulles||!aBulles[0][2])return;for(i in aBulles)if(iIdx==aBulles[i][0])iIdx=i;if(parseInt(iIdx)!=iIdx||iIdx>aBulles.length-1){alert("ERREUR !\n\n- actBulle()\n- indice « "+iIdx+" » invalide\n- aBulles[0]["+iIdx+"].");return;}var objS = aBulles[iIdx][2].style;if(bOn){objS.left = aiMousePosit[0]+10;objS.top = aiMousePosit[1]-20;for(i in aBulles){objS.visibility =(i==iIdx)?"visible" : "hidden";clearTimeout(aBulles[i][3]);}}else{var iDist = getDistance(aBulles[iIdx][2]);aBulles[iIdx][3] =(iDist<30)?setTimeout("actBulle("+iIdx+",0)",150):    setTimeout("aBulles["+iIdx+"][2].style.visibility = 'hidden'",350);}}function getInfoNav(sSeparateur){var sSep =(sSeparateur)?sSeparateur : ":-:-:";var sInfoNav = "";for(i in navigator){if(!bIsOp)sInfoNav+= i+"&nbsp;=&nbsp;"+navigator[i]+sSep;}sInfoNav+= "javaEnabled()= "+navigator.javaEnabled().toString()+sSep;sInfoNav+= "taintEnabled()= "+navigator.taintEnabled().toString()+sSep;sInfoNav+= "plugins.length = "+navigator.plugins.length;return(sInfoNav);}function getInfoV(sSligne){var sReferrer =(document.referrer)?document.referrer : "accès sans référence";var sSL =(sSligne)?sSligne : ":-:-:";var sInfoV = getInfoNav(sSL)+sSL+"Origine REFERRER = "+sReferrer;return(escape(sInfoV));}function setNavX(){var sAgent = navigator.userAgent;var sNvers = navigator.appVersion;var sXname = "~~~";var sXvers = "~?~";var sXlang = "~~~";var iXvers = 0;if(bIsNs){sXname = "Netscape";iXvers = sNvers.cnvNum();}else if(bIsOp){sXname = "Opera";iXvers = sAgent.substr(sAgent.indexOf("Opera")+5).cnvNum();}else if(bIsIE){sXname = "Internet Explorer";iXvers = sNvers.substr(sNvers.indexOf("MSIE")+4).cnvNum();}var sL =(navigator.language)?navigator.language :(navigator.userLanguage)?navigator.userLanguage :(navigator.systemLanguage)?navigator.systemLanguage :(sAgent.indexOf("[")>= 0)?sAgent.substr(sAgent.indexOf("[")+1, 2): "";sXlang =(sL)?sL.substr(0,2): sXlang;if(bIsMac)sXname+= " ~Macintosh~";if(!iXvers>0)iXvers="~?~";navigator.xCross = "set";navigator.xName = sXname;navigator.xVers = iXvers;navigator.xLang = sXlang;navigator.xPlat = navigator.platform;navigator.xCook =(navigator.cookieEnabled)?true : "~?~";navigator.xJava = navigator.javaEnabled();}function chkNavOpt(iToChk, bWithInfo){var bInfoR =(bWithInfo)?bWithInfo : false;var abOptm = new Array();var aRefOpt = new Array([0,0], ["name","internet explorer"], ["version",[5.5,4.51,7.0]], ["screenWidth",1024,], ["innerWinX",770], ["innerWinY",470], ["plateform","win32"], ["java",true], ["langue",["fr","en","es"]], ["color", 16]);for(var i=0;i<aRefOpt.length;i++)if(iToChk==aRefOpt[i][0]){iToChk=i;break;}var iChk =(iToChk&&iToChk<aRefOpt.length)?iToChk : 0;abOptm[0] = true;abOptm[1] =(navigator.appName.toLowerCase().search(aRefOpt[1][1].toLowerCase())>=0&&!bIsOp);abOptm[2] =(navigator.appVersion.split(";")[1]).cnvNum()>= aRefOpt[2][1][0];if(bIsNs)abOptm[2] = navigator.xVers >= aRefOpt[2][1][1];if(bIsOp)abOptm[2] = navigator.xVers >= aRefOpt[2][1][2];abOptm[3] = window.screen.width >= aRefOpt[3][1];abOptm[4] =(bIsNs)?self.innerWidth >= aRefOpt[4][1] : document.body.clientWidth >= aRefOpt[4][1];abOptm[5] =(bIsNs)?self.innerHeight >= aRefOpt[5][1] : document.body.clientHeight >= aRefOpt[5][1];abOptm[6] = navigator.platform.toLowerCase().search(aRefOpt[6][1])>=0;abOptm[7] = navigator.javaEnabled();abOptm[8] = false;for(var i=0;i<aRefOpt[8][1].length;i++)if(navigator.xLang==aRefOpt[8][1][i])abOptm[8]=true;abOptm[9] = screen.colorDepth >= aRefOpt[9][1];abOptm[0] = eval(abOptm.join("&&"));bRtr =(abOptm[iChk])?abOptm[iChk] : false;if(bInfoR)bRtr+= "("+aRefOpt[iChk][0]+")";return(bRtr);}function makeCardex(asCartes,sIDname,aRefCardex){var objCardex;if(!asCartes)alert("ERREUR:\nfncBases.js -> function makeCardex()\nTentative de création de cardex sans matrice de asCartes.");objCardex =(bIsNs)?makeCardex_NS(asCartes,sIDname,aRefCardex): makeCardex_IE(asCartes,sIDname,aRefCardex);return(objCardex);}function makeCardex_IE(asCartes,sIDname,aRefCardex){var sID =(sIDname)?sIDname : "cardex";var aRef =(aRefCardex)?aRefCardex : new Array();var iW =(aRef[0])?aRef[0] : 200;var iH =(aRef[1])?aRef[1] : 200;var iX =(aRef[2])?aRef[2] : 0;var iY =(aRef[3])?aRef[3] : 0;var sIn =(aRef[4])?aRef[4] : "";var sCn =(aRef[5])?" CLASS='"+aRef[5]+"'" : "";var sStyle = "visibility:hidden;position:absolute;overflow:hidden;";var sDivCardex = "<DIV ID='"+sID+"'"+sCn+" STYLE='"+sStyle+" z-index:4; left:"+iX+";top:"+iY+";width:"+iW+";height:"+iH+"'>";for(var i=0;i<asCartes.length;i++){sDivCardex+= "<DIV ID='"+sID+"_c"+i+"' STYLE='"+sStyle+" top:0;left:0;width:"+iW+";height:"+iH+";z-index:1'>"+asCartes[i]+"<\/DIV>";}sDivCardex+= sIn;sDivCardex+= "<\/DIV>";document.body.insertAdjacentHTML("BeforeEnd",sDivCardex);var objCardex = getXobject(sID);objCardex.c = new Array();for(var i=0;i<asCartes.length;i++){objCardex.c[i] = getXobject(sID+"_c"+i);}return(objCardex);}function makeCardex_NS(asCartes,sIDname,aRefCardex){var sID =(sIDname)?sIDname : "cardex";var aRef =(aRefCardex)?aRefCardex : new Array();var iW =(aRef[0])?aRef[0] : 200;var iH =(aRef[1])?aRef[1] : 200;var iX =(aRef[2])?aRef[2] : 0;var iY =(aRef[3])?aRef[3] : 0;var sIn =(aRef[4])?aRef[4] : "";var objCardex = new Layer(iW);objCardex.style = objCardex;objCardex.c = new Array();with(objCardex){clip.right = iW;clip.bottom = iH;left  = iX;top  = iY;position = "absolute";visibility = "hide";zIndex = 4;if(sIn){document.open();document.write(sIn);document.close();}}for(var i=0;i<asCartes.length;i++){objCardex.c[i] = new Layer(iW,objCardex);objCardex.c[i].style = objCardex.c[i];with(objCardex.c[i]){zIndex = 5;document.open();document.write(asCartes[i]);document.close();moveTo(0,0);}}return(objCardex);}function str_allReplace(sToCut,sNew){var sNewStr = realReplace(this,sToCut,sNew);return(sNewStr);}function str_cnvInt(){var iResult = cnvInt(this);return(iResult);}function str_cnvNum(bFullText){var bFull =(bFullText)?bFullText : false;var iResult = cnvNum(this,bFull);return(iResult);}function str_putSpace(sSeparat){var sInit = this;var sSep =(sSeparat)?sSeparat : " ";var sOut = sInit.charAt(0);for(var i=1;i<sInit.length;i++){sOut+= sSep+sInit.charAt(i);}return(sOut);}function str_doLine(iNb){var iNb =(iNb)?iNb : 25;var sInit = this;for(var i=1;i<iNb;i++){sInit+= this;}return(sInit);}