// copyright © Job 't Hart
// Internet Christians
// http://www.internet-christians.com

// versión 1.10 14/02/2009
//   -> nueva función HIInit que llama a MYInit
// versión 1.9 01/07/2008
//   -> valEmail sin regular expression
// versión 1.8 09/06/2008
//   -> nuevas funciones checkPay y valPayMethods
// versión 1.7 26/04/2008
//   -> no permitir código HTML en textfields
//   -> mejor validación de emails con regular expression
// versión 1.6 06/10/2007
//   -> nuevas funciones para mostrar identificación fiscal y dirección
//   -> nuevas funciones valNumFld y valNumberFld
//   -> nuevas funcionas para validar cuentas CCC (valCCC, valAccNumFld, AccCalcDigit)
// versión 1.5 20/08/2007
//   -> nuevas funciones para (des)habilitar botones de formularios
// versión 1.4 16/05/2007
//   -> valRad contempla grupos de radiobuttons de un sólo botón
//   -> checkText para controlar longitud máxima en text areas con mensaje en multi-idioma
// versión 1.3 12/02/2007
//   -> nuevas funciones para:
//      -> manejar popups
//      -> gestión de cookies
//      -> cambiar colores, subrayado y el cursor de layers
//      -> manejar campos de formularios
//   -> nueva función valPassword
// versión 1.2 05/12/2005
//   -> prohibir emails de los MSN y Yahoo Groups
// versión 1.1 09/11/2005
//   -> formFocus para poner el foco al primer campo en la pantalla
//   -> validaciones de campos
//   -> soporte multi-idioma para los alerts
// versión 1.0 01/10/2005
//   -> versión inicial

var defSt="Bienvenido"
var lang=""
var langs=new Array("es")
var fldColor='black'
var fldFocusColor='black'
var fldBgColor='white'
var fldFocusBgColor='rgb(255,255,204)'
var fldDisBgColor='rgb(226,226,226)'

var HIText=new Array()
HIText["es"]=new Array()
HIText["es"][0]="El texto supera el l\xEDmite de caracteres permitidos. Por favor, rev\xEDselo."
HIText["es"][1]="Por favor, introduzca la direcci\xF3n de correo electr\xF3nico."
HIText["es"][2]='El formato de la direcci\xF3n de correo electr\xF3nico debe ser "nombre@servidor.com", con su nombre y su servidor.\nSolamente est\xE1n permitidos letras (A-Z,a-z), números (0-9), el punto (.), gui\xF3n (-) y raya baja (_). No se permiten espacios.\nNo se permiten direcciones de correo electr\xF3nico de los MSN groups, ni de los Yahoo groups.'
HIText["es"][3]='Por favor, introduzca su contrase\xF1a'
HIText["es"][4]='La contrase\xF1a debe tener una longitud m\xEDnima de 6 caracteres'
HIText["es"][5]='Por favor, introduzca la confirmaci\xF3n de la contrase\xF1a'
HIText["es"][6]='La contrase\xF1a y la confirmaci\xF3n no coinciden'
HIText["es"][7]='El valor introducido no es un n\xFAmero.\n\nSolamente est\xE1n permitidos números (0-9), y el punto (.) para separar los decimales.\nNo se permiten espacios.'
HIText["es"][8]='El valor introducido debe ser mayor que '
HIText["es"][9]='El valor introducido debe ser menor que '
HIText["es"][10]='Por favor, introduzca el c\xF3digo del banco'
HIText["es"][11]='Por favor, introduzca el n\xFAmero de la oficina'
HIText["es"][12]='Por favor, introduzca el d\xEDgito de control'
HIText["es"][13]='Por favor, introduzca el n\xFAmero de cuenta'
HIText["es"][14]='El d\xEDgito de control no es correcto'
HIText["es"][15]='No se permite usar c\xF3digo HTML'
HIText["es"][16]='Por favor, seleccione el m\xE9todo de pago'
HIText["es"][17]='Procesando...'
HIText["es"][18]='Al tratarse de una preventa, no le cargaremos el importe en su tarjeta de cr\xE9dito hasta que tengamos todos los productos.'
HIText["es"][19]='Se va a realizar una conexi\xF3n a la pasarela del banco...\n\nPor favor, complete todo el proceso del pago hasta volver a nuestra web.'
HIText["es"][20]='Se va a realizar una conexi\xF3n a la web de Paypal...\n\nPor favor, complete todo el proceso del pago hasta volver a nuestra web.'
HIText["es"][21]='Enero'
HIText["es"][22]='Febrero'
HIText["es"][23]='Marzo'
HIText["es"][24]='Abril'
HIText["es"][25]='Mayo'
HIText["es"][26]='Junio'
HIText["es"][27]='Julio'
HIText["es"][28]='Agosto'
HIText["es"][29]='Septiembre'
HIText["es"][30]='Octubre'
HIText["es"][31]='Noviembre'
HIText["es"][32]='Diciembre'
HIText["es"][33]='Domingo'
HIText["es"][34]='Lunes'
HIText["es"][35]='Martes'
HIText["es"][36]='Miércoles'
HIText["es"][37]='Jueves'
HIText["es"][38]='Viernes'
HIText["es"][39]='Sábado'

