/**************************************************************************
 * Juan Martínez Pacheco  [juanmp # orgc.csic.es - webmaster # csic.es ]  *
 * CSIC Consejo Superior de Investigaciones Científicas                   *
 * Administracion Web Institucional del CSIC: http://www.csic.es          *
 * C/ Serrano, 117 (28008) - MADRID - ESPAÑA                              *
 * Tel.: 34 91 585 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".                         *
 **************************************************************************/
banner=new Array("../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_01.jpg",
                 "../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_02.jpg",
                 "../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_03.jpg",
                 "../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_04.jpg",
                 "../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_05.jpg",
                 "../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_06.jpg",
                 "../images/wi/piezas/cabeceras/collages/cajal/collage_cajal_07.jpg",
                 "../images/wi/piezas/cabeceras/collages/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 
} 


/*******************************************************************************
 * 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.                                                             *
 *******************************************************************************/
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);
}  



/*************************************************************
 * Fecha del dia en formato "Miercoles, 99 Septiembre 2001"  *
 * / 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;
}


/******************************************************************************
 * FECHA DEL DIA EN ESPAÑOL Y EN INGLES                                       *
 * Fecha del día en el formato: [  Miercoles, 99 Septiembre 2001 ]            *
 **************************************************[juanmp 11-1998]************/
function fechaLengua(dlengua) {

  var dactual = new Date();
  var dnumdia = dactual.getDate();
  var ddiasem;
  var dnombmes;
  
  //Español por defecto.
  if (!(dlengua == "es" || dlengua == "en")) dlengua = "es";
  
  
  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;
    }
  }
   
  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;
    }
  }
  
  var dano4 = dactual.getFullYear();
  var dsalida = ddiasem + ", " + dnumdia + " " + dnombmes + " " + dano4;
  return dsalida;
}


/******************************************************************************
 * DESLIZAMIENTO DE TEXTO DE DERECHA A IZQUIERDA                              *
 * PAGINA INDEX                                                               *
 ******************************************************************************/
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); 
   } 
} 


/******************************************************************************
 * DESLIZAMIENTO DE TEXTO DE DERECHA A IZQUIERDA                              *
 * PAGINAS DE CONTENIDO (ENCABEZADO SIMPLE)                                   *
 ******************************************************************************/
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                          *
 * / 19-08-2003 /                             *
 **********************************************/
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");
}
	
	
/*  *************************************************************************
    * Movimiento vertical del contenido de la ventana central               *
    * Version 0.00  (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);
}
/* ================= [ Juan Martínez Pacheco ] ============================= */


	//  Fin -->