function es_entero(valor){ 
     valor = parseInt(valor) 
     if (isNaN(valor)) { 
            return false 
     }else return true
} 
function cant_valida(p_elementos) {
 frm = document.forms["pedidos"];
 for (i=0;i<(p_elementos);i++){
    valor = eval("document.forms['pedidos'].cantidad" + i +".value");
    if (es_entero(valor)){ 
       if (valor < 1){
           alert ("Introduzca 1 o mas ejemplares");
           eval("document.forms['pedidos'].cantidad" + i +".focus()");
           return false;
       }
    }
    else {
       alert ("Introduzca un numero de ejemplares valido");
       eval("document.forms['pedidos'].cantidad" + i +".focus()");
       return false;
    }
    //Comprobar si seleccionado el checke
    if(eval("document.forms['pedidos'].articulo" + i + ".checked")==true){
       sel = eval("document.forms['pedidos'].articulo" + i);
       sel.value = "ON";
    }
    else {
       sel = eval("document.forms['pedidos'].articulo" + i);
       sel.value = "OFF";
    }
 }
 return true
}
function borrar_art(p_articulo){ 
 frm = document.forms["pedidos"];
 frm.idlibro.value = p_articulo;
 frm.action="/cesta/suprimir.php";
 frm.submit();
}

function modif_art(p_articulo,p_referer){ 
	
 frm = document.forms["pedidos"];
 frm.urlreferer.value = p_referer;
 frm.idlibro.value = p_articulo;

 frm.action="/cesta/actualizar.php";
 frm.submit();
}
function accion (p_valor, p_elementos){
 frm = document.forms["pedidos"];
 switch (p_valor) {
    case 0: {
       if (cant_valida(p_elementos)){
          frm.action="/cesta/actualizar.php";
          frm.submit();                
       }
       break;
    }
    case 1: {
       if (cant_valida(p_elementos)){
          frm.action="/comprar/pedido1.php";
          frm.submit();           
       }
       break;           
    }
    case 2: {
       frm.action="/cesta/vaciar.php";
       frm.submit();
       break;
    }
    case 3: {
       frm.action="/comprar/ver_cesta.php";
       frm.submit();
       break;
    }
    case 4: {
       frm.action="/comprar/formulario_pedido.php";
       frm.submit();
       break;
    }
    default: {
       alert("Operacion no permitida");
    }
 }
}//accion

function enviarPag(p_texto,p_por, p_orden,p_donde,p_npag)
{ 
  frm = document.forms["paginar"];
  frm.method = "POST"; 
  frm.texto.value = p_texto;
  frm.por.value = p_por;
  frm.ordenado.value = p_orden;
  frm.st.value = p_npag;
  frm.donde.value = p_donde;
  frm.submit();
}//enviarPag

function enviarPagFam(p_familia, p_subfamilia, p_fam_txt, p_subf_txt, p_orden, p_donde,p_npag)
{ 
  frm = document.forms["paginar"];
  frm.method = "POST"; 
  frm.familia.value = p_familia;
  frm.subfamilia.value = p_subfamilia;
  frm.familia_txt.value = p_fam_txt;
  frm.subfamilia_txt.value = p_subf_txt;
  frm.ordenado.value = p_orden;
  frm.st.value = p_npag;
  frm.donde.value = p_donde;
  frm.submit();
}//enviarPagFam

function enviarPagAvz(p_autor, p_titulo, p_isbn, p_materias, p_orden, p_donde,p_npag)
{ 
  frm = document.forms["paginar"];
  frm.method = "POST"; 
  frm.autor.value = p_autor;
  frm.titulo.value = p_titulo;
  frm.isbn.value = p_isbn;
  frm.materias.value = p_materias;
  frm.ordenado.value = p_orden;
  frm.st.value = p_npag;
  frm.donde.value = p_donde;
  frm.submit();
}//enviarPagAvz

function buscador()
{
 frm = document.forms["busqueda"]; 
 if (validar())
   frm.submit();
}//buscador