HIText["en"]=new Array()
HIText["en"][0]="The text surpasses the allowed length of characters. Please, correct it."
HIText["en"][1]="Please, enter your email address."
HIText["en"][2]='The format of the email address must be "name@server.com", with your name and your server.\nAllowed characters are letters (A-Z,a-z), numbers (0-9), dots (.), dash (-) and lower dash (_). Spaces are not allowed.\nEmail addresses of the MSN groups or Yahoo groups are not allowed.'
HIText["en"][3]='Please, enter your password'
HIText["en"][4]='The password must have at least 6 characters'
HIText["en"][5]='Please, enter the confirmation of your password'
HIText["en"][6]='The password and its confirmation are not the same'
HIText["en"][7]='The value is not a number.\n\nAllowed characters are numbers (0-9), and the dot (.) for separating the decimals.\nSpaces are not allowed.'
HIText["en"][8]='The value must be greater than '
HIText["en"][9]='The value must be smaller than '
HIText["en"][10]='Please, enter the bank code'
HIText["en"][11]='Please, enter the branch number'
HIText["en"][12]='Please, enter the check digit'
HIText["en"][13]='Please, enter the account number'
HIText["en"][14]='The check digit is not valid'
HIText["en"][15]='HTML code is not allowed'
HIText["en"][16]='Please, select the pay method'
HIText["en"][17]='Processing...'
HIText["en"][18]='Because it is a preorder, we will not charge your credit card until we have all the products.'
HIText["en"][19]='A connection with the bank will be established...\n\nPlease, complete the whole process until you are back again at our website.'
HIText["en"][20]='You will be directed to PayPal...\n\nPlease, complete the whole process until you are back again at our website.'
HIText["en"][21]='January'
HIText["en"][22]='February'
HIText["en"][23]='March'
HIText["en"][24]='April'
HIText["en"][25]='May'
HIText["en"][26]='June'
HIText["en"][27]='July'
HIText["en"][28]='August'
HIText["en"][29]='September'
HIText["en"][30]='October'
HIText["en"][31]='November'
HIText["en"][32]='December'
HIText["en"][33]='Sunday'
HIText["en"][34]='Monday'
HIText["en"][35]='Tuesday'
HIText["en"][36]='Wednesday'
HIText["en"][37]='Thursday'
HIText["en"][38]='Friday'
HIText["en"][39]='Saturday'

