function isNetscape() {
	return (navigator.appName == "Netscape");
}
function isOpera() {
	return (navigator.userAgent.indexOf("Opera")!=-1);
}
function isNetscape4() {
	return (isNetscape() && navigator.appVersion.charAt(0) == "4");
}
function isNetscape6() {
 	return (isNetscape() && navigator.appVersion.charAt(0) != "4");
}
function isExplorer() {
	return (!isNetscape() && !isOpera());
}
function isExplorer4() {
	return isExplorer();
}
function isMac() {
	return (navigator.appVersion.lastIndexOf('Mac')!=-1);
}

function marcar(control)
{
	document.getElementById(control).style.backgroundColor="red";
}

function desmarcar(control)
{
	document.getElementById(control).style.backgroundColor="white";
}

function RollOv(pp)
{
	document.getElementById(pp).style.backgroundColor='#eeee77'; 
	document.getElementById(pp).style.color='#000000'; 
}

function RollOut(pp)
{
	document.getElementById(pp).style.backgroundColor='#ffffff'; 
	document.getElementById(pp).style.color='#000000'; 
}

function findPos(obj)
{
	var curleft = curtop = 0;
	if (obj.offsetParent) {
		curleft = obj.offsetLeft;
		curtop = obj.offsetTop;
		while (obj = obj.offsetParent) {
			curleft += obj.offsetLeft;
			curtop += obj.offsetTop;
		}
	}
	return [curleft,curtop];
}

function getSelected (e) {
	if (document.selection) {
        e.focus();
        var range = document.selection.createRange();
        return range.text;
    } else {
        var length = e.textLength;
        var start = e.selectionStart;
        var end = e.selectionEnd;
        if (end == 1 || end == 2) end = length;
        return e.value.substring(start, end);
    }
}

function setSelection (e, v) {
    if (document.selection) {
        e.focus();
        var range = document.selection.createRange();
        range.text = v;
    } else {
        var length = e.textLength;
        var start = e.selectionStart;
        var end = e.selectionEnd;
        if (end == 1 || end == 2) end = length;
        e.value = e.value.substring(0, start) + v + e.value.substr(end, length);
        e.selectionStart = start + v.length;
        e.selectionEnd = start + v.length;
    }
    e.focus();
}

function etiqueta (e, v) {
	var control=document.getElementById(e);
    var str = getSelected(control);
    if (!str) return;
    setSelection(control, '<' + v + '>' + str + '</' + v + '>');
    return false;
}
function ligazon(e,texto){
	var control=document.getElementById(e);
	var str=getSelected(control);
	var link='';
	if(str.match(/^https?:/)) link=str;
	else if(str.match(/^(\w+\.)+\w{2,5}\/?/)) link='http://'+str;
	else if(str.match(/ /)) link='http://';
	else link='http://'+str;
	var my_link=prompt(texto+':',link);
	if(my_link!=null){
		if(str=='') str=my_link;
		setSelection(control,'<ligazon>url="'+my_link+'";texto="'+str+'"</ligazon>');
	}
	return false;
}
function correo(e,texto){
	var control=document.getElementById(e);
	var str=getSelected(control);
	var link='';
	if(str.match(/@/)) link=str;
	var my_link=prompt(texto+':',link);
	if(my_link!=null){
		if(str=='') str=my_link;
		setSelection(control,'<correo>enderezo="'+my_link+'";texto="'+str+'"</correo>');
	}
	return false;
}
function estilo(scontrol,estilo)
{
	var control=document.getElementById(scontrol);
	var str=getSelected(control);
	if(!str) return;
	setSelection(control,'<'+estilo+'>'+str+'</'+estilo+'>');
	return false;
}
function paxinanova(scontrol)
{
	var control=document.getElementById(scontrol);
	setSelection(control,'\r<paxina_nova>\r');
	return false;
}
function imaxe(scontrol)
{
	var control=document.getElementById(scontrol);
	setSelection(control,'\r<separador_parrafo>\r');
	return false;
}
function setCookie(nombre,valor,tiempo)
{
	document.cookie=nombre+"="+escape(valor)+((tiempo==null) ? "": (";expires="+tiempo.toGMTString()));
}

function getCookie(nombre)
{
	var buscar=nombre+"=";
	if(document.cookie.length>0){
		pos=document.cookie.indexOf(buscar);
		if(pos!=-1){
			fin=document.cookie.indexOf(";",pos);
			if(fin==-1) fin=document.cookie.length;
			return unescape(document.cookie.substring(pos,fin));
		}
	}
}