/**************************************************************************
 * C S I C   -  CONSEJO SUPERIOR DE INVESTIGACIONES CIENTIFICAS.          *
 * Vicepresidencia de Organizacion y Relaciones Institucionales. (VORI)   *
 * Area de Cultura Cientifica                                             *
 * Adminitracion y Coordinacion de los Webs del CSIC.                     *
 * C/ Serrano, 117 (28008) - MADRID - ESPAÑA                              *
 * Tel.: +34 91 585 5200                                                  *
 * http://www.csic.es - webmaster # csic.es                               *
 *                                                                        *
 * Coordinador.: Juan Martínez Pacheco                                    *
 *               Administrador y coordinador de los Webs del CSIC.        *
 *               juanmp # orgc.csic.es                                    * 
 *               +34 91 565 5200                                          * 
 ************************************************[05-mayo-2003]************/                
 

/**************************************************************************
 * MOSTRADO DE CABECEROS ELEGIDOS AL AZAR.                                *
 *                                                                        *
 * Identificación de los cabeceros disponibles y selección al azar de uno *
 * de ellos para ser mostrado cada vez que se recarga la página principal *
 * del Web Institucional del CSIC.                                        *
 *                                                                        *
 * Los cabeceros deben ubicarse siempre dentro del subdirectorio          *
 * [ $CATALINA_HOME/webapps/wicsic/images/..]. Inicialmente (01-2005) se  *
 * han incluido 7 cabeceros en los que se destaca la imagen personal de   *
 * Don Santiago Ramón y Cajal como primer presidente del CSIC. Su         *
 * ubicación esta en [CATALINA_HOME/webapps/wicsic/images/wi/....         *
 * ..wi/piezas/cabeceras/collages/cajal/..].                              *
 *                                                                        *
 * La incorporacion de nuevos cabeceros en cualquier ubicación (pero      *
 * siempre dentro del subdirectorio ../imágenes/..) se activarán          *
 * agregendo sus referencias en la matriz "banner" e incrementado el      *
 * numedo de cabeceros en la variable "numFotos".                         *
 *                                                                        *
 * Autor.: Juan Martínez Pacheco                                          *
 ************************************************[08-agosto-2005]**********/
banner=new Array("imagenes/piezas/cabeceras/cajal/collage_cajal_01.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_02.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_03.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_04.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_05.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_06.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_07.jpg",
                 "imagenes/piezas/cabeceras/cajal/collage_cajal_08.jpg");
numFotos=8;

function cambiar() {

	if (document.images) {
		if(document.imagenSAL.complete) {
			imagenActual = aleatorio(0,numFotos-1);
			document.imagenSAL.src=banner[imagenActual];
		}
	}
}
function aleatorio(inferior,superior){ 
    numPosibilidades = superior - inferior 
    aleat = Math.random() * numPosibilidades 
    aleat = Math.round(aleat) 
    return parseInt(inferior) + aleat 
} 


/* ******************************************[ lenguaNavegador() ]***********
   * DETECCIÓN DEL IDIOMA DEL NAVEGADOR QUE UTILIZA EL USUARIO / VISITANTE. *
	 **************************************************************************
	 * NOTA: Hay que diferenciar entre el "Lengiuaje del navegador" y las     *
	 *       "Preferencias de Idiomas".: Es muy importante saber que al       * 
	 *       tratarse de un programa o guión de Javascripts, lo que aquí se   *
	 *       detecta es el idioma o lengua del navegador que el usuario tiene *
	 *       instalado, y NO el de las “preferencias de idiomas” que el       *
	 *       usuario tenga configuraras dentro de él.                         *
	 **************************************************************************
	 **************************************************************************
   * Este guión de Javascript detecta e identifica el idioma del navegador  *
	 * que utiliza el usuario en el momento en que visita nuestro sitio Web.  *
	 * Todos los idiomas mas universales, significativos,  conocidos, o       *
	 * simplemente todos aquellos que aunque correspondan a una comunidad de  *
	 * tamaño insignificante tengan una personalidad o un dinamismo que les   *
	 * haya permitido darse a conocer con una identidad propia, han sido      *
	 * registrados y codificados.                                             *
	 *                                                                        *
	 * Cada uno de ellos han sido catalogado y codificado según la norma      *
	 * ISO-639.  Esta norma clasifica y codifica a todos los idiomas con 2 y  *
	 * 3 caracteres. ( http://www.w3.org/WAI/ER/IG/ert/iso639.htm ).          *
	 * Aquí se usa la de dos caractéres.   /  "es" - español,                 *
	 *                                        "ca" - catalan,                 *
	 *                                        "gl" - gallego,                 *
	 *                                        "eu" - vasco,                   *
	 *                                        "en" - ingles                   *
   * Autor.: Juan Martínez Pacheco                                          *
	 *******************************************************[08-2003 ]*********/