HIText["nl"]=new Array()
HIText["nl"][0]="De text is te lang. Verbeter het, alstublieft"
HIText["nl"][1]="Voer uw email adres in, alstublieft"
HIText["nl"][2]='Het email adres is niet geldig.\nDe geldige tekens zijn letters (A-Z,a-z), nummers (0-9), punten (.) en de streepjes (-_). Spaties zijn niet toegestaan.\nWe accepteren geen email adressen van de MSN groups of Yahoo groups.'
HIText["nl"][3]='Voer uw wachtwoord in, alstublieft'
HIText["nl"][4]='Het wachtwoord moet minstens 6 tekens lang zijn'
HIText["nl"][5]='Voer un wachtwoord nogmaals in, alstublieft'
HIText["nl"][6]='Het wachtwoord en de bevestiging zijn verschillend'
HIText["nl"][7]='U moet een nummer invoeren.\n\nDe geldige tekens zijn nummers (0-9), en de punt (.) voor de decimale waarde.\nSpaties zijn niet toegestaan.'
HIText["nl"][8]='Het nummer moet groter zijn als '
HIText["nl"][9]='Het nummer moet kleiner zijn als '
HIText["nl"][10]='Voer het banknummer in, alstublieft'
HIText["nl"][11]='Voer het kantoornummer in, alstublieft'
HIText["nl"][12]='Voer het controle nummer in, alstublieft'
HIText["nl"][13]='Voer het rekeningnummer in, alstublieft'
HIText["nl"][14]='Het controle nummer is niet geldig'
HIText["nl"][15]='HTML code is niet toegestaan'
HIText["nl"][16]='Kies de betalingswijze, alstublieft'
HIText["nl"][17]='Bezig...'
HIText["nl"][18]='Bij een voorbestelling betaalt u pas als we alle produkten in voorraad hebben.'
HIText["nl"][19]="U wordt nu doorgestuurd naar de bank...\n\nVoltooi, alstublieft het hele betalingsproces, totdat u weer terugkomt bij onze web."
HIText["nl"][20]="U wordt nu doorgestuurd naar PayPal...\n\nVoltooi, alstublieft het hele betalingsproces, totdat u weer terugkomt bij onze web."
HIText["nl"][21]='Januari'
HIText["nl"][22]='Februari'
HIText["nl"][23]='Maart'
HIText["nl"][24]='April'
HIText["nl"][25]='Mei'
HIText["nl"][26]='Juni'
HIText["nl"][27]='Juli'
HIText["nl"][28]='Augustus'
HIText["nl"][29]='September'
HIText["nl"][30]='Oktober'
HIText["nl"][31]='November'
HIText["nl"][32]='December'
HIText["nl"][33]='Zondag'
HIText["nl"][34]='Maandag'
HIText["nl"][35]='Dinsdag'
HIText["nl"][36]='Woensdag'
HIText["nl"][37]='Donderdag'
HIText["nl"][38]='Vrijdag'
HIText["nl"][39]='Zaterdag'

var MYText=new Array()
MYText["es"]=new Array()
MYText["en"]=new Array()
MYText["nl"]=new Array()

function wst(tip){window.status=tip;return true;}
function dst(){return wst(defSt)}
function HIMsg(i){alert(HIText[getLang()][i])}
function MYMsg(i){alert(MYText[getLang()][i])}

function HIInit(pFocus){
	MYInit()
	if (pFocus) formFocus()
	return dst()
}

function getLang(){
  if (lang==""){
    var keys=new Array("idioma")
    var pars=getParams(keys)
    lang=pars[0]
    var ok=false
    for (var i in langs){
      if (langs[i]==lang){
        ok=true
        break
      }
    }
    if (!ok) lang=langs[0]
  }
  return lang
}

function getParams(k){
  var max=k.length
  var pars=new Array(max)
  var i=0
  var pos=0
  var url=unescape(''+this.location)
  var val=""
  for (i=0; i<max; i++) pars[i]=""
  if ((pos=url.indexOf('?'))>-1){
    url=url.substring(pos+1)
    for (i=0; i<max; i++){
      if ((pos=url.indexOf(k[i]+"="))>-1){
        val=url.substring(pos+k[i].length+1)
        if ((pos=val.indexOf('&'))>-1) val=val.substring(0,pos)
        pars[i]=unescape(val)
      }
    }
  }
  return pars
}

