document.getElementsByNameTagName = 
function(p_name, p_tagName) {
	var l_salida = new Array();
	var l_listaIframe = document.getElementsByTagName(p_tagName);
	for(var i_ventana=0;i_ventana<l_listaIframe.length;l_listaIframe++) {
		if(l_listaIframe[i_ventana].name==p_name) 
			l_salida[l_salida.length]=l_listaIframe[i_ventana];
	}
	return l_salida;
}
function fMostrarEmergente(p_url, p_name, p_features) {
	var l_emergente;
	var l_listaIframe = document.getElementsByTagName("IFRAME");
	var i_ventana=l_listaIframe.length-1;
	while ((i_ventana>=0) && (l_listaIframe[i_ventana].name!=p_name)) i_ventana--;

	if (i_ventana == -1) {
		if(document.getElementsByTagName("body")[0].insertAdjacentHTML) {
			var l_str = "<iframe name='"+p_name+"'></"+"iframe>";
			document.getElementsByTagName("body")[0].insertAdjacentHTML("beforeEnd",l_str);
			l_emergente = document.getElementsByNameTagName(p_name,"IFRAME")[0];
			document.frames[p_name].location = p_url;
		} else {
			l_emergente = document.createElement("IFRAME");
			l_emergente.setAttribute("name",p_name);
			l_emergente.setAttribute("src", p_url);
			document.getElementsByTagName("body")[0].appendChild(l_emergente);
		}
		l_emergente.className="ventanaEmergente";
	} else {
		l_emergente = l_listaIframe[i_ventana];
		if (document.frames)
			document.frames[p_name].location = p_url;
		else
			l_emergente.setAttribute("src", p_url);
	}
	if(p_features) {
		with(l_emergente.style) {
			if (/top[^\d]*(\d*)[^\d]?/.test(p_features)) top = RegExp.$1;
			if (/(left|screenX)[^\d]*(\d*)[^\d]?/.test(p_features)) left = RegExp.$2;
			if (/(height|screenY)[^\d]*(\d*)[^\d]?/.test(p_features)) height = RegExp.$2;
			if (/width[^\d]*(\d*)[^\d]?/.test(p_features)) width = RegExp.$1;
			display="none";
			position="absolute";
			backgroundColor="white";
		}
	}
	l_emergente.style.display="";
	window[p_name].focus();
	window[p_name].opener = this.window;
	return window[p_name];
}
window.abrirVentana = fMostrarEmergente;
if(parent) {
	window.close = function() {
		var l_emergente = parent.document.getElementsByNameTagName(self.name,"IFRAME")[0];
		l_emergente.style.display="none";
		if(l_emergente.contentDocument)
			l_emergente.contentDocument.innerHTML="<HTML></HTML>";
		else
			l_emergente.document.innerHTML="<HTML></HTML>";
	};
} 



function correStatus(posStatus){

  var txtStatus='Bienvenido a la pagina web de Prevision Espaņola';

  var timeEspera=200;  // tiempo que ha de esperar entre caracter y caracter

  var recarga=true;      // si ha de reiniciarse cuando termina (true/false)

  if (posStatus < txtStatus.length){

    posStatus+=1

    window.status=txtStatus.substring(0,posStatus)}

   else  {if (!recarga) return true; else posStatus=0}

   setTimeout("correStatus("+posStatus+")",timeEspera)}

  

function ensenar(id)   {

	document.getElementById(id).style.visibility = "visible";

}



function esconder(id)   {

	document.getElementById(id).style.visibility = "hidden";

}

/*********************************************************************************************/
/******************  Funcion que me limpia los espacios                               ********/
/******************  en blanco del comienzo y fin de la cadena y me devuelve la cadena********/
/*********************************************************************************************/

function quitaBlancos(cadena) {
    if(cadena)
	{
		cadena = (cadena.replace(/^\s+/,'')).replace(/\s+$/,'');
		return(cadena);
	}
}

   

function cambiacolorfondo(strobj, strColor){

	document.getElementById(strobj).style.background=strColor;

}


function restaurarFila(strobj,i)
{
	if(i==0)
		strobj.style.background = "#e5e5e5";
    else
		strobj.style.background = "#f0f0f0";
	strobj.style.color="#000000";	
}


function resaltarFila(strobj)
{
	//strobj.style.background = "#12C5DE";
	strobj.style.background = "#0099CC";
	strobj.style.color="#FFFFFF";
}



function eleccion(strCor, strobj)

{

	document.getElementById(strobj).style.color=strCor;

}



function activar(strimg) {

	if (document.images) {

		document.images['aceptar'].src=strimg; }

}

// funcion que oculta, si existe, el objeto pasado como argumento
function fEsconderBoton(p_boton) {
	l_objeto = document.getElementById(p_boton);
	if(l_objeto)
		l_objeto.style.display="none";
}

// funcion que muestra, si existe, el objeto pasado como argumento
function fMostrarBoton(p_boton) {
	l_objeto = document.getElementById(p_boton);
	if(l_objeto)
		l_objeto.style.display=getStyleClass(l_objeto.className).display;
}



function getStyleClass (className) { // from js faqts!
	var re = new RegExp("\\." + className + "$", "gi");
	if (document.all) {
		for (var s = 0; s < document.styleSheets.length; s++)
			for (var r = 0; r < document.styleSheets[s].rules.length; r++)
				if (re.test(document.styleSheets[s].rules[r].selectorText)) {
					return document.styleSheets[s].rules[r].style;
				}
	} else if (document.getElementById) {
		for (var s = 0; s < document.styleSheets.length; s++)
			for (var r = 0; r < document.styleSheets[s].cssRules.length; r++)
				if (re.test(document.styleSheets[s].cssRules[r].selectorText)) {
					return document.styleSheets[s].cssRules[r].style;
				}
	} else if (document.layers)
		return document.classes[className].all;
	return null;
}

function fEsconderObjeto(p_object) {
	l_objeto = document.getElementById(p_object);
	if(l_objeto)
		l_objeto.style.display="none";
}
/*function fMostrarObjeto(p_object) {
	l_objeto = document.getElementById(p_object);
	if(l_objeto)
		l_objeto.style.display=getStyleClass(l_objeto.className).display;
}*/

function fHabilitar(p_campo) {
		p_campo.disabled=false;
		p_campo.style.backgroundColor="";
	}
	
	function fDeshabilitar(p_campo) {
		p_campo.disabled=true;
		p_campo.style.backgroundColor="#EEEEEE";
	}


function fValidarTextArea(field,maxlimit,countfield) {
	if (field.value.length > maxlimit) // if too long...trim it!
		field.value = field.value.substring(0, maxlimit);
	// otherwise, update 'characters left' counter
	else 
		countfield.value = maxlimit - field.value.length;
	}

