// whitespace characters
var whitespace = " \t\n\r";
var defaultEmptyOK = false;

function Vacio(s)
{   return ((s == null) || (s.length == 0))
}


/****************************************************************/

// Returns true if string s is empty or 
// whitespace characters only.

function EnBlanco(s)

{   var i;

    // Is s empty?
    if (Vacio(s)) return true;

    // Search through string's characters one by one
    // until we find a non-whitespace character.
    // When we do, return false; if we don't, return true.

    for (i = 0; i < s.length; i++)
    {   
	// Check that current character isn't whitespace.
	var c = s.charAt(i);

	if (whitespace.indexOf(c) == -1) return false;
    }

    // All characters are whitespace.
    return true;
}





/****************************************************************/

// isEmail (STRING s [, BOOLEAN emptyOK])
// 
// Email address must be of form a@b.c ... in other words:
// * there must be at least one character before the @
// * there must be at least one character before and after the .
// * the characters @ and . are both required
//
// For explanation of optional argument emptyOK,
// see comments of function isInteger.

function Email(s)
{   if (Vacio(s)) 
       if (Email.arguments.length == 1) return defaultEmptyOK;
       else return (Email.arguments[1] == true);
   
    // is s whitespace?
    if (EnBlanco(s)) return false;
    
    // there must be >= 1 character before @, so we
    // start looking at character position 1 
    // (i.e. second character)
    var i = 1;
    var sLength = s.length;

    // look for @
    while ((i < sLength) && (s.charAt(i) != "@"))
    { i++
    }

    if ((i >= sLength) || (s.charAt(i) != "@")) return false;
    else i += 2;

    // look for .
    while ((i < sLength) && (s.charAt(i) != "."))
    { i++
    }

    // there must be at least one character after the .
    if ((i >= sLength - 1) || (s.charAt(i) != ".")) return false;
    else return true;
}



function ErasePunto(objCampo){
   var strCadena = objCampo.value;
   objCampo.value = strCadena.replace(/\./g,"");
}

function EraseBlank(objCampo){
   var strCadena = objCampo.value;
   objCampo.value = LTrim(RTrim(strCadena));
}

function ConvToUpper(objCampo){
	objCampo.value = objCampo.value.toUpperCase();
}

function RTrim(strTrim)
{
	var str = new String(strTrim);
	var i = 0;
	var c = "";
	var endpos = 0;
	
	if (EnBlanco(str)){
		return "";
	}
	else{
		for (i = str.length - 1; i >= 0 && endpos == 0; i = i - 1) {
			c = str.charAt(i);
			if (whitespace.indexOf(c) == -1)
				endpos = i;
		}

		return str.substring(0,endpos+1);
	}
}

function LTrim(strTrim)
{
	var str = new String(strTrim);
	var i = 0;
	var c = "";
	var pos = 0;

	if (EnBlanco(str)){
		return "";
	}
	else{
		for (i = 0; i <= str.length - 1; i = i + 1) {
			c = str.charAt(i);
			if (whitespace.indexOf(c) == -1){
				pos = i;
				break;
			}
		}
		return str.substring(pos,str.length);
	}
}

function Trim(strTrim){
	var str = new String(strTrim);
	if(EnBlanco(str))	return "";
	else{
		strTrim = LTrim(strTrim);
		strTrim = RTrim(strTrim);
		return strTrim;
	}
}