<!--
var PPrincipal = false;
var nmeses = new Array(13);
nmeses[1] = "Enero";
nmeses[2] = "Febrero";
nmeses[3] = "Marzo";
nmeses[4] = "Abril";
nmeses[5] = "Mayo";
nmeses[6] = "Junio";
nmeses[7] = "Julio";
nmeses[8] = "Agosto";
nmeses[9] = "Septiembre";
nmeses[10] = "Octubre";
nmeses[11] = "Noviembre";
nmeses[12] = "Diciembre";
var ndiasem = new Array(8);
ndiasem[1] = "Lunes";
ndiasem[2] = "Martes";
ndiasem[3] = "Miercoles";
ndiasem[4] = "Jueves";
ndiasem[5] = "Viernes";
ndiasem[6] = "Sabado";
ndiasem[7] = "Domingo";
var IdEspera = false;
var veces = 0;
var menuspie = "";
var menushead = "";

var wref = parent;
Marcador = new Image();
Marcador.src = "/info/Psi/images/bolamorada.gif";
Blanco = new Image();
Blanco.src = "/info/Psi/images/bolamorada_off.gif";
function On(img) {
  window.document.images[img].src = Marcador.src;
}

function MM_swapImage() {
}

function MM_swapImgRestore() {
}

function Off(img) {
  window.document.images[img].src = Blanco.src;
}
// Inicializacion
function inicializar() {
//  var hay_padre = false;
//  for (prop in wref) {
//    if(prop == "soporta") {
//      hay_padre=true;
//      break;
//    }
//  }
//  if (!hay_padre) {
//     alert('no hay padre');
//     return;
//  }

  if (!wref.inicializar) {
    setTimeout("inicializar()",10);
	return;
  }
  if (wref.soporta.DHTML) {
    if (wref.soporta.NS4)
      document.captureEvents(Event.MOUSEUP | Event.MOUSEMOVE);
    if(!wref.soporta.NS6)
      document.onmouseup = wref.ocultarMenuActivo;
    document.onmousemove = wref.moverMenuActivo;
//    wref.inicializar();
  }
}

window.onload = inicializar;
//Subrutina para mandar escribir los botones inferiores 
//
function EscribirMenus(s) {
   document.write('<DIV ID=menu0 CLASS=menu>'); 
   document.write('</DIV>');
     return;
     EscribirMenusBanner(s);
}

