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

// PENSAMIENTO CRISTIANO
// http://www.pensamientocristiano.com

// versión 1.3 26/04/2008
//   -> no permitir código HTML en textfields
//   -> popup Protección de datos
//   -> recoger info de cómo nos conocieron
// versión 1.2 02/04/2008
//   -> recomendar a un amigo
//   -> Google search
// versión 1.1 20/08/2007
//   -> (des)habilitar botones en submit de formularios
// versión 1.0 16/06/2007
//   -> versión inicial

defSt="Pensamiento Cristiano"

langs=Array("es")
fldColor='rgb(0,102,102)'
fldFocusColor='rgb(0,102,102)'
fldBgColor='white'
fldFocusBgColor='rgb(204,255,204)'
fldDisBgColor='rgb(226,226,226)'

var ml1='info'
var ml2='pensamientocristiano'
var ml3='com'

MYText["es"][0]="Por favor, introduzca su mensaje."
MYText["es"][1]="Por favor, introduzca su nombre."
MYText["es"][2]="Por favor, introduzca la direcci\xF3n."
MYText["es"][3]="Por favor, introduzca la localidad."
MYText["es"][4]="Por favor, seleccione el pa\xEDs."
MYText["es"][5]="Por favor, introduzca el pa\xEDs."
MYText["es"][6]="Por favor, seleccione la provincia."
MYText["es"][7]="Por favor, introduzca la provincia."
MYText["es"][8]="Por favor, seleccione el importe."
MYText["es"][9]="Por favor, introduzca el importe."
MYText["es"][10]="Por favor, seleccione la periodicidad del donativo."
MYText["es"][11]="Por favor, seleccione el método de pago."

function MYInit(){}

function acceptLey () {
  return confirm("CONDICIONES DE SUSCRIPCI\xD3N\n\nEn cumplimiento de la Ley Org\xE1nica 15/1999, de 13 de diciembre de 1999, de Protecci\xF3n de Datos de Car\xE1cter Personal (ley espa\xF1ola), le informamos que:\n*.- sus datos ser\xE1n recogidos en nuestra base de datos de suscripciones\n*.- esta base de datos de suscripciones se utiliza solamente para el env\xEDo de nuestro bolet\xEDn de noticias (una vez al mes, salvo excepciones)\n*.- sus datos no ser\xE1n cedidos a terceros bajo ninguna condici\xF3n\n*.- usted podr\xE1 eliminar sus datos cuando lo crea conveniente, mediante el formulario en nuestra web\n\nSi acepta estas condiciones, pulse el bot\xF3n Aceptar, si no pulse el bot\xF3n Cancelar.")
}

function changeMonth() {
	var fld=getFld('month')
	var yyyymm=fld.options[fld.selectedIndex].value
	var accion="mostrar.mes."+yyyymm
	var currUrl=unescape(""+this.location)
	if (currUrl.indexOf('Mes2.shtml')>-1) accion+=".parrafo"
	getFld('meshtml').value='<script language="javascript" type="text/javascript" src="http://www.pensamientocristiano.com/cgi-bin/enlace.pl?accion='+accion+'"></script><noscript><a href="http://www.pensamientocristiano.com">Pensamiento Cristiano</a></noscript>'
}

function valContact() {
	disableDoc()
  var res=true
  var fld=getFld('news')
  res=valTxtFld('mensaje',0,1000)
  if (res) res=valTxtFld('nombre',1)
  if (res) res=valEmail('email')
  if (res) res=valTxtFld('otroreferrer','',500,false)
  if (!res) enableDoc()
  return res
}

function valMesFeedback() {
	disableDoc()
  var res=true
  var fld=getFld('news')
  if (fld.checked) res=valTxtFld('mensaje',0,1000,false)
  else res=valTxtFld('mensaje',0,1000,true)
  if (res) res=valTxtFld('nombre',1)
  if (res) res=valEmail('email')
  if (res) res=valTxtFld('otroreferrer','',500,false)
  if (!res) enableDoc()
  return res
}

function valSuscription() {
	disableDoc()
  var res=true
  res=valTxtFld('nombre',1)
  if (res) res=valEmail('email')
  if (res) res=valTxtFld('otroreferrer','',500,false)
  if (!res) enableDoc()
  return res
}

function valSuscriptionChange() {
	disableDoc()
  var res=true
  res=valTxtFld('nombre',1)
  if (res) res=valEmail('email')
  if (res) res=valEmail('newemail')
  if (!res) enableDoc()
  return res
}

function valSuscriptionDelete() {
	disableDoc()
  var res=true
  res=valTxtFld('nombre',1)
  if (res) res=valEmail('email')
  if (!res) enableDoc()
  return res
}

function valDonate() {
	disableDoc()
  var res=valTxtFld('nombre',1)
  if (res) res=valEmail('email')
  if (res) res=valTxtFld('address',2)
  if (res) res=valTxtFld('city',3)
  if (res){
  	var fld1=getFld('ctry')
  	var val1=fld1[fld1.selectedIndex].value
  	if (val1=='_'){
  		res=false
  		MYMsg(4)
  		fld1.focus()
  	} else if (val1=='other'){
  		res=valTxtFld('otherctry',5)
  	} else {
    	var fld2=getFld('prov')
    	var val2=fld2[fld2.selectedIndex].value
  	  if (val2=='_'){
  	  	res=false
  	  	MYMsg(6)
  	  	fld2.focus()
  	  }
  	}
  }
  if (res){
  	var fld1=getFld('amount')
  	var val1=fld1[fld1.selectedIndex].value
  	if (val1=='000'){
  		res=false
  		MYMsg(8)
  		fld1.focus()
  	} else if (val1=='XXX'){
  		res=valNumFld('otheramount',9,6,5,999)
  	}
  }
  if (res) res=valRad('period',10)
  if (res) res=valRad('pago',11)
  if (res) res=valPayMethods('venta directa')
  if (!res) enableDoc()
  return res
}