function lenguaNavegador() {
	 lengua = "es";  // Español como lengua por defecto.
	 if (navigator.userAgent.indexOf("Opera")!=-1) { 
	    lengua=navigator.language;
	 } else {	 
      if (navigator.appName == "Netscape") {
			   lengua=navigator.language;
			} else {
			   lengua=navigator.browserLanguage; 
			}
	 }
	 
   lenguaf = lengua.substring(0,2);
	 return lenguaf;
} 



/*******************************************************************************
 * Devuelve el lema del CSIC en español, catalan, (gallego, vasco) e ingles    *
 * segun el codigo de lengua dado como argumento de entrada:                   * 
 * Autor.: Juan Martínez Pacheco                                               *
 ********************************************************[09-2004]**************/
 function lemacsic(lengua) {
   lema= 'Es tiempo de investigación, es tiempo de vida, ....es tiempo CSIC ';
	 if (lengua == "ca") lema= 'Es temps d\'investigació, es temps de vida, ...es temps CSIC ';
	 if (lengua == "en") lema= 'It\'s time for research, time for life... it\'s time for the CSIC ';
   return lema;
}



/*******************************************************************************
 * Muestra en español, catalán, (gallego, vasco) e inglés el mensaje de alerta *
 * de las direcciones de correo en texto insertas en las paginas web para      *
 * evitar el spam.                                                             *
 * -- Adecuacion del texto para el CSIC (09-2004) --                           *
 * Autor.: Juan Martínez Pacheco                                               *
 ********************************************************[09-2001]**************/
function alertantiespam(lengua) {
	
	var alertesp = "";
  alertesp  = 'Para evitar el recibo de correo no deseado (SPAM) no se indican ';
  alertesp += 'explícitamente en modo texto direcciones de correo electrónico ';
  alertesp += 'en las páginas Web del CSIC.  Si desea contactar, transcriba la ';
  alertesp += 'dirección de correo que se indica en la imagen sobre la que ha ';
  alertesp += 'pulsado para mostrar este mensaje. GRACIAS. ';

	var alertcat = "";
  alertcat  = 'Per a evitar el rebut de correu no desitjat (SPAM) no s\'indiquen ';
  alertcat += 'explícitament en manera text adreces de correu electrònic en les ';
  alertcat += 'pàgines Web del CSIC. Si desitja contactar, transcrigui l\'adreça ';
  alertcat += 'de correu que s\'indica en la imatge sobre la qual ha premut per ';
  alertcat += 'a mostrar aquest missatge. GRÀCIES. ';

	var alerteng = "";
  alerteng  = 'In order to avoid the receipt of wished mail (SPAM) they explicitly ';
  alerteng += 'do not indicate in way text directions of electronic mail in the ';
  alerteng += 'CSIC webpages. If it wishes to contact, transcribes the mail ';
  alerteng += 'direction that is indicated in the image on which it has pressed ';
  alerteng += 'to show this message.  THANKS. ';
  
  var msgsal = alertesp;
  if (lengua == "ca") msgsal = alertcat;
  if (lengua == "en") msgsal = alerteng;
  
  alert(msgsal);
}  



/*******************************************************************************
 * Devuelve en español la fecha del dia en formato:                            *
 *                           "Miercoles, 99 Septiembre 2000"                   *
 * Autor.: Juan Martínez Pacheco                                               *
 ********************************************************[03-08-2000]***********/
function fechaEsp() {

    var actual=new Date()
    var diasem;
    switch(actual.getDay()){
        case 0:diasem="Domingo";break;
        case 1:diasem="Lunes";break;
        case 2:diasem="Martes";break;
        case 3:diasem="Miércoles";break;
        case 4:diasem="Jueves";break;
        case 5:diasem="Viernes";break;
        case 6:diasem="Sábado";break;
    }
    
    var numdia = actual.getDate();
    var nombmes;
    switch(actual.getMonth()){
        case 0:nombmes="Enero";break;
        case 1:nombmes="Febrero";break;
        case 2:nombmes="Marzo";break;
        case 3:nombmes="Abril";break;
        case 4:nombmes="Mayo";break;
        case 5:nombmes="Junio";break;
        case 6:nombmes="Julio";break;
        case 7:nombmes="Agosto";break;
        case 8:nombmes="Septiembre";break;
        case 9:nombmes="Octubre";break;
        case 10:nombmes="Noviembre";break;
        case 11:nombmes="Diciembre";break;
    }
    
    var ano4 = actual.getFullYear();
    var salida = diasem + ", " + numdia + " " + nombmes + " " + ano4;
    return salida;
}