// Funcion para mandar escribir los menus cuando esten listos. Hay que repetir URL de los iconos para Netscape e Internet Explorer
function EscribirMenusBanner(ult) {
     if(!ult) 
         ult = Ultima();
     var PieHTM = soporta.NS4 ? '<table cellpadding=0 cellspacing=0 border=0 width=100%><tr><td class=LineaPie><img src=http://www.ucm.es/bucm/nimages/p_trans.gif height=1 width=1></td><td colspan=2></td></tr><tr><td rowspan=3 class=PieIzq width=79><a href=http://www.ucm.es><img alt="Página principal de la Universidad Complutense de Madrid" border=0 src=http://www.ucm.es/bucm/nimages/rectoradoteja.gif></a><br>&#169;&nbsp;UCM&nbsp;2003</td><td class=PieCen width=29  valign=top><img src=http://www.ucm.es/bucm/nimages/lverticalgris1.gif></td><td class=PieDer><table border=0 cellpadding=0 cellspacing=0 width=100%><tr><td class=PieMenu></td><td align=right class=FechaActualizado>' + ult + '</td></tr></table></td></tr><tr><td></td><td class=LineaPie><img src=http://www.ucm.es/bucm/nimages/p_trans.gif width=1 height=1></td></tr><tr><td></td><td class=PieNada><table cellpadding=0 cellspacing=0 border=0 width=100%><tr><td class=PieNada><img src=http://www.ucm.es/bucm/nimages/p_trans.gif width=1 height=20></td><td class=PieNada1 align=center>' + menuspie + '</td><td><!-- <a target="blank" href="http://www.w3.org/WAI/WCAG1AA-Conformance" title="Explicación del Nivel Doble-A de Conformidad"><img height="32" width="88" src="http://www.w3.org/WAI/wcag1AA" alt="Icono de conformidad con el Nivel Doble-A, de las Directrices de Accesibilidad para el Contenido Web 1.0 del W3C-WAI" border=0></a> --></td><td class=PieNada1 align=right><img border=0 alt="Mapa de esta WEB" src=http://www.ucm.es/bucm/nimages/ico_map.gif>&nbsp;<a href="http://www.ucm.es/BUCM/index.html"><img border=0 alt="Página principal de la Biblioteca" src=http://www.ucm.es/bucm/nimages/ico_hom.gif></a>&nbsp;<a href="mailto:bucweb@buc.ucm.es"><img border=0 alt="Enviar mail" src=http://www.ucm.es/bucm/nimages/ico_mail.gif></a>&nbsp;<a href="http://www.ucm.es/BUCM/busquedas.htm"><img border=0 alt="Búsquedas avanzadas" src=http://www.ucm.es/bucm/nimages/ico_busc.gif></a>&nbsp;<img border=0 alt="Imprimir" src=http://www.ucm.es/bucm/nimages/ico_print.gif></td></tr></table></td></tr></table>' + "\n" : '<table cellpadding=0 cellspacing=0 border=0 width=100%><tr><td rowspan=2 class=PieIzq width=79><a href=http://www.ucm.es><img alt="Página principal de la Universidad Complutense de Madrid" border=0 src=http://www.ucm.es/bucm/nimages/rectoradoteja.gif></a><br>&#169;&nbsp;UCM&nbsp;2003</td><td class=PieCen width=29  valign=top><img src=http://www.ucm.es/bucm/nimages/lverticalgris1.gif></td><td class=PieDer><table border=0 cellpadding=0 cellspacing=0 width=100%><tr><td class=PieMenu></td><td align=right class=FechaActualizado>' + ult + '</td></tr></table></td></tr><tr><td></td><td class=PieNada><table cellpadding=0 cellspacing=0 border=0 width=100%><tr><td class=PieNada><img src=http://www.ucm.es/bucm/nimages/p_trans.gif width=1 height=20></td><td class=PieNada1 align=center>' + menuspie + '</td><td><!-- <a target="blank" href="http://www.w3.org/WAI/WCAG1AA-Conformance" title="Explicación del Nivel Doble-A de Conformidad"><img height="32" width="88" src="http://www.w3.org/WAI/wcag1AA" alt="Icono de conformidad con el Nivel Doble-A, de las Directrices de Accesibilidad para el Contenido Web 1.0 del W3C-WAI" border=0></a> --></td><td class=PieNada1 align=right valign=top><img border=0 alt="Mapa de esta WEB" src=http://www.ucm.es/bucm/nimages/ico_map.gif>&nbsp;<a href="http://www.ucm.es/BUCM/index.html"><img border=0 alt="Página principal de la Biblioteca" src=http://www.ucm.es/bucm/nimages/ico_hom.gif></a>&nbsp;<a href="mailto:bucweb@buc.ucm.es"><img border=0 alt="Enviar mail" src=http://www.ucm.es/bucm/nimages/ico_mail.gif></a>&nbsp;<a href="http://www.ucm.es/BUCM/busquedas.htm"><img border=0 alt="Búsquedas avanzadas" src=http://www.ucm.es/bucm/nimages/ico_busc.gif></a>&nbsp;<img border=0 alt="Imprimir" src=http://www.ucm.es/bucm/nimages/ico_print.gif></td></tr></table></td></tr></table>' + "\n";
     window.document.write(PieHTM);
     MenusCabecera();
}

function EscribirMenusBannerOld() {
  if (parent.MenusCabecera) {
    alert("Dntro del nnn  aaaa");
     parent.MenusCabecera();
     return;
  } else {
     veces++;
     if (veces > 5) {
          return;
     }
     IdEspera = setTimeout("EscribirMenusBanner()", 1000);
  }
}

function EscribirCabecera(titulo) {
     var iconosi = (location.hostname == 'cisne.sim.ucm.es') ? 'http://www.ucm.es/bucm/images/cisne.gif' : 'http://www.ucm.es/bucm/temas/ucm5/images/logo3.gif';
     var cabecera = '<table border="0" cellspacing="0" cellpadding="0" width=100%>  <tr>     <td class=CabeceraPrincipal1><a href="http://www.ucm.es/BUCM/" target="_top"><img border="0" src="' + iconosi + '" alt="Página principal Biblioteca Complutense"><a/></td>    <td valign=center align=right>	<table border="0" cellspacing="0" cellpadding="0">	<tr>	<td colspan=3 align=right><img src=http://www.ucm.es/bucm/nimages/cuadrados1.gif></td>	</tr>        <tr>           <td align=right><img src=http://www.ucm.es/bucm/nimages/flecha_cab.gif></td>           <td class=CabeceraOtras align=left nowrap>' + titulo + '</td>           <td><img src=http://www.ucm.es/bucm/nimages/cuadrados2.gif></td>        </tr>	</table>	</td></table>' + "\n";
     var cabecera = '<div style="border-bottom:1px solid #800;"><table border="0" cellspacing="0" cellpadding="0" width=100%>  <tr>     <td class=CabeceraPrincipal1 rowspan=2><a href="http://www.ucm.es/BUCM/" target="_top"><img border="0" src="' + iconosi + '" alt="Página principal Biblioteca Complutense"><a/></td> <td valign=center><table border="0" cellspacing="0" cellpadding="0" width=100%><tr><td>' + bannermensual + '</td><td align=right><img src=http://www.ucm.es/bucm/nimages/cuadrados1.gif></td></tr></table></td></tr><tr><td valign=center align=right><table border="0" cellspacing="0" cellpadding="0">	<tr>           <td align=right><img src=http://www.ucm.es/bucm/nimages/flecha_cab.gif></td>           <td class=CabeceraOtras align=left nowrap>' + titulo + '</td>           <td><img src=http://www.ucm.es/bucm/nimages/cuadrados2.gif></td>        </tr>	</table>	</td></table></div>' + "\n";
     var fechaactual="&nbsp;";
     if(PPrincipal) {
        var fechaactual = Hoy();
     } else {
        document.write(cabecera);
     }
}

