/* Copyright (c)2007-2012 Oficix Estudio SL. Todos los derechos reservados. */

 function addLoadEvent(func){var oldonload=window.onload;if(typeof window.onload!='function'){window.onload=func;}else{window.onload=function(){if(oldonload){oldonload();}func();}}}if(window!=window.top)
top.location.href=location.href;function NuevoValidaor(){document.getElementById('validaor').src='includes/validaor/validaor_img.php?' + Math.random();}function Print(){document.body.offsetHeight;window.print();}function confirma_url(url,texto){question=confirm("¿Seguro que quiere "+texto+"?\n")
if(question!="0"){top.location=url};}function confirma_reload(texto){question=confirm("¿Seguro que quiere "+texto+"?\n")
if(question!="0"){history.go(0)}}function cierra_esta(){window.blur();window.close();opener.focus();}function cierra_esta_y_reload(){opener.document.location.reload();self.close();}function abrir(url,nombre,width,height,scrollBars){ventana=window.open(url,nombre,"width="+width+",height="+height+",toolbar=0,location=0,directories=0,status=0,menuBar=0,scrollBars="+scrollBars+",resizable=0");ventana.focus();}function ir_url(url){opener.document.location=url;window.blur();window.close();opener.focus();}function ir_basico(url){document.location=url;}function abrirenlace(url){ventana=window.open(url,"enlace","width=1024,height=600,toolbar=yes,location=yes,directories=yes,status=yes,menuBar=yes,scrollBars=yes,resizable=yes");ventana.focus();}function encripta_password(){Password=document.getElementById('password');if(Password.value!=""){Password.value=encrypt(Password.value)};}function encripta_password_2(){Password_2=document.getElementById('password_2');if(Password_2.value!=""){Password_2.value=encrypt(Password_2.value)};}var hexcase=0;var b64pad="";var chrsz=8;function encrypt(s){return binl2hex(core_md5(str2binl(s),s.length * chrsz))}function b64_md5(s){return binl2b64(core_md5(str2binl(s),s.length * chrsz))}function str_md5(s){return binl2str(core_md5(str2binl(s),s.length * chrsz))}function hex_hmac_md5(key,data){return binl2hex(core_hmac_md5(key,data))}function b64_hmac_md5(key,data){return binl2b64(core_hmac_md5(key,data))}function str_hmac_md5(key,data){return binl2str(core_hmac_md5(key,data))}function md5_vm_test(){return hex_md5("abc")=="900150983cd24fb0d6963f7d28e17f72";}function core_md5(x,len){
x[len>>5] |=0x80<<((len)% 32);x[(((len + 64)>>>9)<<4)+ 14]=len;var a=1732584193;var b=-271733879;var c=-1732584194;var d=271733878;for(var i=0;i<x.length;i +=16){var olda=a;var oldb=b;var oldc=c;var oldd=d;a=md5_ff(a,b,c,d,x[i+ 0],7,-680876936);d=md5_ff(d,a,b,c,x[i+ 1],12,-389564586);c=md5_ff(c,d,a,b,x[i+ 2],17,606105819);b=md5_ff(b,c,d,a,x[i+ 3],22,-1044525330);a=md5_ff(a,b,c,d,x[i+ 4],7,-176418897);d=md5_ff(d,a,b,c,x[i+ 5],12,1200080426);c=md5_ff(c,d,a,b,x[i+ 6],17,-1473231341);b=md5_ff(b,c,d,a,x[i+ 7],22,-45705983);a=md5_ff(a,b,c,d,x[i+ 8],7,1770035416);d=md5_ff(d,a,b,c,x[i+ 9],12,-1958414417);c=md5_ff(c,d,a,b,x[i+10],17,-42063);b=md5_ff(b,c,d,a,x[i+11],22,-1990404162);a=md5_ff(a,b,c,d,x[i+12],7,1804603682);d=md5_ff(d,a,b,c,x[i+13],12,-40341101);c=md5_ff(c,d,a,b,x[i+14],17,-1502002290);b=md5_ff(b,c,d,a,x[i+15],22,1236535329);a=md5_gg(a,b,c,d,x[i+ 1],5,-165796510);d=md5_gg(d,a,b,c,x[i+ 6],9,-1069501632);c=md5_gg(c,d,a,b,x[i+11],14,643717713);b=md5_gg(b,c,d,a,x[i+ 0],20,-373897302);a=md5_gg(a,b,c,d,x[i+ 5],5,-701558691);d=md5_gg(d,a,b,c,x[i+10],9,38016083);c=md5_gg(c,d,a,b,x[i+15],14,-660478335);b=md5_gg(b,c,d,a,x[i+ 4],20,-405537848);a=md5_gg(a,b,c,d,x[i+ 9],5,568446438);d=md5_gg(d,a,b,c,x[i+14],9,-1019803690);c=md5_gg(c,d,a,b,x[i+ 3],14,-187363961);b=md5_gg(b,c,d,a,x[i+ 8],20,1163531501);a=md5_gg(a,b,c,d,x[i+13],5,-1444681467);d=md5_gg(d,a,b,c,x[i+ 2],9,-51403784);c=md5_gg(c,d,a,b,x[i+ 7],14,1735328473);b=md5_gg(b,c,d,a,x[i+12],20,-1926607734);a=md5_hh(a,b,c,d,x[i+ 5],4,-378558);d=md5_hh(d,a,b,c,x[i+ 8],11,-2022574463);c=md5_hh(c,d,a,b,x[i+11],16,1839030562);b=md5_hh(b,c,d,a,x[i+14],23,-35309556);a=md5_hh(a,b,c,d,x[i+ 1],4,-1530992060);d=md5_hh(d,a,b,c,x[i+ 4],11,1272893353);c=md5_hh(c,d,a,b,x[i+ 7],16,-155497632);b=md5_hh(b,c,d,a,x[i+10],23,-1094730640);a=md5_hh(a,b,c,d,x[i+13],4,681279174);d=md5_hh(d,a,b,c,x[i+ 0],11,-358537222);c=md5_hh(c,d,a,b,x[i+ 3],16,-722521979);b=md5_hh(b,c,d,a,x[i+ 6],23,76029189);a=md5_hh(a,b,c,d,x[i+ 9],4,-640364487);d=md5_hh(d,a,b,c,x[i+12],11,-421815835);c=md5_hh(c,d,a,b,x[i+15],16,530742520);b=md5_hh(b,c,d,a,x[i+ 2],23,-995338651);a=md5_ii(a,b,c,d,x[i+ 0],6,-198630844);d=md5_ii(d,a,b,c,x[i+ 7],10,1126891415);c=md5_ii(c,d,a,b,x[i+14],15,-1416354905);b=md5_ii(b,c,d,a,x[i+ 5],21,-57434055);a=md5_ii(a,b,c,d,x[i+12],6,1700485571);d=md5_ii(d,a,b,c,x[i+ 3],10,-1894986606);c=md5_ii(c,d,a,b,x[i+10],15,-1051523);b=md5_ii(b,c,d,a,x[i+ 1],21,-2054922799);a=md5_ii(a,b,c,d,x[i+ 8],6,1873313359);d=md5_ii(d,a,b,c,x[i+15],10,-30611744);c=md5_ii(c,d,a,b,x[i+ 6],15,-1560198380);b=md5_ii(b,c,d,a,x[i+13],21,1309151649);a=md5_ii(a,b,c,d,x[i+ 4],6,-145523070);d=md5_ii(d,a,b,c,x[i+11],10,-1120210379);c=md5_ii(c,d,a,b,x[i+ 2],15,718787259);b=md5_ii(b,c,d,a,x[i+ 9],21,-343485551);a=safe_add(a,olda);b=safe_add(b,oldb);c=safe_add(c,oldc);d=safe_add(d,oldd);}return Array(a,b,c,d)}function md5_cmn(q,a,b,x,s,t){return safe_add(bit_rol(safe_add(safe_add(a,q),safe_add(x,t)),s),b);}function md5_ff(a,b,c,d,x,s,t){return md5_cmn((b&c)|((~b)&d),a,b,x,s,t);}function md5_gg(a,b,c,d,x,s,t){return md5_cmn((b&d)|(c&(~d)),a,b,x,s,t);}function md5_hh(a,b,c,d,x,s,t){return md5_cmn(b ^ c ^ d,a,b,x,s,t);}function md5_ii(a,b,c,d,x,s,t){return md5_cmn(c ^(b |(~d)),a,b,x,s,t);}function core_hmac_md5(key,data){var bkey=str2binl(key);if(bkey.length>16)bkey=core_md5(bkey,key.length * chrsz);var ipad=Array(16),opad=Array(16);for(var i=0;i<16;i++){ipad[i]=bkey[i] ^ 0x36363636;opad[i]=bkey[i] ^ 0x5C5C5C5C;}var hash=core_md5(ipad.concat(str2binl(data)),512 + data.length * chrsz);return core_md5(opad.concat(hash),512 + 128);}function safe_add(x,y){var lsw=(x&0xFFFF)+(y&0xFFFF);var msw=(x>>16)+(y>>16)+(lsw>>16);return(msw<<16)|(lsw&0xFFFF);}function bit_rol(num,cnt){return(num<<cnt)|(num>>>(32 - cnt));}function str2binl(str){var bin=Array();var mask=(1<<chrsz)- 1;for(var i=0;i<str.length * chrsz;i +=chrsz)
bin[i>>5] |=(str.charCodeAt(i / chrsz)&mask)<<(i%32);return bin;}function binl2str(bin){var str="";var mask=(1<<chrsz)- 1;for(var i=0;i<bin.length * 32;i +=chrsz)
str +=String.fromCharCode((bin[i>>5]>>>(i % 32))&mask);return str;}function binl2hex(binarray){var hex_tab=hexcase?"0123456789ABCDEF":"0123456789abcdef";var str="";for(var i=0;i<binarray.length * 4;i++){str +=hex_tab.charAt((binarray[i>>2]>>((i%4)*8+4))&0xF)+
 hex_tab.charAt((binarray[i>>2]>>((i%4)*8))&0xF);}return str;}function binl2b64(binarray){var tab="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";var str="";for(var i=0;i<binarray.length * 4;i +=3){var triplet=(((binarray[i>>2]>>8 *(i %4))&0xFF)<<16)|(((binarray[i+1>>2]>>8 *((i+1)%4))&0xFF)<<8)|((binarray[i+2>>2]>>8 *((i+2)%4))&0xFF);for(var j=0;j<4;j++){if(i * 8 + j * 6>binarray.length * 32)str +=b64pad;else str +=tab.charAt((triplet>>6*(3-j))&0x3F);}}return str;}var mensaje_confirmacion='¿Está seguro de enviar los datos?';function Mensaje(Ctrl,Msj){Ctrl.style.borderColor='#F00';MensajeFormato="Error:\n\n* " + Msj + "\n"
alert(MensajeFormato)
Ctrl.focus();return;}function MensajeSinCambios(Ctrl,Msj){MensajeFormato="Error:\n\n* " + Msj + "\n"
alert(MensajeFormato)
return;}function CambiaBotonyEnvia(){document.getElementById('enviar').value='Enviando...';document.getElementById('enviar').style.cursor="default";document.getElementById('formulario').submit();document.getElementById('enviar').disabled=true;}function str_replace(search,position,replace,subject){ 
var f=search,r=replace,s=subject,p=position;var ra=r instanceof Array,sa=s instanceof Array,f=[].concat(f),r=[].concat(r),i=(s=[].concat(s)).length; 
while(j=0,i--){if(s[i]){while(s[i]=s[i].split(f[j]).join(ra?r[j] || "":r[0]),++j in f){};}}; 
return sa?s:s[0];}function valida_nif_cif_nie(a){var temp=a.toUpperCase();var cadenadni="TRWAGMYFPDXBNJZSQVHLCKE"; 
if(temp!==''){if((!/^[A-Z]{1}[0-9]{7}[A-Z0-9]{1}$/.test(temp)&&!/^[T]{1}[A-Z0-9]{8}$/.test(temp))&&!/^[0-9]{8}[A-Z]{1}$/.test(temp)){return 0;} 
if(/^[0-9]{8}[A-Z]{1}$/.test(temp)){posicion=a.substring(8,0)% 23;letra=cadenadni.charAt(posicion);var letradni=temp.charAt(8);if(letra==letradni){ return 1;}else{return -1;}} 
suma=parseInt(a.charAt(2))+parseInt(a.charAt(4))+parseInt(a.charAt(6));for(i=1;i<8;i +=2){temp1=2 * parseInt(a.charAt(i));temp1 +='';temp1=temp1.substring(0,1);temp2=2 * parseInt(a.charAt(i));temp2 +='';temp2=temp2.substring(1,2);if(temp2==''){temp2='0';} 
suma +=(parseInt(temp1)+ parseInt(temp2));}suma +='';n=10 - parseInt(suma.substring(suma.length-1,suma.length)); 
if(/^[KLM]{1}/.test(temp)){if(a.charAt(8)==String.fromCharCode(64 + n)){return 1;}else{return -1;}} 
if(/^[ABCDEFGHJNPQRSUVW]{1}/.test(temp)){temp=n + '';if(a.charAt(8)==String.fromCharCode(64 + n)|| a.charAt(8)==parseInt(temp.substring(temp.length-1,temp.length))){return 2;}else{return -2;}} 
if(/^[T]{1}/.test(temp)){if(/^[T]{1}[A-Z0-9]{8}$/.test(temp)){return 3;}else{return -3;}} 
if(/^[XYZ]{1}/.test(temp)){pos=str_replace(['X','Y','Z'],0,['0','1','2'],temp).substring(0,8)% 23;if(a[8]==cadenadni.substring(pos,pos + 1)){return 3;}else{return -3;}}} 
return 0;}function test_usuario(form){Ctrl=form.usuario;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Usuario");else{Ctrl.style.borderColor='#777';return(true)}}function test_password_hay(form){Ctrl=form.password;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta contraseña");else{Ctrl.style.borderColor='#777';return(true)}}function test_empresa(form){Ctrl=form.empresa;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Empresa");else{Ctrl.style.borderColor='#777';return(true)}}function test_asunto(form){Ctrl=form.asunto;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Asunto");else{Ctrl.style.borderColor='#777';return(true)}}function test_texto(form){Ctrl=form.texto;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Texto");else{Ctrl.style.borderColor='#777';return(true)}}function test_texto(form){Ctrl=form.texto;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Mensaje");else{Ctrl.style.borderColor='#777';return(true)}}function test_nombre(form){Ctrl=form.nombre;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Nombre");else{Ctrl.style.borderColor='#777';return(true)}}function test_apellidos(form){Ctrl=form.apellidos;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Faltan apellidos")
else{Ctrl.style.borderColor='#777';return(true)}}function test_telefono(form){Ctrl=form.telefono;if(Ctrl.value=="" ||!(/^[0-9]{9,10}$/.test(Ctrl.value)))Mensaje(Ctrl,"Error en teléfono")
else{Ctrl.style.borderColor='#777';return(true)}}function test_telefono_noreq(form){Ctrl=form.telefono;if((Ctrl.value!="")&&!(/^[0-9]{9,10}$/.test(Ctrl.value)))Mensaje(Ctrl,"Inserte un teléfono válido\u00a0(Sin espacios)");else{Ctrl.style.borderColor='#777';return(true)}}function test_fax_noreq(form){Ctrl=form.fax;if((Ctrl.value!="")&&!(/^[0-9]{9,10}$/.test(Ctrl.value)))Mensaje(Ctrl,"Inserte un Fax válido\u00a0(Sin espacios)");else{Ctrl.style.borderColor='#777';return(true)}}function test_email(form){Ctrl=form.email;if(Ctrl.value=="" ||!(/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(Ctrl.value)))Mensaje(Ctrl,"Inserte un correo electrónico válido");else{Ctrl.style.borderColor='#777';return(true)}}function test_email_noreq(form){Ctrl=form.email;if((Ctrl.value!="")&&!(/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(Ctrl.value)))Mensaje(Ctrl,"Inserte un correo electrónico válido");else{Ctrl.style.borderColor='#777';return(true)}}function test_donde(form){Ctrl=form.donde;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Sección");else{Ctrl.style.borderColor='#777';return(true)}}function test_descripcion(form){Ctrl=form.descripcion;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Mensaje o Descripción");else{Ctrl.style.borderColor='#777';return(true)}}function test_web(form){Ctrl=form.web;if((Ctrl.value!="")&&(Ctrl.value!="http:\/\/")&&!(/^(http|https)+:\/\/[A-Za-z0-9-_]+\.[A-Za-z0-9-_%&\?\/.=]+$/.test(Ctrl.value)))Mensaje(Ctrl,"Inserte una Dirección Web válida\u00a0(\"http:\/\/\" o \"https:\/\/\")");else{Ctrl.style.borderColor='#777';return(true)}}function test_code(form){Ctrl=form.code;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Error en el Código de Seguridad");else{Ctrl.style.borderColor='#777';return(true)}}function test_nif_nie(form){Ctrl=form.nif_nie;if((valida_nif_cif_nie(Ctrl.value)!='1')&&(valida_nif_cif_nie(Ctrl.value)!='3'))Mensaje(Ctrl,"Error en el NIF/NIE");else{Ctrl.style.borderColor='#777';return(true)}}function test_cif(form){Ctrl=form.cif;if((valida_nif_cif_nie(Ctrl.value)!='2'))Mensaje(Ctrl,"Error en el CIF");else{Ctrl.style.borderColor='#777';return(true)}}function test_obra_nombre(form){Ctrl=form.obra_nombre;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Nombre de la Obra");else{Ctrl.style.borderColor='#777';return(true)}}function test_obra_presupuesto(form){Ctrl=form.obra_presupuesto;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Presupuesto de la Obra");else{Ctrl.style.borderColor='#777';return(true)}}function test_obra_emplazamiento(form){Ctrl=form.obra_emplazamiento;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Presupuesto de la Obra");else{Ctrl.style.borderColor='#777';return(true)}}function test_obra_organismo(form){Ctrl=form.obra_organismo;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Organismo Contratante");else{Ctrl.style.borderColor='#777';return(true)}}function test_obra_fecha(form){Ctrl=form.obra_fecha;if(Ctrl.value=="" || /^\s+$/.test(Ctrl.value))Mensaje(Ctrl,"Falta Fecha de Presentación");else{Ctrl.style.borderColor='#777';return(true)}}function test_checkbox(form){Ctrl=form.checkbox;if(Ctrl.checked!=true)Mensaje(Ctrl,"Debe leer y aceptar la política de protección de datos");else{Ctrl.style.borderColor='#777';return(true)}}function ValidaLogin(form){if(!test_usuario(form)||!test_password_hay(form))return;encripta_password();CambiaBotonyEnvia();}function EnviarMensaje(form){if(!test_asunto(form)||!test_texto(form)||!test_nombre(form)||!test_telefono(form)||!test_email(form)||!test_telefono(form)||!test_code(form)||!test_checkbox(form))return;question=confirm(mensaje_confirmacion)
if(question!="0"){CambiaBotonyEnvia();}}function EnviarMensajeCliente(form){if(!test_asunto(form)||!test_texto(form))return;question=confirm(mensaje_confirmacion)
if(question!="0"){CambiaBotonyEnvia();}}function Valida_ConfiguracionCliente(form){if(!test_telefono_noreq(form)||!test_fax_noreq(form)
 ||!test_password_hay(form))return;question=confirm(mensaje_confirmacion)
if(question!="0"){encripta_password();CambiaBotonyEnvia();}}function SolicitarEmpleo(form){if(!test_nombre(form)
 ||!test_apellidos(form)
 ||!test_telefono(form)
 ||!test_telefono_noreq(form)
 ||!test_email(form)
 ||!test_email_noreq(form)
 ||!test_code(form)
 ||!test_checkbox(form))return;question=confirm(mensaje_confirmacion)
if(question!="0"){CambiaBotonyEnvia();}}function Valida_SolicitarAcceso(form){if(!test_empresa(form)||!test_cif(form)||!test_nombre(form)||!test_telefono(form)||!test_fax_noreq(form)||!test_email(form)||!test_code(form)||!test_checkbox(form)){return}question=confirm(mensaje_confirmacion)
if(question!="0"){CambiaBotonyEnvia();}}function Presupuesto(form){if(!test_obra_nombre(form)||!test_obra_organismo(form)||!test_obra_fecha(form)||!test_obra_presupuesto(form)||!test_empresa(form)||!test_cif(form)||!test_nombre(form)||!test_telefono(form)||!test_fax_noreq(form)||!test_email(form)||!test_code(form)||!test_checkbox(form)
){return}question=confirm(mensaje_confirmacion)
if(question!="0"){CambiaBotonyEnvia();}}function PresupuestoCliente(form){if(!test_obra_nombre(form)||!test_obra_organismo(form)||!test_obra_fecha(form)||!test_obra_presupuesto(form)
){return}question=confirm(mensaje_confirmacion)
if(question!="0"){CambiaBotonyEnvia();}}function InsertarArchivo(id){document.write(
'<div id="'+ id +'_capa">'+
'<input class="archivo" type="file" name="'+ id +'" id="'+ id +'" onchange="ValidarArchivo(\''+ id +'\');return false" />'+
'<div class="nombre" id="'+ id +'_nombre"></div>'+
'<a id="'+ id +'_eliminar" class="eliminar" title="Eliminar Archivo" href="#" onclick="EliminarArchivo(\''+ id +'\');return false;"></a></div>'
)}function EliminarArchivo(id){capa=document.getElementById(id+'_capa');varHTML='';capa.innerHTML=varHTML;varHTML +=
'<div id="'+ id +'_capa">'+
'<input class="archivo" type="file" name="'+ id +'" id="'+ id +'" onchange="ValidarArchivo(\''+ id +'\');return false" />'+
'<div id="'+ id +'_nombre" class="nombre"></div>'+
'<a id="'+ id +'_eliminar" class="eliminar" title="Eliminar Archivo" href="#" onclick="EliminarArchivo(\''+ id +'\');return false;"></a></div>';capa.innerHTML=varHTML;}function ValidarArchivo(id){Nombre=document.getElementById(id).value;LinkEliminar=document.getElementById(id+'_eliminar');CapaNombre=document.getElementById(id+'_nombre');extArray=new Array(".pdf",".doc",".docx",".rtf",".txt",".xls",".xlsx");Permitir=false;if(!Nombre)return;while(Nombre.indexOf("\\")!=-1)
Nombre=Nombre.slice(Nombre.indexOf("\\")+ 1);extension=(Nombre.substring(Nombre.lastIndexOf("."))).toLowerCase();for(var i=0;i<extArray.length;i++){if(extArray[i]==extension){Permitir=true;break}}if(Permitir){CapaNombre.innerHTML=Nombre;LinkEliminar.innerHTML="X";return true;}else
Msj="Extensión de archivo " + extension +" no permitida.";MensajeFormato="Error:\n\n* " + Msj + "\n";alert(MensajeFormato);EliminarArchivo(id);return false;}//** All Levels Navigational Menu- (c) Dynamic Drive DHTML code library: http://www.dynamicdrive.com
//** Script Download/ instructions page: http://www.dynamicdrive.com/dynamicindex1/ddlevelsmenu/
//** Usage Terms: http://www.dynamicdrive.com/notice.htm