function valEncuestaEBook(){
	disableDoc()
  var res=true
  res=valTxtFld('P8',1,500,false)
  if (!res) enableDoc()
  return res
}

function countryIBAN(c){
  return (c=="ad" || c=="at" || c=="be" || c=="ch" || c=="cs" || c=="cy" || c=="cz" || c=="de" || c=="dk" || c=="ee" || c=="es" || c=="fi" || c=="fo" || c=="fr" || c=="gb" || c=="gi" || c=="gl" || c=="gr" || c=="hr" || c=="hu" || c=="ie" || c=="is" || c=="it" || c=="li" || c=="lt" || c=="lu" || c=="lv" || c=="mc" || c=="mk" || c=="mt" || c=="nl" || c=="no" || c=="pl" || c=="pt" || c=="ro" || c=="se" || c=="si" || c=="sk" || c=="sm" || c=="tn" || c=="tr" || c=="uk")
}

function Prov(i,d){this.iso=i;this.desc=d}
function checkCtry(pFld1,pFld2,pval2,pfoc){
  var fld1=getFld(pFld1)
  var fld2=getFld(pFld2)
  var fld3=getFld('otherctry')
  var lyrC=getLayer('octry')
  var lfoc=arguments.length>=4?pfoc:true
  var lyrT=getLayer('pagoTrow')
  var lyrD=getLayer('pagoDrow')
  var lyrA=getLayer('acc')
  var lpay=(lyrT!=null)
  for (var i=fld2.options.length-1; i>=0; i--) fld2.options[i]=null
  if (fld1.selectedIndex>0) {
  	var val1=fld1[fld1.selectedIndex].value
  	if (val1=='other') {
  		lyrC.style.visibility='visible'
  		if (lpay){
       	lyrT.style.visibility='hidden'
       	lyrA.style.visibility='hidden'
       	lyrD.style.visibility='hidden'
      }
  		enableFld(fld3)
  		disableFld(fld2)
  		fld3.focus()
  	} else {
  		disableFld(fld3)
  		enableFld(fld2)
  		if (lfoc) fld2.focus()
  		lyrC.style.visibility='hidden'
      var provs=countries[val1]
      var maxi=provs.length
      fld2.options[0]=new Option('Seleccione...', '_')
      for (var i=0; i<maxi; i++) {
        if (pval2==provs[i].iso) {
          fld2.options[i+1]=new Option(provs[i].desc,provs[i].iso,true,true)
        } else {
          fld2.options[i+1]=new Option(provs[i].desc,provs[i].iso)
        }
      }
      if (lpay){
        if (val1=='es'){
        	lyrD.style.visibility='visible'
        } else {
         	lyrA.style.visibility='hidden'
        	lyrD.style.visibility='hidden'
        }
        if (countryIBAN(val1)){
        	lyrT.style.visibility='visible'
        } else {
        	lyrT.style.visibility='hidden'
        }
      }
    }
  } else {
  	disableFld(fld3)
  	enableFld(fld2)
		lyrC.style.visibility='hidden'
		if (lpay){
     	lyrT.style.visibility='hidden'
     	lyrA.style.visibility='hidden'
     	lyrD.style.visibility='hidden'
    }
    fld2.options[0]=new Option('Seleccione primero el país...', '')
  }
}

function checkAmount(){
	var fld1=getFld('amount')
  var fld2=getFld('otheramount')
  var lyr=getLayer('oamount')
	if (fld1[fld1.selectedIndex].value=='XXX'){
		lyr.style.visibility='visible'
		enableFld(fld2)
		if (fld2.value=="") {fld2.value='250.00'}
		fld2.focus()
	} else {
		disableFld(fld2)
		lyr.style.visibility='hidden'
	}
}

var popIMG
function ampliarImagen(pId,pW,pH){popWin(popIMG,"Imagen","/Libros/imagen.shtml?producto="+pId,pW+150,pH+95,0,0,0)}

var popEBOOK
function popupEBook(){popWin(popEBOOK,"eBook","/Participe/Encuestas/eBookEjemplo.shtml",710,570,0,0,0)}

var popLOPD
function popupLOPD(){popWin(popLOPD,"LOPD","/lopd.shtml",400,300,0,0,0)}

var popENVIAR
function enviarEmail(){popWin(popENVIAR,"Enviar","/enviar.shtml",600,360,0,0,0)}

var popDONATIVO
function popupDonativo(pId){
	var l=800
	var t=600
	var w=500
	var h=224
  if (screen){if (screen.width && screen.height) {l=screen.width;t=screen.height}}
  l=(l-w)/2
  t=(t-h)/2
	popWin(popDONATIVO,"DONATIVO","/PedirDonativo.shtml?pdf="+pId,w,h,l,t,0)
}

function valGsearch(){
	disableDoc()
	var res=true
	var fld=getFld('qs')
	if (fld){
		var val=fld.value
		if (val==''){
			res=false
			MYMsg(3)
		} else {
			var fld2=getFld('q')
			fld2.value='site:www.pensamientocristiano.com '+val
		}
	} else {
		res=false
	}
  enableDoc()
	return res
}

var addthis_config = {
     ui_language: "es"
}

function abrirConDonativo(){
  var pars=getParams(new Array("pdf"))
  var pdf=pars[0]
  window.opener.location='/cgi-bin/getpdf.pl?id='+pdf
  window.open('/Participe/Donativos/')
  window.close()
}

function abrirSinDonativo(){
  var pars=getParams(new Array("pdf"))
  var pdf=pars[0]
  window.open('/cgi-bin/getpdf.pl?id='+pdf)
  window.close()
}