function buscadorAvz()
{
 frm = document.forms["avanzado"]; 
 //if (validarAvz())
 if (vacio(frm.autor.value) && vacio(frm.titulo.value) && vacio(frm.isbn.value) && frm.materias.value == "00")
 {
   alert("Introducir algun criterio de busqueda");
   return;
 }
   frm.submit();
}//buscadorAvz

function envFamilias(p_familia, p_subfamilia, p_familia_txt, p_subfamilia_txt)
{
  frm = document.forms["submat"];
  frm.familia.value = p_familia;
  frm.subfamilia.value = p_subfamilia;
  frm.familia_txt.value = p_familia_txt;
  frm.subfamilia_txt.value = p_subfamilia_txt;
  frm.submit();
}//envFamilias


function validar()
{
 frm = document.forms["busqueda"]; 
 if (blancos(frm.texto.value) || frm.texto.value.length <=1)
 {
   alert('Debes introducir un texto de un minimo de 2 caracteres'); 
   return false;
 }
 
 return true;

}//validar

function blancos(valor)
{
  return new RegExp("\\s{" + valor.length + "}","ig").test(valor)
}//blancos

function vacio(valor)
{
  if (valor == null || valor.length == 0 || blancos(valor)){return true}
  return false;
}//vacio

function chk_mail(campo)
{
   // var regla = /^[a-z][\w\.]*@[\w\.]+\.[a-z]{2,3}/i
   var regla = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/
   return regla.test(campo);
}//chk_mail

function enviar(p_accion) 
{     
   frm = document.forms["fam"];

   if (p_accion == 1) 
   { 
     if (vacio(frm.nombre.value))
     {
       alert("Se ha de introducir el nombre");
       frm.nombre.focus();
       return;
     }

     if (vacio(frm.email.value))
     {
       alert("Se ha de introducir la direccion e-mail");
       frm.email.focus();
       return;
     }
     else if (! chk_mail(frm.email.value)) 
     {
       alert("La direccion de e-mail no es valida.") 
       frm.email.focus();
       return;
     }

     //for(i=1;i<frm.length - 10;i++)
     for(i=1;i<frm.length - 9;i++)
     { 
        if(eval("frm.familia" + i + ".checked")==true)
        {
          frm.submit();                                        
          return;
        }
     }
     alert("Se ha de seleccionar al menos una materia");
   }                                                                  
}//enviar                                                                     

function enviaTecno(p_modo)
{
   frm = document.forms["tecnomed"];
   if (p_modo == 1)
   {
     frm.action= "tecno_nuevo.php";
     frm.submit();
   }
   else if (p_modo == 2)
   { 
     frm.action = "materias_suscritas.php";
     frm.submit();
   }
   else if (p_modo == 3)
   { 
     if (vacio(frm.email.value))
     {
       alert("Se ha de introducir la direccion e-mail");
       frm.email.focus();
       return;
     }
     else if (! chk_mail(frm.email.value)) 
     {
       alert("La direccion de e-mail no es valida.") 
       frm.email.focus();
       return;
     }

     frm.action = "materias_suscritas.php";
     frm.submit();
   }
   else if (p_modo == 7)
   { 
     if (vacio(frm.email.value))
     {
       alert("Se ha de introducir la direccion e-mail");
       frm.email.focus();
       return;
     }
     else if (! chk_mail(frm.email.value)) 
     {
       alert("La direccion de e-mail no es valida.") 
       frm.email.focus();
       return;
     }

     frm.action = "cancela_tecno.php";
     frm.submit();
   }
   else if (p_modo == 4)
   { 
     if (vacio(frm.email.value))
     {
       alert("Se ha de introducir la direccion e-mail");
       frm.email.focus();
       return;
     }
     else if (! chk_mail(frm.email.value)) 
     {
       alert("La direccion de e-mail no es valida.") 
       frm.email.focus();
       return;
     }

     invertir();
     frm.action = "actualizar.php";
     frm.submit();
   }

}//enviaTecno
                                                                      
