// Title: Tigra Form Validator
// URL: http://www.softcomplex.com/products/tigra_form_validator/
// Version: 1.2
// Date: 02/17/2005 (mm/dd/yyyy)
// Notes: Registration needed to use this script legally. Visit official site for details.

// regular expressions or function to validate the format
var   re_dt       = /^(\d{1,2})\/(\d{1,2})\/(\d{4})$/,
      re_dt_iso   = /^(\d{4})\-(\d{2})\-(\d{2})$/,
    /*re_tm       = /^(\d{1,2})\:(\d{1,2})\:(\d{1,2})$/,*/
      re_tm       = /^(\d{1,2})\:(\d{1,2})$/,
      re_run      = /^(\d{4,8})\-(\d|\K|\k)$/,
      a_formats   = { 'alpha'   : /^[a-zA-Z|\.|\-|\s|\á|\é|\í|\ó|\ú|\ñ|\Ñ|Á|É|Í|Ó|Ú|\']*$/,
                      'alphanum': /^(\w+)|([a-zA-Z|\.|\-|\s|\á|\é|\í|\ó|\ú|\ñ|\Ñ|Á|É|Í|Ó|Ú\'|\d+])$/,
                    	'address' : /^(\w+)|([a-zA-Z|\.|\,|\á|\é|\í|\ó|\ú|\ñ|\Ñ|Á|É|Í|Ó|Ú]+)|\s|\d+$/,
                    	'unsigned': /^\d+$/,
                    	'integer' : /^[\+\-]?\d*$/,
                    	'real'    : /^[\+\-]?\d*\.?\d*$/,
                    	'email'   : /^[\w-\.]+\@[\w\.-]+\.[a-z]{2,4}$/,
                    	/*'phone'   : /^[\d|\.|\s|\-|\(|\)]+$/,*/
                    	/*'phone'   : /^(\(?\d{1,2}\)?)?[\s|\-]?(\d{3})[\s|\-]?(\d{3}\d?)$/,*/
                    	'phone'   : /^(\(?(0{2}|\+)?\d{2}\)?)?[\s|\-]?(\(?\d{1,2}\)?)?[\s|\-]?(\d{2,3})[\s|\-]?(\d{4})$/,
                    	'date'    : function (s_date)
                                	{
                                		// check format
                                		if (!re_dt.test(s_date))
                                		{
                                			return false;
                                		}

                                		return (string2date(s_date) instanceof Date);
                                	},
                      'date_iso'  : function (s_date)
                                	{
                                		// check format
                                		if (!re_dt_iso.test(s_date))
                                		{
                                			return false;
                                		}

                                		return (string2date(s_date) instanceof Date);
                                	},
                    	'time'    : function validate_time(s_time)
                                	{
                                		// check format
                                		if (!re_tm.test(s_time))
                                		{
                                			return false;
                                		}
                                		// check allowed ranges
                                		if (RegExp.$1 > 23 || RegExp.$2 > 59 || RegExp.$3 > 59)
                                		{
                                			return false;
                                		}
                                		return true;
                                	},
                    	'run'     : function EsRunValido(run)
                                	{
                                	  //VERIFICAR SI EL RUN CALZA CON LA EXPRESION REGULAR
                                    if(!re_run.test(run))
                                    {
                                      return false;
                                    }
                                    var run_ = RegExp.$1;
                                    var dv_ = RegExp.$2;
                                    var dv_teorico = ObtenerDV(run_);
                                    return (dv_teorico == dv_.toLowerCase());
                                  }
                    },
      a_messages  = [ 'No form name passed to validator construction routine',
                      'No array of "%form%" form fields passed to validator construction routine',
                      'Form "%form%" can not be found in this document',
                      'Incomplete "%n%" form field descriptor entry. "l" attribute is missing',
                      'Can not find form field "%n%" in the form "%form%"',
                      'Can not find label tag (id="%t%")',
                      'Can not verify match. Field "%m%" was not found',
                      '"%l%" es un campo requerido',
                      'El valor de "%l%" debe ser %mn% caracteres o más',
                      'El valor de "%l%" no puede ser mas largo de %mx% caracteres',
                      '"%v%" no es un valor valido para "%l%"',
                      'El valor de "%l%" debe ser igual al de "%ml%"',
                      'El valor de "%l%" debe ser "%mnv%" o más',
                      'El valor de "%l%" no puede ser mayor de %mxv%'];

// validator counstruction routine
function validator(s_form, a_fields, o_cfg)
{
	this.f_error = validator_error;
	this.f_alert = o_cfg && o_cfg.alert
    ? function(s_msg) { alert(s_msg); return false; }
    : function(){ return false; };

	// check required parameters
	if (!s_form)
	{
		return this.f_alert(this.f_error(0));
	}
	this.s_form = s_form;

	if (!a_fields || typeof(a_fields) != 'object')
	{
		return this.f_alert(this.f_error(1));
	}
	this.a_fields = a_fields;

	this.a_2disable = o_cfg && o_cfg['to_disable'] && typeof(o_cfg['to_disable']) == 'object'
    ? o_cfg['to_disable']
    : [];
	this.exec = validator_exec;
}

// validator execution method
function validator_exec()
{
	var form = document.forms[this.s_form];
//	if (!o_form)
//		return this.f_alert(this.f_error(2));
  var formId = document.getElementById(this.s_form);
  if (!form && !formId)
  {
    return this.f_alert(this.f_error(2));
  }

  if (!form)
  {
    o_form = formId;
  }
  else
  {
    o_form = form;
  }

	b_dom = document.body && document.body.innerHTML;

	// check integrity of the form fields description structure
	for (var n_key in this.a_fields)
	{
	  // check input description entry
		this.a_fields[n_key]['n'] = n_key;
		
		/*  Este codigo impide la existencia de campos sin label
		if (!this.a_fields[n_key]['l'])
		{ 
		  return this.f_alert(this.f_error(3, this.a_fields[n_key]));
		}
		*/
		
		o_input = o_form.elements[n_key];
		if (!o_input)
		{ 
		  o_input = get_element(n_key);
		}
		if (!o_input)
		{
			return this.f_alert(this.f_error(4, this.a_fields[n_key]));
		}
		this.a_fields[n_key].o_input = o_input;
	}

	// reset labels highlight
	if (b_dom)
	{
		for (var n_key in this.a_fields)
		{
			if (this.a_fields[n_key]['t'])
			{
				var s_labeltag = this.a_fields[n_key]['t'], e_labeltag = get_element(s_labeltag);
				
				if (!e_labeltag)
				{
					   //return this.f_alert(this.f_error(5, this.a_fields[n_key]));
		    }
		    else
		    {
		        this.a_fields[n_key].o_tag = e_labeltag;

    				// normal state parameters assigned here
    				e_labeltag.className = 'tfvNormal';
		    }
		    
			}
		}
	}

	// collect values depending on the type of the input
	for (var n_key in this.a_fields)
	{
		var s_value = '';
		o_input = this.a_fields[n_key].o_input;
		if (o_input.type == 'checkbox') // checkbox
		{
			s_value = o_input.checked ? o_input.value : '';
		}
		else if (o_input.value) // text, password, hidden
		{
			s_value = o_input.value;
		}
		else if (o_input.options) // select
		{
			s_value = o_input.selectedIndex > -1
				? o_input.options[o_input.selectedIndex].value
				: null;
		}
		else if (o_input.length > 0) // radiobuton
		{
			for (var n_index = 0; n_index < o_input.length; n_index++)
			{
				if (o_input[n_index].checked)
				{
					s_value = o_input[n_index].value;
					break;
				}
			}
    }
    if (s_value!=null)
    {
      //TRIM DEL VALOR, ANTES DE ALMACENARLO
      s_value = s_value.replace(/(^\s+)|(\s+$)/g, '');
    }
    this.a_fields[n_key]['v'] = s_value;
	}

	// check for errors
	var n_errors_count = 0, n_another, o_format_check;
	for (var n_key in this.a_fields)
	{
		o_format_check = this.a_fields[n_key]['f'] && a_formats[this.a_fields[n_key]['f']]
			? a_formats[this.a_fields[n_key]['f']]
			: null;

		// reset previous error if any
		this.a_fields[n_key].n_error = null;

		// check reqired fields
		if (this.a_fields[n_key]['r'] && !this.a_fields[n_key]['v'])
		{
			     this.a_fields[n_key].n_error = 1;
			     n_errors_count++;  
			  
		}
		// check length
		else if (this.a_fields[n_key]['mn'] && String(this.a_fields[n_key]['v']).length > 0 && String(this.a_fields[n_key]['v']).length < this.a_fields[n_key]['mn'])
		{
			this.a_fields[n_key].n_error = 2;
			n_errors_count++;
		}
		else if (this.a_fields[n_key]['mx'] && String(this.a_fields[n_key]['v']).length > 0 && String(this.a_fields[n_key]['v']).length > this.a_fields[n_key]['mx'])
		{
			this.a_fields[n_key].n_error = 3;
			n_errors_count++;
		}
		// check format
		else if (this.a_fields[n_key]['v'] && this.a_fields[n_key]['f'] && ((typeof(o_format_check) == 'function' && !o_format_check(this.a_fields[n_key]['v'])) || (typeof(o_format_check) != 'function' && !o_format_check.test(this.a_fields[n_key]['v']))))
		{
			this.a_fields[n_key].n_error = 4;
			n_errors_count++;
		}
		// check match
		else if (this.a_fields[n_key]['m'])
		{
			for (var n_key2 in this.a_fields)
			{
				if (n_key2 == this.a_fields[n_key]['m'])
				{
					n_another = n_key2;
					break;
				}
			}

			if (n_another == null)
			{
				return this.f_alert(this.f_error(6, this.a_fields[n_key]));
			}

			if (this.a_fields[n_another]['v'] != this.a_fields[n_key]['v'])
			{
				this.a_fields[n_key]['ml'] = this.a_fields[n_another]['l'];
				this.a_fields[n_key].n_error = 5;
				n_errors_count++;
			}
		}

		else if (this.a_fields[n_key]['mnv'] &&  String(this.a_fields[n_key]['v']).length > 0 && this.a_fields[n_key]['v'] < this.a_fields[n_key]['mnv'])
		{
			this.a_fields[n_key].n_error = 6;
			n_errors_count++;
		}

		else if (this.a_fields[n_key]['mxv'] && String(this.a_fields[n_key]['v']).length > 0 && this.a_fields[n_key]['v'] > this.a_fields[n_key]['mxv'])
		{
			this.a_fields[n_key].n_error = 7;
			n_errors_count++;
		}
	}

	// collect error messages and highlight captions for errorneous fields
	var s_alert_message = '', e_first_error;

	if (n_errors_count)
	{
		for (var n_key in this.a_fields)
		{
			var n_error_type = this.a_fields[n_key].n_error, s_message = '';
			if (n_error_type)
			{
				s_message = this.f_error(n_error_type + 6, this.a_fields[n_key]);
			}
			if (s_message)
			{
				if (!e_first_error)
				{
					e_first_err_id = o_form.elements[n_key];
					e_first_err_nm = get_element(n_key);
					e_first_error = (e_first_err_id) ? (e_first_err_id) : (e_first_err_nm);
				}
				s_alert_message += s_message + "\n";
				// highlighted state parameters assigned here
				if (b_dom && this.a_fields[n_key].o_tag)
				{
					this.a_fields[n_key].o_tag.className = 'tfvHighlight';
				}
			}
		}
		alert(s_alert_message);
		// set focus to first errorneous field
		if (e_first_error.focus && e_first_error.type != 'hidden'  && !e_first_error.disabled)
		{
			eval("e_first_error.focus()");
		}
		// cancel form submission if errors detected
		return false;
	}

	for (n_key in this.a_2disable)
	{
		if (o_form.elements[this.a_2disable[n_key]])
		{
			o_form.elements[this.a_2disable[n_key]].disabled = true;
		}
	}
	return true;
}

function validator_error(n_index)
{
	var s_ = a_messages[n_index], s_key;
	for (n_i = 1; n_i < arguments.length; n_i++)
	{
		for (s_key in arguments[n_i])
		{
			s_ = s_.replace('%' + s_key + '%', arguments[n_i][s_key]);
		}
	}
	s_ = s_.replace('%form%', this.s_form);
	return s_;
}

function get_element(s_id)
{
	return obtenerObjeto(s_id);
}

function ObtenerDV(run)
{
	var M=0, S=1;
	for(; run; run=Math.floor(run/10))
	{
	  S= (S+run%10*(9-M++%6))%11;
	}
	return S ? S-1 : 'k';
}