function replStr(str,s,d){
  var pos=-1
  var news=str
  var len=s.length
  while ((pos=news.indexOf(s)) > -1) news=news.substring(0,pos)+d+news.substring(pos+len)
  return news
}

function showIF(i1,i2){document.write(i1+': '+i2)}
function showAd(a1,a2,a3,a4){document.write(a1+'<br />'+a2+' '+a3+'<br />'+a4)}
function showMl(p1,p2,p3){document.write('<a href="mailto:'+p1+'@'+p2+'.'+p3+'">'+p1+'@'+p2+'.'+p3+'</a>')}

function formFocus(){
  if (document.forms && document.forms.length>0){
    var frm=document.forms[0]
    var maxi=frm.length
    var fld
    for (var i=0; i<maxi; i++){
      fld=frm.elements[i]
      if ((fld.type=="text") || (fld.type=="password") || (fld.type=="textarea") || (fld.type.toString().charAt(0)=="s")){
        fld.focus()
        break
      }
    }
  }
}

function fldFocus(f){
	var fld=(typeof(f)=="string")?getFld(f):f
	if (f=='name') alert("f="+f+"\nfld="+fld)
	var fname=(fld)?fld.name:f
	if (fld && (fld.type=="button" || fld.type=="submit" || fld.type=="reset")) setColor(fname,fldFocusColor)
	else {
	  setBgColor(fname,fldFocusBgColor)
    setColor(fname,fldFocusColor)
	}
	if (!fld) setCursor(fname)
	//else if (fld.type=="text" || fld.type=="textarea" || fld.type=="password") fld.select()
}

function fldBlur(f){
	var fld=(typeof(f)=="string")?getFld(f):f
	var fname=(fld)?fld.name:f
  if (!fld || fld.type=="radio" || fld.type=="checkbox") setBgColor(fname,fldBgColor)
  else if (fld && (fld.type=="button" || fld.type=="submit" || fld.type=="reset")) setColor(fname,fldColor)
  else {
 	  setBgColor(fname,fldBgColor)
    setColor(fname,fldColor)
  }
}

function getFld(f){
  var maxfrm=document.forms.length
  var i=0
  var fld=null
  while (!fld && i<maxfrm){
  	fld=eval("document.forms["+i+"]."+f)
  	i++
  }
  return fld
}

function disableDoc(){disableForms(true)}
function enableDoc (){disableForms(false)}
function disableForms(v){
	var maxf = (document.forms) ? document.forms.length : 0
	for (var f=0; f<maxf; f++){
    var frm=document.forms[f]
    var maxi=frm.length
    var fld
    for (var i=0; i<maxi; i++){
      fld=frm.elements[i]
	    if (fld.type=="button" || fld.type=="submit" || fld.type=="reset") fld.disabled=v
    }
  }
}

function disableFld(f,c){disableField(f,true,(arguments.length==1 || c))}
function enableFld(f,c) {disableField(f,false,(arguments.length==1 || c))}
function disableField(f,v,c){
	var fld=(typeof(f)=="string")?getFld(f):f
	if (fld){
		if (fld.type!="button" && fld.type!="submit" && fld.type!="reset"){
    	if (v){
    		if (c){
      		if (fld.type=="text" || fld.type=="textarea") fld.value=''
      		else if (fld.type=="select-one" || fld.type=="select-multiple")	fld.selectedIndex=0
      	}
    		setBgColor(fld.name,fldDisBgColor)
    	} else {
    		setBgColor(fld.name,fldBgColor)
    	}
    }
    fld.disabled=v
  }
}