/*******************************************************************************
 * Devuelve en español, catalan gallego vasco o en inglés, la fecha del dia en *
 * formato: "diasemana, 99 Mes Año" - ("Miercoles, 99 Septiembre 2000" ).      *
 * La lengua se de como argumento de entrada (dlengua), y por defecto se usa   *
 * el ingles.                                                                  *
 *                                                                             *
 * Autor.: Juan Martínez Pacheco                                               *
 ********************************************************[03-08-1998]**********/
function fechaLengua(dlengua) {

  var dactual = new Date();
  var dnumdia = dactual.getDate();
  var ddiasem;
  var dnombmes;
  
  // --Ingles por defecto.
  if (!(dlengua == "es" || dlengua == "ca" || dlengua == "gl"  || dlengua == "eu" || dlengua == "en" )) dlengua = "en";
  
  // ----- ESPAÑOL ---------------------------------
  if (dlengua == "es") {
    switch(dactual.getDay()){
        case 0:ddiasem="Domingo";break;
        case 1:ddiasem="Lunes";break;
        case 2:ddiasem="Martes";break;
        case 3:ddiasem="Miércoles";break;
        case 4:ddiasem="Jueves";break;
        case 5:ddiasem="Viernes";break;
        case 6:ddiasem="Sábado";break;
    }

    switch(dactual.getMonth()){
        case 0:dnombmes="Enero";break;
        case 1:dnombmes="Febrero";break;
        case 2:dnombmes="Marzo";break;
        case 3:dnombmes="Abril";break;
        case 4:dnombmes="Mayo";break;
        case 5:dnombmes="Junio";break;
        case 6:dnombmes="Julio";break;
        case 7:dnombmes="Agosto";break;
        case 8:dnombmes="Septiembre";break;
        case 9:dnombmes="Octubre";break;
        case 10:dnombmes="Noviembre";break;
        case 11:dnombmes="Diciembre";break;
    }
  }

  // ----- CATALAN ---------------------------------
  if (dlengua == "ca") {
    switch(dactual.getDay()){
        case 0:ddiasem="Diumenge";break;
        case 1:ddiasem="Dilluns";break;
        case 2:ddiasem="Dimarts";break;
        case 3:ddiasem="Dimecres";break;
        case 4:ddiasem="Dijous";break;
        case 5:ddiasem="Divendres";break;
        case 6:ddiasem="Dissabte";break;
    }

    switch(dactual.getMonth()){
        case 0:dnombmes="Gener";break;
        case 1:dnombmes="Febrer";break;
        case 2:dnombmes="Març";break;
        case 3:dnombmes="Abril";break;
        case 4:dnombmes="Maig";break;
        case 5:dnombmes="Juny";break;
        case 6:dnombmes="Juliol";break;
        case 7:dnombmes="Agost";break;
        case 8:dnombmes="Setembre";break;
        case 9:dnombmes="Octubre";break;
        case 10:dnombmes="Novembre";break;
        case 11:dnombmes="Desembre";break;
    }
  }

  // ----- GALLEGO ---------------------------------
  if (dlengua == "gl") {
    switch(dactual.getDay()){
        case 0:ddiasem="Domingo";break;
        case 1:ddiasem="Luns";break;
        case 2:ddiasem="Martes";break;
        case 3:ddiasem="Mércoles";break;
        case 4:ddiasem="Xoves";break;
        case 5:ddiasem="Vendres";break;
        case 6:ddiasem="Sábado";break;
    }

    switch(dactual.getMonth()){
        case 0:dnombmes="Xaneiro";break;
        case 1:dnombmes="Febreiro";break;
        case 2:dnombmes="Marzal";break;
        case 3:dnombmes="Abril";break;
        case 4:dnombmes="Maio";break;
        case 5:dnombmes="San Xoan";break;
        case 6:dnombmes="Xullo";break;
        case 7:dnombmes="Agosto";break;
        case 8:dnombmes="Setembro";break;
        case 9:dnombmes="Octubro";break;
        case 10:dnombmes="Santos";break;
        case 11:dnombmes="Nadal";break;
    }
  }

  // ----- VASCUENCE  ---------------------------------
  if (dlengua == "eu") {
    switch(dactual.getDay()){
        case 0:ddiasem="Igandea";break;
        case 1:ddiasem="Astelehena";break;
        case 2:ddiasem="Asteartea";break;
        case 3:ddiasem="Asteazkena";break;
        case 4:ddiasem="Osteguna";break;
        case 5:ddiasem="Ostirala";break;
        case 6:ddiasem="Larunbata";break;
    }

    switch(dactual.getMonth()){
        case 0:dnombmes="Urtarrila";break;
        case 1:dnombmes="Otsaila";break;
        case 2:dnombmes="Martxoa";break;
        case 3:dnombmes="Apirila";break;
        case 4:dnombmes="Maiatza";break;
        case 5:dnombmes="Ekaina";break;
        case 6:dnombmes="Uztaila";break;
        case 7:dnombmes="Ubuztua";break;
        case 8:dnombmes="Iraila";break;
        case 9:dnombmes="Urria";break;
        case 10:dnombmes="Azaroa";break;
        case 11:dnombmes="Abendua";break;
    }
  }

  // ----- INGLES ---------------------------------
  if (dlengua == "en") {
    switch(dactual.getDay()){
        case 0:ddiasem="Sunday";break;
        case 1:ddiasem="Monday";break;
        case 2:ddiasem="Tuesday";break;
        case 3:ddiasem="Wednesday";break;
        case 4:ddiasem="Thursday";break;
        case 5:ddiasem="Friday";break;
        case 6:ddiasem="Saturday";break;
    }

    switch(dactual.getMonth()){
        case 0:dnombmes="January";break;
        case 1:dnombmes="Febraury";break;
        case 2:dnombmes="March";break;
        case 3:dnombmes="April";break;
        case 4:dnombmes="May";break;
        case 5:dnombmes="June";break;
        case 6:dnombmes="July";break;
        case 7:dnombmes="August";break;
        case 8:dnombmes="September";break;
        case 9:dnombmes="October";break;
        case 10:dnombmes="November";break;
        case 11:dnombmes="December";break;
    }
  }
	
  var dano4 = dactual.getFullYear();
  var dsalida = ddiasem + ", " + dnumdia + " " + dnombmes + " " + dano4;
  return dsalida;
}