//** Current version: 2.2 See changelog.txt for details

if (typeof dd_domreadycheck=="undefined") //global variable to detect if DOM is ready
	var dd_domreadycheck=false

var ddlevelsmenu={

enableshim: true, //enable IFRAME shim to prevent drop down menus from being hidden below SELECT or FLASH elements? (tip: disable if not in use, for efficiency)

arrowpointers:{
	downarrow: ["ddlevelsfiles/arrow-down.gif", 11,7], //[path_to_down_arrow, arrowwidth, arrowheight]
	rightarrow: ["ddlevelsfiles/arrow-right.gif", 12,12], //[path_to_right_arrow, arrowwidth, arrowheight]
	showarrow: {toplevel: true, sublevel: true} //Show arrow images on top level items and sub level items, respectively?
},
hideinterval: 200, //delay in milliseconds before entire menu disappears onmouseout.
effects: {enableswipe: true, enablefade: true, duration: 200},
httpsiframesrc: "blank.htm", //If menu is run on a secure (https) page, the IFRAME shim feature used by the script should point to an *blank* page *within* the secure area to prevent an IE security prompt. Specify full URL to that page on your server (leave as is if not applicable).

///No need to edit beyond here////////////////////

topmenuids: [], //array containing ids of all the primary menus on the page
topitems: {}, //object array containing all top menu item links
subuls: {}, //object array containing all ULs
lastactivesubul: {}, //object object containing info for last mouse out menu item's UL
topitemsindex: -1,
ulindex: -1,
hidetimers: {}, //object array timer
shimadded: false,
nonFF: !/Firefox[\/\s](\d+\.\d+)/.test(navigator.userAgent), //detect non FF browsers
getoffset:function(what, offsettype){
	return (what.offsetParent)? what[offsettype]+this.getoffset(what.offsetParent, offsettype) : what[offsettype]
},

getoffsetof:function(el){
	el._offsets={left:this.getoffset(el, "offsetLeft"), top:this.getoffset(el, "offsetTop")}
},

getwindowsize:function(){
	this.docwidth=window.innerWidth? window.innerWidth-10 : this.standardbody.clientWidth-10
	this.docheight=window.innerHeight? window.innerHeight-15 : this.standardbody.clientHeight-18
},

gettopitemsdimensions:function(){
	for (var m=0; m<this.topmenuids.length; m++){
		var topmenuid=this.topmenuids[m]
		for (var i=0; i<this.topitems[topmenuid].length; i++){
			var header=this.topitems[topmenuid][i]
			var submenu=document.getElementById(header.getAttribute('rel'))
			header._dimensions={w:header.offsetWidth, h:header.offsetHeight, submenuw:submenu.offsetWidth, submenuh:submenu.offsetHeight}
		}
	}
},

isContained:function(m, e){
	var e=window.event || e
	var c=e.relatedTarget || ((e.type=="mouseover")? e.fromElement : e.toElement)
	while (c && c!=m)try {c=c.parentNode} catch(e){c=m}
	if (c==m)
		return true
	else
		return false
},

addpointer:function(target, imgclass, imginfo, BeforeorAfter){
	var pointer=document.createElement("img")
	pointer.src=imginfo[0]
	pointer.style.width=imginfo[1]+"px"
	pointer.style.height=imginfo[2]+"px"
	if(imgclass=="rightarrowpointer"){
		pointer.style.left=target.offsetWidth-imginfo[2]-2+"px"
	}
	pointer.className=imgclass
	var target_firstEl=target.childNodes[target.firstChild.nodeType!=1? 1 : 0] //see if the first child element within A is a SPAN (found in sliding doors technique)
	if (target_firstEl && target_firstEl.tagName=="SPAN"){
		target=target_firstEl //arrow should be added inside this SPAN instead if found
	}
	if (BeforeorAfter=="before")
		target.insertBefore(pointer, target.firstChild)
	else
		target.appendChild(pointer)
},

css:function(el, targetclass, action){
	var needle=new RegExp("(^|\\s+)"+targetclass+"($|\\s+)", "ig")
	if (action=="check")
		return needle.test(el.className)
	else if (action=="remove")
		el.className=el.className.replace(needle, "")
	else if (action=="add" && !needle.test(el.className))
		el.className+=" "+targetclass
},

addshimmy:function(target){
	var shim=(!window.opera)? document.createElement("iframe") : document.createElement("div") //Opera 9.24 doesnt seem to support transparent IFRAMEs
	shim.className="ddiframeshim"
	shim.setAttribute("src", location.protocol=="https:"? this.httpsiframesrc : "about:blank")
	shim.setAttribute("frameborder", "0")
	target.appendChild(shim)
	try{
		shim.style.filter='progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)'
	}
	catch(e){}
	return shim
},

positionshim:function(header, submenu, dir, scrollX, scrollY){
	if (header._istoplevel){
		var scrollY=window.pageYOffset? window.pageYOffset : this.standardbody.scrollTop
		var topgap=header._offsets.top-scrollY
		var bottomgap=scrollY+this.docheight-header._offsets.top-header._dimensions.h
		if (topgap>0){
			this.shimmy.topshim.style.left=scrollX+"px"
			this.shimmy.topshim.style.top=scrollY+"px"
			this.shimmy.topshim.style.width="99%"
			this.shimmy.topshim.style.height=topgap+"px" //distance from top window edge to top of menu item
		}
		if (bottomgap>0){
			this.shimmy.bottomshim.style.left=scrollX+"px"
			this.shimmy.bottomshim.style.top=header._offsets.top + header._dimensions.h +"px"
			this.shimmy.bottomshim.style.width="99%"
			this.shimmy.bottomshim.style.height=bottomgap+"px" //distance from bottom of menu item to bottom window edge
		}
	}
},

hideshim:function(){
	this.shimmy.topshim.style.width=this.shimmy.bottomshim.style.width=0
	this.shimmy.topshim.style.height=this.shimmy.bottomshim.style.height=0
},


buildmenu:function(mainmenuid, header, submenu, submenupos, istoplevel, dir){
	header._master=mainmenuid //Indicate which top menu this header is associated with
	header._pos=submenupos //Indicate pos of sub menu this header is associated with
	header._istoplevel=istoplevel
	if (istoplevel){
		this.addEvent(header, function(e){
		ddlevelsmenu.hidemenu(ddlevelsmenu.subuls[this._master][parseInt(this._pos)])
		}, "click")
	}
	this.subuls[mainmenuid][submenupos]=submenu
	header._dimensions={w:header.offsetWidth, h:header.offsetHeight, submenuw:submenu.offsetWidth, submenuh:submenu.offsetHeight}
	this.getoffsetof(header)
	submenu.style.left=0
	submenu.style.top=0
	submenu.style.visibility="hidden"
	this.addEvent(header, function(e){ //mouseover event
		if (!ddlevelsmenu.isContained(this, e)){
			var submenu=ddlevelsmenu.subuls[this._master][parseInt(this._pos)]
			if (this._istoplevel){
				ddlevelsmenu.css(this, "selected", "add")
			clearTimeout(ddlevelsmenu.hidetimers[this._master][this._pos])
			}
			ddlevelsmenu.getoffsetof(header)
			var scrollX=window.pageXOffset? window.pageXOffset : ddlevelsmenu.standardbody.scrollLeft
			var scrollY=window.pageYOffset? window.pageYOffset : ddlevelsmenu.standardbody.scrollTop
			var submenurightedge=this._offsets.left + this._dimensions.submenuw + (this._istoplevel && dir=="topbar"? 0 : this._dimensions.w)
			var submenubottomedge=this._offsets.top + this._dimensions.submenuh
			//Sub menu starting left position
			var menuleft=(this._istoplevel? this._offsets.left + (dir=="sidebar"? this._dimensions.w : 0) : this._dimensions.w)
			if (submenurightedge-scrollX>ddlevelsmenu.docwidth){
				menuleft+= -this._dimensions.submenuw + (this._istoplevel && dir=="topbar" ? this._dimensions.w : -this._dimensions.w)
			}
			submenu.style.left=menuleft+"px"
			//Sub menu starting top position
			var menutop=(this._istoplevel? this._offsets.top + (dir=="sidebar"? 0 : this._dimensions.h) : this.offsetTop)
			if (submenubottomedge-scrollY>ddlevelsmenu.docheight){ //no room downwards?
				if (this._dimensions.submenuh<this._offsets.top+(dir=="sidebar"? this._dimensions.h : 0)-scrollY){ //move up?
					menutop+= - this._dimensions.submenuh + (this._istoplevel && dir=="topbar"? -this._dimensions.h : this._dimensions.h)
				}
				else{ //top of window edge
					menutop+= -(this._offsets.top-scrollY) + (this._istoplevel && dir=="topbar"? -this._dimensions.h : 0)
				}
			}
			submenu.style.top=menutop+"px"
			if (ddlevelsmenu.enableshim && (ddlevelsmenu.effects.enableswipe==false || ddlevelsmenu.nonFF)){ //apply shim immediately only if animation is turned off, or if on, in non FF2.x browsers
				ddlevelsmenu.positionshim(header, submenu, dir, scrollX, scrollY)
			}
			else{
				submenu.FFscrollInfo={x:scrollX, y:scrollY}
			}
			ddlevelsmenu.showmenu(header, submenu, dir)
		}
	}, "mouseover")
	this.addEvent(header, function(e){ //mouseout event
		var submenu=ddlevelsmenu.subuls[this._master][parseInt(this._pos)]
		if (this._istoplevel){
			if (!ddlevelsmenu.isContained(this, e) && !ddlevelsmenu.isContained(submenu, e)) //hide drop down ul if mouse moves out of menu bar item but not into drop down ul itself
				ddlevelsmenu.hidemenu(submenu)
		}
		else if (!this._istoplevel && !ddlevelsmenu.isContained(this, e)){
			ddlevelsmenu.hidemenu(submenu)
		}

	}, "mouseout")
},

setopacity:function(el, value){
	el.style.opacity=value
	if (typeof el.style.opacity!="string"){ //if it's not a string (ie: number instead), it means property not supported
		el.style.MozOpacity=value
		if (el.filters){
			el.style.filter="progid:DXImageTransform.Microsoft.alpha(opacity="+ value*100 +")"
		}
	}
},

showmenu:function(header, submenu, dir){
	if (this.effects.enableswipe || this.effects.enablefade){
		if (this.effects.enableswipe){
			var endpoint=(header._istoplevel && dir=="topbar")? header._dimensions.submenuh : header._dimensions.submenuw
			submenu.style.width=submenu.style.height=0
			submenu.style.overflow="hidden"
		}
		if (this.effects.enablefade){
			this.setopacity(submenu, 0) //set opacity to 0 so menu appears hidden initially
		}
		submenu._curanimatedegree=0
		submenu.style.visibility="visible"
		clearInterval(submenu._animatetimer)
		submenu._starttime=new Date().getTime() //get time just before animation is run
		submenu._animatetimer=setInterval(function(){ddlevelsmenu.revealmenu(header, submenu, endpoint, dir)}, 10)
	}
	else{
		submenu.style.visibility="visible"
	}
},

revealmenu:function(header, submenu, endpoint, dir){
	var elapsed=new Date().getTime()-submenu._starttime //get time animation has run
	if (elapsed<this.effects.duration){
		if (this.effects.enableswipe){
			if (submenu._curanimatedegree==0){ //reset either width or height of sub menu to "auto" when animation begins
				submenu.style[header._istoplevel && dir=="topbar"? "width" : "height"]="auto"
			}
			submenu.style[header._istoplevel && dir=="topbar"? "height" : "width"]=(submenu._curanimatedegree*endpoint)+"px"
		}
		if (this.effects.enablefade){
			this.setopacity(submenu, submenu._curanimatedegree)
		}
	}
	else{
		clearInterval(submenu._animatetimer)
		if (this.effects.enableswipe){
			submenu.style.width="auto"
			submenu.style.height="auto"
			submenu.style.overflow="visible"
		}
		if (this.effects.enablefade){
			this.setopacity(submenu, 1)
			submenu.style.filter=""
		}
		if (this.enableshim && submenu.FFscrollInfo) //if this is FF browser (meaning shim hasn't been applied yet
			this.positionshim(header, submenu, dir, submenu.FFscrollInfo.x, submenu.FFscrollInfo.y)
	}
	submenu._curanimatedegree=(1-Math.cos((elapsed/this.effects.duration)*Math.PI)) / 2
},

hidemenu:function(submenu){
	if (typeof submenu._pos!="undefined"){ //if submenu is outermost UL drop down menu
		this.css(this.topitems[submenu._master][parseInt(submenu._pos)], "selected", "remove")
		if (this.enableshim)
			this.hideshim()
	}
	clearInterval(submenu._animatetimer)
	submenu.style.left=0
	submenu.style.top="-1000px"
	submenu.style.visibility="hidden"
},


addEvent:function(target, functionref, tasktype) {
	if (target.addEventListener)
		target.addEventListener(tasktype, functionref, false);
	else if (target.attachEvent)
		target.attachEvent('on'+tasktype, function(){return functionref.call(target, window.event)});
},

domready:function(functionref){ //based on code from the jQuery library
	if (dd_domreadycheck){
		functionref()
		return
	}
	// Mozilla, Opera and webkit nightlies currently support this event
	if (document.addEventListener) {
		// Use the handy event callback
		document.addEventListener("DOMContentLoaded", function(){
			document.removeEventListener("DOMContentLoaded", arguments.callee, false )
			functionref();
			dd_domreadycheck=true
		}, false )
	}
	else if (document.attachEvent){
		// If IE and not an iframe
		// continually check to see if the document is ready
		if ( document.documentElement.doScroll && window == window.top) (function(){
			if (dd_domreadycheck){
				functionref()
				return
			}
			try{
				// If IE is used, use the trick by Diego Perini
				// http://javascript.nwbox.com/IEContentLoaded/
				document.documentElement.doScroll("left")
			}catch(error){
				setTimeout( arguments.callee, 0)
				return;
			}
			//and execute any waiting functions
			functionref();
			dd_domreadycheck=true
		})();
	}
	if (document.attachEvent && parent.length>0) //account for page being in IFRAME, in which above doesn't fire in IE
		this.addEvent(window, function(){functionref()}, "load");
},


init:function(mainmenuid, dir){
	this.standardbody=(document.compatMode=="CSS1Compat")? document.documentElement : document.body
	this.topitemsindex=-1
	this.ulindex=-1
	this.topmenuids.push(mainmenuid)
	this.topitems[mainmenuid]=[] //declare array on object
	this.subuls[mainmenuid]=[] //declare array on object
	this.hidetimers[mainmenuid]=[] //declare hide entire menu timer
	if (this.enableshim && !this.shimadded){
		this.shimmy={}
		this.shimmy.topshim=this.addshimmy(document.body) //create top iframe shim obj
		this.shimmy.bottomshim=this.addshimmy(document.body) //create bottom iframe shim obj
		this.shimadded=true
	}
	var menubar=document.getElementById(mainmenuid)
	var alllinks=menubar.getElementsByTagName("a")
	this.getwindowsize()
	for (var i=0; i<alllinks.length; i++){
		if (alllinks[i].getAttribute('rel')){
			this.topitemsindex++
			this.ulindex++
			var menuitem=alllinks[i]
			this.topitems[mainmenuid][this.topitemsindex]=menuitem //store ref to main menu links
			var dropul=document.getElementById(menuitem.getAttribute('rel'))
			document.body.appendChild(dropul) //move main ULs to end of document
			dropul.style.zIndex=2000 //give drop down menus a high z-index
			dropul._master=mainmenuid  //Indicate which main menu this main UL is associated with
			dropul._pos=this.topitemsindex //Indicate which main menu item this main UL is associated with
			this.addEvent(dropul, function(){ddlevelsmenu.hidemenu(this)}, "click")
			var arrowclass=(dir=="sidebar")? "rightarrowpointer" : "downarrowpointer"
			var arrowpointer=(dir=="sidebar")? this.arrowpointers.rightarrow : this.arrowpointers.downarrow
			if (this.arrowpointers.showarrow.toplevel)
				this.addpointer(menuitem, arrowclass, arrowpointer, (dir=="sidebar")? "before" : "after")
			this.buildmenu(mainmenuid, menuitem, dropul, this.ulindex, true, dir) //build top level menu
			dropul.onmouseover=function(){
				clearTimeout(ddlevelsmenu.hidetimers[this._master][this._pos])
			}
			this.addEvent(dropul, function(e){ //hide menu if mouse moves out of main UL element into open space
				if (!ddlevelsmenu.isContained(this, e) && !ddlevelsmenu.isContained(ddlevelsmenu.topitems[this._master][parseInt(this._pos)], e)){
					var dropul=this
					if (ddlevelsmenu.enableshim)
						ddlevelsmenu.hideshim()
					ddlevelsmenu.hidetimers[this._master][this._pos]=setTimeout(function(){
						ddlevelsmenu.hidemenu(dropul)
					}, ddlevelsmenu.hideinterval)
				}
			}, "mouseout")
			var subuls=dropul.getElementsByTagName("ul")
			for (var c=0; c<subuls.length; c++){
				this.ulindex++
				var parentli=subuls[c].parentNode
				if (this.arrowpointers.showarrow.sublevel)
					this.addpointer(parentli.getElementsByTagName("a")[0], "rightarrowpointer", this.arrowpointers.rightarrow, "before")
				this.buildmenu(mainmenuid, parentli, subuls[c], this.ulindex, false, dir) //build sub level menus
			}
		}
	} //end for loop
	this.addEvent(window, function(){ddlevelsmenu.getwindowsize(); ddlevelsmenu.gettopitemsdimensions()}, "resize")
},

setup:function(mainmenuid, dir){
	this.domready(function(){ddlevelsmenu.init(mainmenuid, dir)})
}

}