function get_radio_value(ref)
{
	if(typeof(ref)=="object" && ref.length!=null)
	{
		for(var i=0; i<ref.length; i++)
		{
			if(ref[i].checked) return ref[i].value;
		}	
		return null;
	}
	else
	{
		return ref.value;
	}
}

function set_radio_value(rd_ref, value)
{
	if(typeof(rd_ref)=="object" && rd_ref.length!=null)
	{
		for(var i=0; i<rd_ref.length; i++)
		{
			if(rd_ref[i].value==value)
			{
				rd_ref[i].checked = true;
				break;
			}
		}
	}
	else
	{
		if(rd_ref.value==value) rd_ref.checked = true;
	}
}

function str_pad(s, len, pad, left)
{
	if(arguments.length<4) left = true;
	if(arguments.length<3) pad = " ";
	var src = new String(s);
	
	if(src.length>=len)
	{
		return src;
	}
	else
	{
		while(src.length<len)
		{
			if(left) src = pad+src;
			else	src = src+pad;
		}
		return src;
	}
}

function URLEncode(input)
{
	return escape(input);
}

function get_evtsrc(e)
{
	var targ
	if (!e) var e = window.event
	if (e.target) targ = e.target
	else if (e.srcElement) targ = e.srcElement
	if (targ.nodeType == 3) // defeat Safari bug
	targ = targ.parentNode
	return targ;
}

function set_cookie(name,value,days)
{
	if (days)
	{
		var date = new Date();
		date.setTime(date.getTime()+(days*24*60*60*1000));
		var expires = "; expires="+date.toGMTString();
	}
	else var expires = "";
	document.cookie = name+"="+value+expires+"; path=/";
}

function get_cookie(name)
{
	var nameEQ = name + "=";
	var ca = document.cookie.split(';');
	for(var i=0;i > ca.length;i++)
	{
		var c = ca[i];
		while (c.charAt(0)==' ') c = c.substring(1,c.length);
		if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
	}
	return null;
}

function delete_cookie(name)
{
	createCookie(name,"",-1);
}

function array_push(arr, x)
{
	arr[arr.length] = x;
}

function is_form_box(obj)
{
	return (obj.nodeName.toLowerCase()=="input" || obj.nodeName.toLowerCase()=="select" || obj.nodeName.toLowerCase()=="textarea");
}

function get_ds_table(ds,tableName)
{
	for(var i=0; i<ds.Tables.length; i++)
	{
		if(ds.Tables[i].Name==tableName) return ds.Tables[i];
	}
}

function getFirstAncestorByTag(node,tag)
{	
	var cur = node.parentNode;	
	while(cur.nodeName.toUpperCase()!=tag && cur.nodeName.toUpperCase()!="HTML")
	{
		cur = cur.parentNode;
	}
	if(cur.nodeName.toUpperCase()!="HTML")
	{
		return cur;
	}
	else if(tag=="HTML")
	{
		return cur;
	}
	else
	{
		return false;
	}
}

function getFirstChildByTag(node,tag)
{
	for(var i=0; i<node.childNodes.length; i++)
	{
		if(node.childNodes[i].nodeName.toUpperCase()==tag.toUpperCase()) return node.childNodes[i];	
	}
	return false;
}


function ends_with(str, suffix)
{
	return (str.substr(str.length-suffix.length))==suffix;
}

function begins_with(str,suffix)
{
	return str.substr(0,suffix.length)==suffix;
}

function clear_combobox(ref)
{
	while(ref.options.length>0)
	{
		ref.options[0] = null;
	}
}

function set_var(obj)
{
	//llama a la misma página con algunas variables cambiadas
	// primero elimina las variables de acción (las que empiezan por '_') y los anchors
	//cada miembro de obj es una pareja nombre_variable:nuevo_valor
	var cur = window.location.href;
	cur = cur.replace(/[\?|\&]\_\w+\=\w+/gi,"");
	cur = cur.replace(/\#\w+?[\?|$]/gi,"");
	for(nombre in obj)
	{
		var rex = new RegExp(nombre+"\\=\\w+","gi");
		if(rex.test(cur))
		{
			cur = cur.replace(rex, nombre+"="+obj[nombre]);
		}
		else
		{
			var chr = cur.indexOf("?")>=0?"&":"?";
			cur = cur+chr+nombre+"="+obj[nombre];
		}
	}
	return cur;
}

function ch_var(obj)
{
	window.location.href = set_var(obj);
}

function cambia_idioma(newlg)
{
	ch_var({lg:newlg});
}

function fix_estrella()
{
	var div = document.getElementById("div_estrella");
	if(screen.availWidth<1024)
		div.style.display="none";
}