/******************************************************************************
 * DESLIZAMIENTO DE TEXTO DE DERECHA A IZQUIERDA                              *
 * PAGINA INDEX                                                               *
 * Autor.: Juan Martínez Pacheco                                              *
 ********************************************************[16-08-2004]**********/
saltos_index=5; 
posver_index=95; 
posizq_index=400;

function deslizaTextoIndex() { 
   if (posizq_index>20) { 
       posizq_index-=saltos_index; 
       document.getElementById("textodeslizado").style.left=posizq_index+"px"; 
       document.getElementById("textodeslizado").style.top=posver_index+"px"; 
       setTimeout("deslizaTextoIndex()",10); 
   } 
} 


isaltos_index=7; 
iposver_index=65; 
iposizq_index=400;

function deslizaTextoIndexP() { 
   if (iposizq_index>20) { 
       iposizq_index-=isaltos_index; 
       document.getElementById("textodeslizado").style.left=iposizq_index+"px"; 
       document.getElementById("textodeslizado").style.top=iposver_index+"px"; 
       setTimeout("deslizaTextoIndexP()",10); 
   } 
} 



/******************************************************************************
 * DESLIZAMIENTO DE TEXTO DE DERECHA A IZQUIERDA                              *
 * PAGINAS DE CONTENIDO (ENCABEZADO SIMPLE)                                   *
 * Autor.: Juan Martínez Pacheco                                              *
 ********************************************************[16-08-2004]**********/
saltos_pagnormal=5; 
posver_pagnormal=65; 
posizq_pagnormal=400;

function deslizaTextoPagNormal() { 
  if (posizq_pagnormal>20) { 
      posizq_pagnormal-=saltos_pagnormal; 
      document.getElementById("textodeslizado").style.left=posizq_pagnormal+"px"; 
      document.getElementById("textodeslizado").style.top=posver_pagnormal+"px"; 
      setTimeout("deslizaTextoPagNormal()",10); 
  } 
} 



/******************************************************************************
 * Persiana de Aviso                                                          *
 * Autor.: Juan Martínez Pacheco                                              *
 ********************************************************[16-08-2002]**********/
