// --------------------  Otras funciones

function isEmpty(s)
{ return ((s == null) || (s.length == 0))
}


function isWhitespace(s)
{ var i,rs;
  rs = false; 
  if (isEmpty(s)) rs = true; 
  for (i = 0; i < s.length; i++)
  {
    if (s.charAt(i) == " ") rs = true;
  }
  return rs;
}

// --------------------  Comprueba la validez del E-Mail

function isEMail(s)
{  if (isEmpty(s))
       if (isEMail.arguments.length == 1) return false;
       else return (isEMail.arguments[1] == true);

   if (isWhitespace(s)) return false;
   
   var i = 1;
   var sLength = s.length;

   while ((i < sLength) && (s.charAt(i) != "@"))
   { i++
   }
   if ((i >= sLength) || (s.charAt(i) != "@")) return false;
   else i += 2;

   while ((i < sLength) && (s.charAt(i) != "."))
   { i++
   }
   if ((i >= sLength - 1) || (s.charAt(i) != ".")) return false;
   else return true;   
}

// --------------------  Comprueba formulario de pedido

function validarPedido()  {
 if (document.formP.Nombre.value == "") {
  alert('Por favor, introduzce tu nombre y apellidos');
  return false;
 }
 if (document.formP.Direccion.value == "") {
  alert('Por favor, introduce tu dirección');
  return false;
 }
 if (document.formP.CodPostal.value == "") {
  alert('Por favor, introduce el código postal');
  return false;
 }
 if (document.formP.Poblacion.value == "") {
  alert('Por favor, introduce tu población');
  return false;
 }
 if (document.formP.Provincia.value == "") {
  alert('Por favor, selecciona la provincia');
  return false;
 } 
 if (document.formP.Pais.value == "") {
  alert('Por favor, introduce tu país');
  return false;
 }  
 if (!isEMail(document.formP.Email.value)) {
  alert('La dirección de e-mail no es válida');
  return false;
 }  
  return true;
}

// --------------------  Pasarela de pago con la Caixa

function tpvlink(idpedido,moneda,importe,idioma,urlOK,urlKO,urlCANCEL,mailcomp,pan,mes,any)
{
   document.location.href="https://www.lacaixa.es/cgi-bin/totpvcaixa?idcom=239K313J&idpedido="+idpedido+"&moneda="+moneda+"&importe="+importe+"&idioma="+idioma+"&url_post_ok="+escape(urlOK)+"&url_post_ko="+escape(urlKO)+"&url_post_cancel="+escape(urlCANCEL)+"&mailcomp="+mailcomp+"&action=p&datatimeout=&pan="+pan+"&mes="+mes+"&any="+any+"&tarmodif=no";
}