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 llamaCuspide(p_isbn)
{
  //window.open("http://www.cuspide.com/detalle_libro.php?isbn=" + p_isbn);
  window.open("http://www.cuspide.com/detalle_libro.php/" + p_isbn);
}