var fp_tp_explorador;
var fp_frmmodificado=false;
if (document.layers){
	fp_tp_explorador = "nn4"
}
if (document.all) {
	fp_tp_explorador = "ie"
}
if (window.navigator.userAgent.toLowerCase().match("gecko")) {
	fp_tp_explorador= "gecko"
}
function fp_cambiar_style(id,propiedad,valor) {
	obj=fp_get_element_by_id_siexiste(id);
	if (obj){
		obj.style[propiedad]=valor;
	}
}
function fp_cambiar_propiedad(id,propiedad,valor) {
	obj=fp_get_element_by_id_siexiste(id);
	if (obj){
		obj.setAttribute(propiedad,valor);
	}
}
function fp_get_style(id,propiedad) {
	obj=fp_get_element_by_id_siexiste(id);
	if (obj){
		return obj.style[propiedad];
	}
}
function fp_get_element_by_id(id) {
	return document.getElementById(id);

}
function fp_get_element_by_id_siexiste(id) {
	obj=fp_get_element_by_id(id);
	if (typeof(obj)=="object" ) {
		if (obj!=null){
			return obj;
		}
	}
	return false;
}
function fp_existe(id) {
	var obj=fp_get_element_by_id(id);
	if (obj==null ) {
		return false;
	}else{ 
		return true;
	}
}

function fp_getvalue_selandinput(id){
	obj=fp_get_element_by_id_siexiste(id);
	if (obj){
		if (obj.tagName=="SELECT"){
			return (obj.options[obj.selectedIndex].value );
		}
		if (obj.tagName=="INPUT"){
			return 	 obj.value;
		}
	}
}

function fp_setvalue(id,valor) {
	obj=fp_get_element_by_id_siexiste(id);
	if (obj){
		obj.value = valor;	
	}
}
function fp_modificar_contenido(id,newHTML){
	obj=fp_get_element_by_id_siexiste(id);
	if (obj){
		obj.innerHTML = newHTML;	
	}
}
function fp_get_contenido(id){
	objeto=fp_get_element_by_id_siexiste(id);
	if (objeto) {
		return objeto.innerHTML;
	}
}
function fp_get_valor_input(id) {
	objeto=fp_get_element_by_id_siexiste(id);
	if (objeto ) {
		return (objeto.value);
	}
}
function fp_seguirmouse(id,evt) {
	mouseX=evt.pageX?evt.pageX:evt.clientX;
	mouseY=evt.pageY?evt.pageY:evt.clientY;
	if (fp_tp_explorador=='ie') {
		mouseX=mouseX + (document.documentElement.scrollLeft  ?document.documentElement.scrollLeft  : document.body.scrollLeft );
		mouseY=mouseY + (document.documentElement.scrollTop ?document.documentElement.scrollTop : document.body.scrollTop);
	}
	mouseX=(mouseX+5)+"px";
	mouseY=(mouseY+5)+"px";
	fp_cambiar_style(id,'left',mouseX);
	fp_cambiar_style(id,'top',mouseY);
}

function fp_get_valor_select(id) {
	objeto=fp_get_element_by_id_siexiste(id);
	if (objeto ) {
		fp_index=objeto.selectedIndex;
		return (objeto.options[fp_index].value );
	}
}
function fp_url_get() {
	return "/facipub/";	
}

function fp_mod_objs(){
	this.modulos=new Object;
	this.refobjs=new Object;
	this.get_mod_obj=function(tpmod,mod,elem,subelem){
		if(!this.modulos[tpmod]){
			this.modulos[tpmod]	=new Object;
		}
		if(!this.modulos[tpmod][mod]){
			this.modulos[tpmod][mod]	=new Object;
		}
		if(!this.modulos[tpmod][mod][elem]){
			this.modulos[tpmod][mod][elem]	=new Object;
		}
		if(this.modulos[tpmod][mod][elem][subelem]){
			if(this.modulos[tpmod][mod][elem][subelem].obj){
				return 	this.modulos[tpmod][mod][elem][subelem].obj;
			}
		}
		return false;
	}
	this.set_mod_obj=function(tpmod,mod,elem,subelem,obj,ref){
		if(!this.modulos[tpmod]){
			this.modulos[tpmod]	=new Object;
		}
		if(!this.modulos[tpmod][mod]){
			this.modulos[tpmod][mod]	=new Object;
		}
		if(!this.modulos[tpmod][mod][elem]){
			this.modulos[tpmod][mod][elem]	=new Object;
		}
		if(!this.modulos[tpmod][mod][elem][subelem]){
			this.modulos[tpmod][mod][elem][subelem]	=new Object;
		}
		this.modulos[tpmod][mod][elem][subelem].obj=obj;
		if(ref){
			this.refobjs[ref]=obj;	
		}
		return 	this.modulos[tpmod][mod][elem][subelem].obj;
	}
}
var __fp_mod_objs=new fp_mod_objs();

/*
function fp_mod_objs_getset_mod_obj(tpmod,mod,elem,subelem,fnc){
	var r;
	if(r=__fp_mod_objs.get_mod_obj(tpmod,mod,elem,subelem)){
		return r;	
	}
	var o=fnc();
	if(o){
		alert("setting obj");
		return __fp_mod_objs.set_mod_obj(tpmod,mod,elem,subelem,o)
	}
}
*/