function marcarTodos(marca)                                           
{                                                                     
   //for(i=1;i<document.forms["fam"].length - 10 ;i++)                      
   for(i=1;i<document.forms["fam"].length - 9 ;i++)                      
   {                                                                  
        eval("document.forms['fam'].familia" + i + ".checked = " + marca);
   }                                                                  
}//marcarTodos                                                                     

function invertir()
{
   for(i=1;i<document.forms["tecnomed"].length;i++)                      
   {                                                                  
      nombrec = document.forms['tecnomed'].elements[i].name.substring(0,5);  
      if (nombrec == "famil") 
        document.forms['tecnomed'].elements[i].checked = document.forms['tecnomed'].elements[i].checked?false:true;
   }                                                                  
}//invertir


function defecto()
{
var nombreHost = location.protocol + "//" + location.host + "/argentina/";
if (location.href == nombreHost + "materias_suscritas.php" || location.href == nombreHost + "actualizar.php")
{
for (z=1;z<document.forms['tecnomed'].elements.length;z++)
  {
   nombrec = document.forms['tecnomed'].elements[z].name.substring(0,5);  
   if (nombrec == "famil") {
     document.forms[1].elements[z].checked = document.forms[1].elements[z].defaultChecked;
   }
  }
}
}//defecto

function verFicha(pArticulo)
{
   window.open("contenido.php?articulo=" + pArticulo,"Ficha_Bibliogr&aacute;fica","menu=0,toolbar=0,status=0,width=500,height=250,top=100,left=225,resizable=0,scrollbars=1");
}

function cambia()
{

  if (document.forms["fam"].pais.value != "979")
    document.forms["fam"].region.options[0].selected = true;
}


function validarFormularioPedido(){
	frm = document.forms['frmPedido'];
	if (vacio(frm.nb1.value)){
		alert("Nombre no puede quedar en blanco")
		focalizar(frm.nombre1)
		return
	}
	if (vacio(frm.direccion.value)){
		alert("Domicilio no puede quedar en blanco")
		focalizar(frm.domicilio1)
		return
	}
	if (vacio(frm.telefono.value)){
		alert("Telefono no puede quedar en blanco")
		focalizar(frm.telefono)
		return
	}
	if (vacio(frm.email.value)){
		alert("Email no puede quedar en blanco")
		focalizar(frm.email)
		return
	}
	frm.submit();
}

function focalizar(fld){
	fld.focus();
}
function validar_usu()
{
 frm = document.forms["login"]; 
 frm.action="/forall/login.php";
// if (validar())
   frm.submit();
}//validar_usu

function validar_cli()
{
  alert('sn');
 frm = document.forms["login"]; 
 frm.action="/clientes/cli_login.php";
// if (validar())
   frm.submit();
}//validar_usu

function altaCli()
{
  alert('ALta Cliente');
 frm = document.forms["frmcli"]; 
 frm.action="/clientes/cli_confirmar.php";
// if (validar())
   frm.submit();
}//validar_usu
function colapsarOnOff(idElem,id) {
	obj = document.getElementById(idElem);
	imgObj = document.images['flecha' + id];
	if(obj == null) return;
	modo = (obj.style.display == 'none') ? 'block' : 'none';
	obj.style.display = modo;
	if (imgObj != null) { if (modo == 'none') { imgObj.src = fdown.src; } else { imgObj.src = fup.src; } } }

function buscador_librev()
{

if(document.all){
	frm = document.getElementById("konsulto-form");
    quees = document.getElementById("konsulto-form").librev.value;
}else{
	frm = document.forms["konsulto-form"];
    quees = document.forms["konsulto-form"].librev.value;
}
    if (quees == "esen"){
	 //if (frm.librev[0].selected == true){
	    frm.action="/libros/buscador/index.php";
	 }else{
	 	  frm.action="/revistas/buscador/index.php";
	 }
   frm.submit();
}