function Hoy() {
var dateObj = new Date();
var syear = dateObj.getYear();
var smes = nmeses[dateObj.getMonth() + 1];
var fecha = dateObj.getDate();
var diasem = ndiasem[dateObj.getDay()];
var tem = "";
if (syear < 1900) 
	syear = 1900+ syear;
//tem = diasem + ", ";
tem = tem + fecha + "&nbsp;de&nbsp;" + smes + "&nbsp;de&nbsp;" + syear;
return tem;
}

function Ultima() {
   if(Date.parse(document.lastModified) != 0) {
       var dateObj = new Date(Date.parse(document.lastModified));
       var syear = dateObj.getYear();
       var smes = nmeses[dateObj.getMonth() + 1];
       var fecha = dateObj.getDate();
       var diasem = ndiasem[dateObj.getDay()];
       var tem = "Última modificación: ";
       if (syear < 10) {
          syear = "200" + eval(syear);
       }
       else if (syear < 80) {
	  syear = "20" + syear;
       }
       else if (syear <= 99) {
	  syear = "19" + syear;
       }
       else if (syear <= 1000) {
	  syear = eval(syear) + eval(1900);
       }
       tem = tem + diasem + ", ";
       tem = tem + fecha + " de " + smes + " de " + syear;
//       document.write(tem);
       return tem;
   }
}
function vacio(s) {
    if (s == null || s == "" || esblanco(s))
       return true;
    return false;
}

function esblanco (s) {
   for (var i=0 ;i < s.length;  i++) {
       var c = s.charAt(i);
       if ((c != ' ') && (c != '\n') && (c != '\t')) return false;
   }
   return true;
}


function Validarpiui () {
//    var f = document.pi;
    var f = document.forms[document.forms.length - 1];
    var obli = "";
    var tipo = true;
//    alert(f.email_to.value);
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "o_Nombre y Apellidos" && vacio(e.value)) {
             obli += "Nombre y Apellidos\n";
        }
        if (e.name == "s_Facultad" && e.selectedIndex == 0) {
                obli += "Biblioteca de su centro\n";
        }
        if (e.name == "email_to" && e.value == 'bucpi@buc.ucm.es' && vacio(f.Otrafacultad.value)) {
                obli += "Otro centro\n";
        }
        if (e.name == "o_email-from" && vacio(e.value)) {
             obli += "Correo electrónico\n";
        }
        if (e.name == "o_Direccion Postal" && vacio(e.value)) {
             obli += "Dirección Postal\n";
        }
        if (e.name == "ro_Tipo de usuario" && e.checked) {
             tipo=false;
        }
        if (e.name == "o_Titulo" && vacio(e.value)) {
             obli += "Título\n";
        }
        if (e.name == "o_Autores" && vacio(e.value)) {
             obli += "Autores\n";
        }
    }
    if (tipo) 
       obli += "Tipo de usuario\n";
    if(!vacio(obli)) {
      alert("Para poder tramitar su solicitud es necesario cumplimentar los siguientes campos:\n\n" + obli);
      return false;
    }
    return true;
}

function PonMail() {
    var f = document.forms[document.forms.length - 1];
//    var f = document.pi;
    mail = new Array("","beu3","byd2","enf2","est2","emp2","opt2","erl2","trs2","bba2","bio2","cee2","fis2","geo2","mat2","cps2","qui2","inf2","der2","edu2","far2","fll2","fsl2","ghi2","eis2","med2","odo2","psi2","vet2","irc2","icr2","foa2","");
    f.email_to.value = "bucpi" + mail[f.s_Facultad.selectedIndex] + "@buc.ucm.es";
    if (f.email_to.value == 'bucpi@buc.ucm.es' && vacio(f.Otrafacultad.value)) {
       alert('Es obligatorio que indique el centro al que pertenece en el campo "Otro centro"');
    } else {
       f.Otrafacultad.value="";
    }
    return;
}


// -->