var scrollancho=120  //ancho del scroll
var scrollalto=100   //alto del scroll
	
var velocidad=2      //velocidad
var scrollmsg=''     //Texto de salida.
	
//scrollmsg='<a href="01022002.htm#results"><FONT SIZE=-1 color="green">Estando MARIA Castaña montada en Bicicleta '
scrollmsg=  '<P><FONT CLASS="scroll"> '
scrollmsg+= 'Emisión en directo de la entrega de <B>PREMIOS '
scrollmsg+= ' CSIC 2005 A LA DIVULGACIÓN CIENTÍFICA. </B> <BR>&nbsp; <BR>'
scrollmsg+= 'Asisten científicos, artistas y deportistas de reconocido prestigió,  '
scrollmsg+= 'que han colaboraron en la difusión popular de la actividad científica  desarrollada por el '
scrollmsg+= '</FONT><FONT COLOR="red"><B>CSIC</B></FONT><FONT CLASS="scroll"> y al conocimiento de los resultados '
scrollmsg+= 'obtenidos en este año. <BR>  &nbsp;  <BR> &nbsp;  </FONT> </P>'
	
function persianaTxt() {
  if (document.all) return
  if (document.getElementById) {
      document.getElementById("slider").style.visibility="show"
      ns6marquee(document.getElementById('slider'))
  } else if(document.layers) {
     document.slider1.visibility="show"
     ns4marquee(document.slider1.document.slider2)
  }
}
	
function ns4marquee(whichlayer) {
  ns4layer=eval(whichlayer)
  ns4layer.document.write(scrollmsg)
	ns4layer.document.close()
	sizeup=ns4layer.document.height
	ns4layer.top-=sizeup
	ns4slide()
}
	
function ns4slide() {
	if (ns4layer.top>=sizeup*(-1)) {
	   ns4layer.top-=velocidad
	   setTimeout("ns4slide()",100)
	} else {
	   ns4layer.top=scrollalto
	   ns4slide()
	}
}
	
function ns6marquee(whichdiv) {
	ns6div=eval(whichdiv)
	ns6div.innerHTML=scrollmsg
	ns6div.style.top=scrollalto
	sizeup=scrollalto
	ns6slide()
}
	
function ns6slide() {
	if (parseInt(ns6div.style.top)>=sizeup*(-1)) {
	   ns6div.style.top=parseInt(ns6div.style.top)-velocidad
	   setTimeout("ns6slide()",100)
	} else {
	   ns6div.style.top=scrollalto
	   ns6slide()
	}
}
	
function abrir_conmodal(pagina) {
  //var fichero = "help/" + pagina ;
  var fichero = pagina ;
  //window.open("help/ventana-hija.html",
  window.open(fichero,
              "dlog",
              "height=300,width=120,resizable=no,scrollbars=yes,status=no,toolbar=no,location=no,dependent=yes,modal=yes");
}
	
/******************************************************************************
 * DESLIZAMIENTO VERTICAL DEL CONTENIDO DE UNA VENTANA.                       * 
 * Autor.: Juan Martínez Pacheco                                              *
 ********************************************************[10-03-2004]**********/
function mueveCentralCSIC(dir, spd, loop) {
		loop = true;
		direction = "up";
		speed = 10;
		scrolltimer = null;
		
		if (document.layers) {
				var page = eval(document.capaCentral);
		}  else {
			 if (document.getElementById) {
					var page= eval("document.getElementById('capaCentral').style");
			 } else {
				 if (document.all) {
						var page = eval(document.all.capaCentral.style);
					}
			 }
		}

		var altura = (parseInt(page.height) * -1); 
		//document.writeln('-----ALTURA = [' + altura  + '] *********');
		
		direction = dir;
		speed = parseInt(spd);
		var y_pos = parseInt(page.top);
		if (loop == true) {
				//if (direction == "dn" && y_pos > -300) {
				if (direction == "dn" && y_pos > altura) {
						page.top = (y_pos - (speed));
				} else {
					 if (direction == "up" && y_pos < 10) {
							page.top = (y_pos + (speed));
					 } else {
							 if (direction == "top") {
									page.top = 10;
							 }
					 }
				}
		
				scrolltimer = setTimeout("mueveCentralCSIC(direction,speed)", 1);
		}
}

function paraCentralCSIC() {
  loop = false;
  clearTimeout(scrolltimer);
}
/*  *************************************************************************/

function AlertaMensaje(msg) { 
  alert(msg);
}
//  Fin -->