<!--
// BASE HREF writer
// var temp = " ";
// temp += '<BASE HREF="/verbigracia.net/">'
// document.write(temp);

// Index page menu handler
function menuHandler(menu)
	{
	var URL = document.menu.page.options[document.menu.page.selectedIndex].value;
	window.location.href = URL;
	}

// Pop-up jpegs handler (review)
function popupPhoto(img)
	{
	photo1= new Image();
	photo1.src=(img);
	Control(img);
	}
function Control(img)
	{
	if((photo1.width!=0)&&(photo1.height!=0))
		{
		viewPhoto(img);
		}
	else
		{
		funzione="Control('"+img+"')";
		intervallo=setTimeout(funzione,20);
		}
	}
function viewPhoto(img)
	{
	largh=photo1.width+20;
	altez=photo1.height+20;
	stringa="width="+largh+",height="+altez;
	finestra=window.open(img,"",stringa);
	}

// Language changer
function changeToEnglish()
	{
	var sURL = document.URL;
	var iPosicionIdioma = sURL.indexOf("es");
	var sParteInicial = sURL.substring(-1,iPosicionIdioma);
	var sParteFinal = sURL.substring(iPosicionIdioma+2, sURL.length);
	var sNuevaURL = sParteInicial + "en" + sParteFinal;
	document.location.href = sNuevaURL;
	}
function changeToEspañol()
	{
	var sURL = document.URL;
	var iPosicionIdioma = sURL.indexOf("es");
	var sParteInicial = sURL.substring(-1,iPosicionIdioma);
	var sParteFinal = sURL.substring(iPosicionIdioma+2, sURL.length);
	var sNuevaURL = sParteInicial + "es" + sParteFinal;
	document.location.href = sNuevaURL;
	}
function changeToEuskera()
	{
	var sURL = document.URL;
	var iPosicionIdioma = sURL.indexOf("es");
	var sParteInicial = sURL.substring(-1,iPosicionIdioma);
	var sParteFinal = sURL.substring(iPosicionIdioma+2, sURL.length);
	var sNuevaURL = sParteInicial + "eu" + sParteFinal;
	document.location.href = sNuevaURL;
	}
function changeToFrançais()
	{
	var sURL = document.URL;
	var iPosicionIdioma = sURL.indexOf("es");
	var sParteInicial = sURL.substring(-1,iPosicionIdioma);
	var sParteFinal = sURL.substring(iPosicionIdioma+2, sURL.length);
	var sNuevaURL = sParteInicial + "fr" + sParteFinal;
	document.location.href = sNuevaURL;
	}

// Input field status
function clearEntry(entry)
{
    if (entry.value == entry.defaultValue) entry.value=''
}
function checkEntry(entry)
{
    if (entry.value=='' || entry.value==' ') entry.value = entry.defaultValue
}

// Newsletter subscription validation
function checkNewsletter(entry)
{
    if(entry.value=='' || entry.value==' ')
    {
	window.alert("Por favor, introduce tu dirección de e-mail para recibir la carta informativa.");
	return false;
    }
    else if(entry.value!='' || entry.value!=' ')
    {
	return emailCheck(entry.value);
    }
}

// E-mail validation
function emailCheck(emailStr)
{
    var checkTLD=1;

    /* The following is the list of known TLDs that an e-mail address must end with. */
    var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;

    var emailPat=/^(.+)@(.+)$/;
    var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
    var validChars="\[^\\s" + specialChars + "\]";
    var quotedUser="(\"[^\"]*\")";
    var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
    var atom=validChars + '+';
    var word="(" + atom + "|" + quotedUser + ")";
    var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
    var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
    var matchArray=emailStr.match(emailPat);
    if (matchArray==null)
    {
        window.alert("Por favor, revisa tu dirección de e-mail.")
	return false;
    }
    var user=matchArray[1];
    var domain=matchArray[2];
    for (i=0; i<user.length; i++)
    {
	if (user.charCodeAt(i)>127)
	{
	    window.alert("Por favor, revisa tu dirección de e-mail.")
	    return false;
	}
    }
    for (i=0; i<domain.length; i++)
    {
	if (domain.charCodeAt(i)>127)
	{
	    window.alert("Por favor, revisa tu dirección de e-mail.")
	    return false;
	}
    }
    if (user.match(userPat)==null)
    {
        window.alert("Por favor, revisa tu dirección de e-mail.")
	return false;
    }
    var IPArray=domain.match(ipDomainPat);
    if (IPArray!=null)
    {
	for (var i=1;i<=4;i++)
	{
	    if (IPArray[i]>255)
	    {
		window.alert("Por favor, revisa tu dirección de e-mail.")
		return false;
	    }
	}
	return true;
    }
    var atomPat=new RegExp("^" + atom + "$");
    var domArr=domain.split(".");
    var len=domArr.length;
    for (i=0;i<len;i++)
    {
	if (domArr[i].search(atomPat)==-1)
	{
	    window.alert("Por favor, revisa tu dirección de e-mail.")
	    return false;
	}
    }
    if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1)
    {
        window.alert("Por favor, revisa tu dirección de e-mail.")
	return false;
    }
    if (len<2)
    {
        window.alert("Por favor, revisa tu dirección de e-mail.")
	return false;
    }
    return true;
}
// -->