function checkText(f,l){
	var fld=(typeof(f)=="string")?getFld(f):f
	if (fld.value.length>l) fld.value=fld.value.substring(0,l)
	var len=fld.value.length
	var lan=getLang()
	if (lan=="es"){
  	setHTML(fld.name+"msg", len==0?"El tamaño del texto está limitado a un máximo de "+l+" caracteres":len>=l?"No queda ningún carácter":len==l-1?"Queda 1 carácter restante":"Quedan "+(l-len)+" caracteres restantes")
  } else if (lan=="en"){
  	setHTML(fld.name+"msg", len==0?"The size of the message is limited to a maximum of "+l+" characters":len>=l?"No character left":len==l-1?"Only 1 character left":(l-len)+" characters left")
  } else if (lan=="nl"){
  	setHTML(fld.name+"msg", len==0?"Maximum "+l+" tekens toegestaan":len>=l?"Geen tekens resterend":len==l-1?"Slechts 1 teken resterend":(l-len)+" tekens resterend")
  }
}

function valPayMethods(pType) {
	var fld1=getFld('pagoC')
	var fld2=getFld('pagoP')
	var fld3=getFld('pagoT')
	var fld4=getFld('pagoD')
	var res=true
	if (!(fld1 && fld1.checked) && !(fld2 && fld2.checked) && !(fld3 && fld3.checked) && !(fld4 && fld4.checked)) {
		res=false
		HIMsg(16)
	} else {
		if (fld1 && fld1.checked) {
			HIMsg(19)
		} else if (fld2 && fld2.checked) {
			HIMsg(20)
		} else if (fld4 && fld4.checked) {
    	res=valCCC('bank','branch','dc','account')
    }
    if (res) {
  		var fld=getFld('pay')
  		enableFld(fld)
  		fld.value=HIText[getLang()][17]
  		disableFld(fld)
  		if (fld1 && fld1.checked && pType=='preventa') HIMsg(18)
  	}
	}
	return res
}

function checkPay(){
  var lyr=getLayer('acc')
  if (lyr) {
    var fld1=getFld('pagoD')
   	var fld2=getFld('bank')
   	var fld3=getFld('branch')
   	var fld4=getFld('dc')
   	var fld5=getFld('account')
    if (fld1 && fld1.checked) {
  	  lyr.style.visibility='visible'
  	  enableFld(fld2)
  	  enableFld(fld3)
  	  enableFld(fld4)
  	  enableFld(fld5)
  	  fld2.focus()
    } else {
  	  disableFld(fld2,false)
  	  disableFld(fld3,false)
  	  disableFld(fld4,false)
  	  disableFld(fld5,false)
  	  lyr.style.visibility='hidden'
  	}
  }
}

function valTxtFld(f,s,l,m){
	var fld=(typeof(f)=="string")?getFld(f):f
  if (fld.value==""){
  	if (arguments.length<4 || m){
      MYMsg(s)
      fld.focus()
      return false
    }
  } else {
		if (arguments.length>=3 && fld.value.length>l){
			HIMsg(0)
			fld.focus()
			return false
		} else if (fld.value.indexOf('</a>')!=-1 || fld.value.indexOf('<img')!=-1){
			HIMsg(15)
			fld.focus()
			return false
		}
  }
  return true
}

function valNumberFld(f,l,m,n){
	var fld=(typeof(f)=="string")?getFld(f):f
	var val=fld.value
	if (arguments.length>=3 && val.length>l){
		HIMsg(0)
		fld.focus()
		return false
	} else {
		if (isNaN(val)){
			HIMsg(7)
			fld.focus()
			return false
		} else {
			if (arguments.length>=4 && val<m){
				alert(HIText[getLang()][8]+m)
				fld.focus()
				return false
			} else {
				if (arguments.length>=5 && val>n){
  				alert(HIText[getLang()][9]+n)
  				fld.focus()
  				return false
				}
			}
		}
	}
	return true
}

function valNumFld(f,s,l,m,n){
	var fld=(typeof(f)=="string")?getFld(f):f
	var val=fld.value
  if (val==""){
    MYMsg(s)
    fld.focus()
    return false
  } else {
  	return valNumberFld(f,l,m,n)
  }
  return true
}

function valAccNumFld(f,s,l,m,n){
	var fld=(typeof(f)=="string")?getFld(f):f
	var val=fld.value
  if (val==""){
    HIMsg(s)
    fld.focus()
    return false
  } else {
  	return valNumberFld(f,l,m,n)
  }
  return true
}

function valRad(f,s){
	var fld=(typeof(f)=="string")?getFld(f):f
  var res=false
	if (fld.type=="radio"){
		if (fld.checked){
			res=true
		} else {
			MYMsg(s)
			fld.focus()
		}
	} else {
    var i=0
    var m=fld.length
    while (i<m && !res){
      if (fld[i].checked) res=true
      i++
    }
    if (!res){
      MYMsg(s)
      fld[0].focus()
    }
  }
  return res
}

function valPassword(f1,f2){
	var fld1=(typeof(f1)=="string")?getFld(f1):f1
  if (fld1.value==""){
    HIMsg(3)
    fld1.focus()
    return false
  }
  if (fld1.value.length<6){
  	HIMsg(4)
  	fld1.focus()
  	return false
  }
  if (arguments.length>=2 && f2!=''){
  	var fld2=(typeof(f2)=="string")?getFld(f2):f2
    if (fld2.value==""){
      HIMsg(5)
      fld2.focus()
      return false
    }
    if (fld2.value.length<6){
    	HIMsg(4)
    	fld2.focus()
    	return false
    }
    if (fld1.value!=fld2.value){
    	HIMsg(6)
    	fld2.focus()
    	return false
    }
  }
	return true
}

function valEmail(f){
	var fld=(typeof(f)=="string")?getFld(f):f
  var res=false
  var email=fld.value.toLowerCase()
  if(email==""){
    HIMsg(1)
    fld.focus()
  } else {
 	  var parts=email.split('@')
 	  res=(parts.length==2)
 	  if(res){
   	  var user=parts[0]
 	    res=(user.length>=3 && user.length<=64)
 	    if(res) res=valStringForChars(user,'abcdefghijklmnopqrstuvwxyz0123456789.-_')
 	    if(res){
   	    var serv=parts[1]
   	    res=(serv.length>=5 && serv.length<=255)
   	    if(res) res=valStringForChars(serv,'abcdefghijklmnopqrstuvwxyz0123456789.-')
   	    if(res){
       	  var servparts=serv.split('.')
     	    res=(servparts.length>=2)
     	    if(res){
       	    var servname=servparts[0]
       	    res=(servname.length>=2 && servname.length<=252)
       	    if(res){
           	  var servext=servparts[servparts.length - 1]
         	    res=(servext.length>=2 && servext.length<=4)
              if(res){
            	  res=(serv!="servidor.com" && serv!="mail.ru" && serv!="inbox.ru" && serv!="viagra.com" && serv!="groups.msn.com" && serv!="groups.yahoo.com")
              }
            }
          }
        }else{
        	alert('serv with invalid chars')
        }
      }else{
      	alert('user with invalid chars')
      }
    }
    if (!res){
      HIMsg(2)
      fld.focus()
    }
  }
  return res
}

function valStringForChars(s,v){
	var res=true
	var l=s.length
	var i=0
	while(res && i<l){
		res=(v.indexOf(s.charAt(i))>-1)
		i++
	}
	return res
}

function AccCalcDigit(n){
  var pesos=new Array(1,2,4,8,5,10,9,7,3,6)
	var l=n.length
	var tot=0
	var v=0
	var pes=0
	var vv=0
	for (var i=0; i<l; i++) tot+=parseInt(n.charAt(i))*pesos[i]
	var resto=tot%11
	var dig=11-resto
	if(dig==11) dig=0
	else if (dig==10) dig=1
	return dig
}

function valCCC(f1,f2,f3,f4){
  var res=false
  res=valAccNumFld(f1,10,4,1)
  if (res) res=valAccNumFld(f2,11,4,1)
  if (res) res=valAccNumFld(f3,12,2,1)
  if (res) res=valAccNumFld(f4,13,10,1)
  if (res){
    var fld1=getFld(f1)
    while (fld1.value.length<4) fld1.value='0'+fld1.value
    var fld2=getFld(f2)
    while (fld2.value.length<4) fld2.value='0'+fld2.value
    var fld3=getFld(f3)
    while (fld3.value.length<2) fld3.value='0'+fld3.value
    var fld4=getFld(f4)
    while (fld4.value.length<10) fld4.value='0'+fld4.value
  	var cd=''+AccCalcDigit('00'+fld1.value+fld2.value)+AccCalcDigit(''+fld4.value)
  	if (fld3.value!=cd){
  		HIMsg(14)
  		fld3.focus()
  		res=false
  	}
  }
  return res
}

function popWin(win,n,u,w,h,l,t,s,r){
  var st=arguments.length>=8 ? s : 1
  var rs=arguments.length>=9 ? r : 1
  var par="status="+st+",resizable="+rs+",scrollbars=1,width="+w+",height="+h+",left="+l+",top="+t
  win=window.open(u,n,par)
  win.creator=self
  win.focus()
}

var popBible=null
function popBibleRef(pUrl){
  popWin(popBible,'BIBLEGATEWAY',pUrl,800,600,0,0,0,1)
}

function getcookie(par){
  var srch=par+"="
  var res=""
  var ck=document.cookie
  if (ck.length>0){
    var pos=ck.indexOf(srch)
    if (pos>-1){
      pos+=srch.length
      var end=ck.indexOf(";",pos)
      if (end==-1) end=ck.length
      res=unescape(ck.substring(pos,end))
    }
  }
  return res
}

function setcookie(key,val,pdate,path,domain,secure){
	var myDate=""
  if (typeof(pdate)=='string') myDate=pdate
  else if (typeof(pdate)=='number') myDate=(new Date((new Date()).getTime()+pdate*3600000)).toGMTString()
  document.cookie = key + '=' + val + ((myDate!="")?('; expires=' + myDate):'') + ((path)?'; path=' + path:'') + ((domain)?'; domain=' + domain:'') + ((secure && (secure==true))?'; secure':'')
}

function deletecookie(key){setcookie(key,'',-1)}

var cookiedate="Fri, 31-Dec-2100 23:59:59 GMT"

function getLayer(pId){
	var lyr=null
  if (document.getElementById) lyr=document.getElementById(pId)
  else if (document.all) lyr=document.all[pId]
  return lyr
}

function setHTML(pId,pHtml){
  var lyr=getLayer(pId)
  if (lyr) lyr.innerHTML=pHtml
}

function setColor(pId,c){
	var lyr=getLayer(pId)
	if (lyr && lyr.style) lyr.style.color=c
}

function setBgColor(pId,c){
	var lyr=getLayer(pId)
	if (lyr && lyr.style) lyr.style.backgroundColor=c
}

function setUnderline(pId,pFlag){
	var lyr=getLayer(pId)
 	if (lyr && lyr.style){
 		if (pFlag) lyr.style.textDecoration="underline"
 	  else lyr.style.textDecoration="none"
 	}
}

function setCursor(pId){
	var lyr=getLayer(pId)
 	if (lyr && lyr.style) lyr.style.cursor="hand"
}

function swapImg(iid,nr) {if (document.images) document.images[iid].src=eval('img'+nr+'.src')}


function getDayName(d,l){return HIText[l][33+d.getDay()]}
function getMonthName(d,l){return HIText[l][21+d.getMonth()]}
function getFullDate(d,s1,s2){
	var str1=arguments.length>1 ? s1 : ', '
	var str2=arguments.length>2 ? s2 : ''
	var l=getLang()
	if (l=='es'){
    return getDayName(d,l)+str1+d.getDate()+' de '+getMonthName(d,l)+' de '+d.getFullYear()+str2
  } else if (l=='en'){
  	return getDayName(d,l)+str1+getMonthName(d,l)+' '+d.getDate()+' '+d.getFullYear()+str2
  } else if (l=='nl'){
    return getDayName(d,l)+str1+d.getDate()+' '+getMonthName(d,l)+' '+d.getFullYear()+str2
  }
}