var zXml={useActiveX:(typeof ActiveXObject!="undefined"),useDom:document.implementation&&document.implementation.createDocument,useXmlHttp:(typeof XMLHttpRequest!="undefined")};zXml.ARR_XMLHTTP_VERS=["MSXML2.XmlHttp.6.0","MSXML2.XmlHttp.3.0"];zXml.ARR_DOM_VERS=["MSXML2.DOMDocument.6.0","MSXML2.DOMDocument.3.0"];function zXmlHttp(){}zXmlHttp.createRequest=function(){if(zXml.useXmlHttp){return new XMLHttpRequest();}else if(zXml.useActiveX){if(!zXml.XMLHTTP_VER){for(var i=0;i<zXml.ARR_XMLHTTP_VERS.length;i++){try{new ActiveXObject(zXml.ARR_XMLHTTP_VERS[i]);zXml.XMLHTTP_VER=zXml.ARR_XMLHTTP_VERS[i];break;}catch(oError){;}}}if(zXml.XMLHTTP_VER){return new ActiveXObject(zXml.XMLHTTP_VER);}else{throw new Error("Could not create XML HTTP Request.");}}else{throw new Error("Your browser doesn't support an XML HTTP Request.");}};zXmlHttp.isSupported=function(){return zXml.useXmlHttp||zXml.useActiveX;};function zXmlDom(){}zXmlDom.createDocument=function(){if(zXml.useDom){var oXmlDom=document.implementation.createDocument("","",null);oXmlDom.parseError={valueOf:function(){return this.errorCode;},toString:function(){return this.errorCode.toString()}};oXmlDom.__initError__();oXmlDom.addEventListener("load",function(){this.__checkForErrors__();this.__changeReadyState__(4);},false);return oXmlDom;;}else if(zXml.useActiveX){if(!zXml.DOM_VER){for(var i=0;i<zXml.ARR_DOM_VERS.length;i++){try{new ActiveXObject(zXml.ARR_DOM_VERS[i]);zXml.DOM_VER=zXml.ARR_DOM_VERS[i];break;}catch(oError){;}}}if(zXml.DOM_VER){return new ActiveXObject(zXml.DOM_VER);}else{throw new Error("Could not create XML DOM document.");}}else{throw new Error("Your browser doesn't support an XML DOM document.");}};zXmlDom.isSupported=function(){return zXml.useDom||zXml.useActiveX;};var oMozDocument=null;if(typeof XMLDocument!="undefined"){oMozDocument=XMLDocument;}else if(typeof Document!="undefined"){oMozDocument=Document;}if(oMozDocument&&!window.opera){oMozDocument.prototype.readyState=0;oMozDocument.prototype.onreadystatechange=null;oMozDocument.prototype.__changeReadyState__=function(iReadyState){this.readyState=iReadyState;if(typeof this.onreadystatechange=="function"){this.onreadystatechange();}};oMozDocument.prototype.__initError__=function(){this.parseError.errorCode=0;this.parseError.filepos=-1;this.parseError.line=-1;this.parseError.linepos=-1;this.parseError.reason=null;this.parseError.srcText=null;this.parseError.url=null;};oMozDocument.prototype.__checkForErrors__=function(){if(this.documentElement.tagName=="parsererror"){var reError=/>([\s\S]*?)Location:([\s\S]*?)Line Number(\d+),Column(\d+):<sourcetext>([\s\S]*?)(?:\-*\^)/;reError.test(this.xml);this.parseError.errorCode=-999999;this.parseError.reason=RegExp.$1;this.parseError.url=RegExp.$2;this.parseError.line=parseInt(RegExp.$3);this.parseError.linepos=parseInt(RegExp.$4);this.parseError.srcText=RegExp.$5;}};oMozDocument.prototype.loadXML=function(sXml){this.__initError__();this.__changeReadyState__(1);var oParser=new DOMParser();var oXmlDom=oParser.parseFromString(sXml,"text/xml");while(this.firstChild){this.removeChild(this.firstChild);}for(var i=0;i<oXmlDom.childNodes.length;i++){var oNewNode=this.importNode(oXmlDom.childNodes[i],true);this.appendChild(oNewNode);}this.__checkForErrors__();this.__changeReadyState__(4);};oMozDocument.prototype.__load__=oMozDocument.prototype.load;oMozDocument.prototype.load=function(sURL){this.__initError__();this.__changeReadyState__(1);this.__load__(sURL);};Node.prototype.__defineGetter__("xml",function(){var oSerializer=new XMLSerializer();return oSerializer.serializeToString(this,"text/xml");});Node.prototype.__defineGetter__("text",function(){var sText="";for(var i=0;i<this.childNodes.length;i++){if(this.childNodes[i].hasChildNodes()){sText+=this.childNodes[i].text;}else{sText+=this.childNodes[i].nodeValue;}}return sText;});}function zXslt(){}zXslt.transformToText=function(oXml,oXslt){if(typeof XSLTProcessor!="undefined"){var oProcessor=new XSLTProcessor();oProcessor.importStylesheet(oXslt);var oResultDom=oProcessor.transformToDocument(oXml);var sResult=oResultDom.xml;if(sResult.indexOf("<transformiix:result")>-1){sResult=sResult.substring(sResult.indexOf(">")+1,sResult.lastIndexOf("<"));}return sResult;;}else if(zXml.useActiveX){return oXml.transformNode(oXslt);}else{throw new Error("No XSLT engine found.");}};function zXPath(){}zXPath.selectNodes=function(oRefNode,sXPath,oXmlNs){if(typeof XPathEvaluator!="undefined"){oXmlNs=oXmlNs||{};var nsResolver=function(sPrefix){return oXmlNs[sPrefix];};var oEvaluator=new XPathEvaluator();var oResult=oEvaluator.evaluate(sXPath,oRefNode,nsResolver,XPathResult.ORDERED_NODE_ITERATOR_TYPE,null);var aNodes=new Array;if(oResult!=null){var oElement=oResult.iterateNext();while(oElement){aNodes.push(oElement);oElement=oResult.iterateNext();}}return aNodes;}else if(zXml.useActiveX){if(oXmlNs){var sXmlNs="";for(var sProp in oXmlNs){sXmlNs+="xmlns:"+sProp+"=\'"+oXmlNs[sProp]+"\' ";}oRefNode.ownerDocument.setProperty("SelectionNamespaces",sXmlNs);};return oRefNode.selectNodes(sXPath);}else{throw new Error("No XPath engine found.");}};zXPath.selectSingleNode=function(oRefNode,sXPath,oXmlNs){if(typeof XPathEvaluator!="undefined"){;oXmlNs=oXmlNs||{};var nsResolver=function(sPrefix){return oXmlNs[sPrefix];};var oEvaluator=new XPathEvaluator();var oResult=oEvaluator.evaluate(sXPath,oRefNode,nsResolver,XPathResult.FIRST_ORDERED_NODE_TYPE,null);if(oResult!=null){return oResult.singleNodeValue;}else{return null;};}else if(zXml.useActiveX){if(oXmlNs){var sXmlNs="";for(var sProp in oXmlNs){sXmlNs+="xmlns:\'"+sProp+"="+oXmlNs[sProp]+"\' ";}oRefNode.ownerDocument.setProperty("SelectionNamespaces",sXmlNs);};return oRefNode.selectSingleNode(sXPath);}else{throw new Error("No XPath engine found.");}};function zXMLSerializer(){}zXMLSerializer.prototype.serializeToString=function(oNode){var sXml="";switch(oNode.nodeType){case 1:sXml="<"+oNode.tagName;for(var i=0;i<oNode.attributes.length;i++){sXml+=" "+oNode.attributes[i].name+"=\""+oNode.attributes[i].value+"\"";}sXml+=">";for(var i=0;i<oNode.childNodes.length;i++){sXml+=this.serializeToString(oNode.childNodes[i]);}sXml+="</"+oNode.tagName+">";break;case 3:sXml=oNode.nodeValue;break;case 4:sXml="<![CDATA["+oNode.nodeValue+"]]>";break;case 7:sXml="<?"+oNode.nodevalue+"?>";break;case 8:sXml="<!--"+oNode.nodevalue+"-->";break;case 9:for(var i=0;i<oNode.childNodes.length;i++){sXml+=this.serializeToString(oNode.childNodes[i]);}break;};return sXml;};


function VS(id) {
  var elemento = document.getElementById(id);
  var telemento = document.getElementById("r"+id);
  if (elemento.className == 'resumen') {
     elemento.className = 'resumenver';
     telemento.title="Ocultar resumen";
  } else {
     elemento.className = 'resumen';
     telemento.title="Ver resumen";
  }
}
function seleccionar () {
//    alert('Entro');
//    return;
    var f = document.numeros;
    var ref = f.rreferencia;
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "r") {
             e.checked = ref.checked;
//           e.checked = e.checked ? false : true;
        }
    }
}

function VerPagina (pagina) {
//    if(window.frames.length != 0) { 
    if(top.frames.length != 0) { 
        f = document.forms[1];
    } else {
        f = document.forms[2];
    }
    f.Accion.value='Pagina ' + pagina;
    f.submit();
}

function abrir_textocompleto(issn) {
//   var url = "http://alfama.sim.ucm.es/revistas/visualiza.asp?issn=" + issn;
   var url = "http://zv4fy5pr5l.search.serialssolutions.com/?V=1.0&N=100&L=ZV4FY5PR5L&S=I_M&C=" + issn;
   var txtcompleto = window.open(url,'textocompleto');
   txtcompleto.focus();
}


function abrir_textocompletoold(issn) {
   var url = "http://www.ucm.es/cgi-bin/textocompleto?" + issn;
//    var url = "http://www.ucm.es/bucm";
   comentario = window.open("","Comentario","resizable,scrollbars=no,status=no,menubar=no,width=300,height=300");
//   comentario = window.open("","Comentario");
   comentario.document.write("<html>\n");
   comentario.document.write("<head></head>\n");
   comentario.document.write("<body bfcolor=#ffffff>\n");
   comentario.document.write("Comprobando si la Biblioteca de la Universidad Complutense tiene suscripción a la versión electrónica de la revista con ISSN " + issn + "\n");
   comentario.document.write("</body></html>\n");
   comentario.document.close();
   comentario.location.replace(url);
}

function ejecuta_versumario () {
    var f = document.numeros;
    var msg = true;
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "r" && e.checked) 
           msg = false;
    }
    if (msg) {
       alert("Para ver sumarios, previamente debe de seleccionar los números de los cuales desea ver los sumarios");
       return;
    } else {
       f.submit();
    }
}

function RegistroCompleto (n) {
    if(top.frames.length != 0) { 
       f = document.forms[0];
       f1 = document.forms[1];
    } else {
       f = document.forms[1];
       f1 = document.forms[2];
    }
    if(n) {
      var msg = n;
    } else {
       var msg = "";
       for (var i = 0; i < f.length; i++) {
           var e = f.elements[i];
           if (e.name == "r" && e.checked) 
              msg += " " + e.value;
       }
       if (msg == '') {
          alert("Para ver registros completos, previamente debe de seleccionar los artículos");
          return;
       }
    }
    f1.ArticulosSel.value=msg;
    f1.Accion.value='Ver';
    f1.submit();
}
function pedir () {
    if(parent.frames.length != 0) { 
       f = document.forms[0];
       f1 = document.forms[1];
       sinfrm=""; 
    } else {
       f = document.forms[1];
       f1 = document.forms[2];
       sinfrm="&zfr=0";
    }
    var msg = "";
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "r" && e.checked) 
           msg += msg ? "," + e.value:e.value;
    }
    if (msg == '') {
       alert("Para pedir fotocopias de artículos, previamente debe de seleccionarlos");
       return;
    }
//    var url = "http://europa.sim.ucm.es/compludoc/AA?pedir=1&donde=" + f1.donde.value + f1.addsufijo.value + "&articulos=" + msg + "&time"  + (new Date()).getTime() + sinfrm;
//    cpedir = window.open(url,"CompludocPI","resizable,scrollbars=yes,status=no,menubar=no,width=640,height=500");
    var url = "http://www.ucm.es/BUCM/prog/authpi.php?bcd=" + f1.donde.value + f1.addsufijo.value + "&icd=" + msg + "&time"  + (new Date()).getTime() + sinfrm;
    cpedir = window.open(url,"CompludocPI","");
    cpedir.focus();
}

function bajasuscripciones() {
    var f = document.numeros;
    var msg = true;
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "r" && e.checked) 
           msg = false;
    }
    if (msg) {
       alert("Para cancelar alguna suscripción, previamente debe de seleccionarla");
       return;
    } else {
       f.Accion.value = 'Darse de baja';
       f.submit();
    }
}





function ValidarLogin() {
   if(vacio(document.forms[0].email.value) || vacio(document.forms[0].clave.value)) {
     alert('Es obligatorio especificar el correo electrónico y la palabra clave');
     return false;
   }
   return true; 
}

function olvideclave() {
    var url = "http://europa.sim.ucm.es/compludoc/suscripciones?formolvideclave=1&time"  + (new Date()).getTime();
    clogin = window.open(url,"LoginCompludoc","resizable,scrollbars=no,status=no,menubar=no,width=500,height=260");
    clogin.focus();
}

function ValidarOlvide() {
   if(vacio(document.forms[0].email.value) || vacio(document.forms[0].nombre.value) || vacio(document.forms[0].apellidos.value)) {
     alert('Es obligatorio que nos envie todos los datos que se le piden');
     return false;
   }
   return true; 
}

function ValidarLoginAlta() {
   if(vacio(document.forms[0].email.value) || vacio(document.forms[0].clave.value) || vacio(document.forms[0].nombre.value) || vacio(document.forms[0].apellidos.value)) {
     alert('Es obligatorio especificar el correo electrónico, palabra clave, nombre y apellidos');
     return false;
   }
   var em = document.forms[0].email.value;
   p=em.indexOf('@');
   if (p<1 || p==(em.length-1)) {
     alert('El campo correo electrónico, tiene que ser una dirección de correo electrónico');
     return false;
   }
   return true; 
}

function ValidarLoginPI() {
   if(!(document.forms[0].tipo[0].checked || document.forms[0].tipo[1].checked)) {
      alert('Es obligatorio especificar el tipo de usuario'); 
      return false;
   }
   if(vacio(document.forms[0].identificador.value)) {
     var msg = document.forms[0].tipo[0].checked ? 'Tiene que especificar su carnet de usuario de la BUC' : 'Tiene que especificar la dirección de correo electrónico de su institución';
     alert(msg);
     return false;
   }
   return true; 
}

function ValidarPIInterno() {
   var f = document.forms[0];
   var seleccionados=false;
   if(f.centro.selectedIndex == 0) {
     alert('Tiene que seleccionar la biblioteca de su centro');
     return false;
   }
   if(f.ArticuloSel.length) {
       for (i=0; i<f.ArticuloSel.length; i++) {
         if(f.ArticuloSel[i].checked) seleccionados=true;
       }
   } else {
       if(f.ArticuloSel.checked) seleccionados=true;
   }
   if(!seleccionados) {
     alert("Para poder realizar un préstamo interbibliotecario\n necesitamos conocer los artículos que desea");
     return false;

   }
   return true;
}

function ValidarPIExterno() {
   var cexternos = new Array('biblioteca','direccion','poblacion','postal','email');
   var eexternos = new Array('Biblioteca','Dirección','Población','Código postal','Correo electrónico');
   var f = document.forms[0];
   var msg = "";
   var seleccionados = false;
   for (i=0; i<cexternos.length; i++) {
      val=MM_findObj(cexternos[i]);
      if(vacio(val.value)) msg += eexternos[i] + "\n";
   }
   if(f.ArticuloSel.length) {
      for (i=0; i<f.ArticuloSel.length; i++) {
         if(f.ArticuloSel[i].checked) seleccionados=true;
      }
   } else {
       if(f.ArticuloSel.checked) seleccionados=true;
   }
   if(!seleccionados) {
      msg += "Artículos solicitados\n";
   }
   if(!vacio(msg)) {
     alert("Para poder realizar un préstamo interbibliotecario\n necesitamos conocer los siguientes datos\n\n" + msg);
     return false;
   }
   return true;
}

function CambioCentroPI(e) {
   if(e.selectedIndex == 0) 
     return;
   if(e.options[e.selectedIndex].value == '') {
     res = "";
     while(vacio(res)) {
        res = prompt('Especifique el nombre de ese otro centro','');
     }
     document.forms[0].otrocentro.value=res;
   }
}

function ValidarCamposSalvar(c) {
   var f = document.forms[0];
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "campos")
           e.checked = c.checked;
    }
}

function ValidarSalvarArticulos() {
   var f = document.forms[0];
   if(opener.frames.length != 0) { 
       ori = opener.cbuscado.document.forms[1];
       f1 = opener.cbuscado.document.forms[0];
   }else{
       ori = opener.document.forms[2];
       f1 = opener.document.forms[1];
   }
   var haycampos = "";
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "campos" && e.checked)
           haycampos += e.value + ",";
    }
    if (!vacio(haycampos)) {
       var queguardo = ValorCampoRadio(f.queguardo);
       if(queguardo == 'seleccion') {
         var msg = "";
         for (var i = 0; i < f1.length; i++) {
            var e = f1.elements[i];
            if (e.name == "r" && e.checked) 
               msg += " " + e.value;
         }
         if (vacio(msg)) {
            alert('No tiene registro alguno seleccionado');
            return false;
         } else {
            ori.ArticulosSel.value = msg;
         }
       }
       ori.campossalvar.value = haycampos;
       ori.formatosalvar.value = ValorCampoRadio(f.formato);
       ori.codificacionsalvar.value = ValorCampoRadio(f.codificacion);
       ori.Accion.value = 'Salvar ' + queguardo;
       ori.submit();
       window.close();
       return false;
    } else {
       alert('Especifique los campos de cada registro que desea salvar');
       return false;
    }
}

function ValidarSalvarArticulosDSI() {
   var f = document.forms[0];
   var haycampos = "";
    for (var i = 0; i < f.length; i++) {
        var e = f.elements[i];
        if (e.name == "campos" && e.checked)
           haycampos += e.value + ",";
    }
    if (!vacio(haycampos)) {
       return true;
    } else {
       alert('Especifique los campos de cada registro que desea salvar');
       return false;
    }
}


function ValorCampoRadio(zradio) {
    for (var h = 0; h < zradio.length; h++) {
        if (zradio[h].checked)
           return zradio[h].value;
    }
    return;

}

function SalvarEnviarPorMail() {
   var f = document.forms[0];
   if (vacio(f.email.value)) {
      alert('Para enviar por email es necesario especificar la dirección de correo electrónico');
      return;
   }
   if(opener.frames.length != 0) { 
       ori = opener.cbuscado.document.forms[1];
   }else{
       ori = opener.document.forms[2];
   }
//   var ori = opener.cbuscado.document.forms[1];
   ori.emailsalvar.value = f.email.value;
   ValidarSalvarArticulos();
}

function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document;
  if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);
  }
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function ModificadoFormulario(f) {
    var cambiado = false;
    for (var i=0; i < f.elements.length;i++) {
        var viendo = f.elements[i];
        if(viendo.type == 'radio') {
           var nombre = viendo.name;
           var zradio = MM_findObj(nombre);
           for (var h = 0; h < zradio.length; h++) {
             if (zradio[h].defaultChecked && !(zradio[h].checked)) cambiado=true;
           }
        }
        if(viendo.type == 'select-one') {
           for (var h = 0; h < viendo.options.length; h++) {
              if (viendo.options[h].defaultSelected && viendo.selectedIndex != h)  cambiado=true;
           }
        }
        if((viendo.type == 'text' || viendo.type == 'textarea' || viendo.type == 'password') && viendo.value != viendo.defaultValue) {
           cambiado=true;
        }
        if(viendo.type == 'file' && viendo.value != viendo.defaultValue) {
           cambiado=true;
        }
        if(viendo.type == 'checkbox' && ((viendo.checked && !(viendo.defaultChecked)) || (!viendo.checked && viendo.defaultChecked))) {
           cambiado=true;
        }
    }
    return cambiado
}

function ValidarCambios() {
   var f = document.forms[0];
   if (!ModificadoFormulario(f)) {
     alert('No ha realizado modificación alguna en sus datos');
     return false;
   }
   if(vacio(f.clave.value)) {
     alert('Para cambiar los datos de suscripción, es necesario especificar de nuevo su palabra clave');
     return false;
   }
   return true; 
}

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 EscribirCabeceraCompludoc (t,i) {
   if(parent.cbotones) {
      EscribirLinkAccesosC(t,i);
   } else {
      EscribirCabecera('Compludoc. Sumarios');
      EscribirLinkAccesos(t,i);
   }
}

function EscribirCabeceraCompludocBoletines (t,i) {
   if(parent.cbotones) {
      EscribirLinkAccesosC(t,i);
   } else {
      EscribirCabecera('Boletín de Sumarios de Revistas (' + t +')');
      EscribirLinkAccesosCM(t,i);
   }
}


function EscribirCabeceraCompludocS (t,i,n) {
   if(parent.cbotones) {
      EscribirLinkAccesosC(t,i,n);
   } else {
      EscribirCabecera('Compludoc. Sumarios');
      EscribirLinkAccesos(t,i,n);
   }
}

function EscribirPieCompludoc() {
   EscribirMenus();
}

function EscribirLinkAccesos (t,i,n) {
var tit = vacio(n) ? t : n;
document.write('<table cellpadding=0 cellspacing=0 marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 border=0 width="100%">');
if (vacio(n)) {
   document.write('<tr><td class=azultituloni width=22><FORM name=numeros method="POST" action="http://europa.sim.ucm.es/compludoc/GetSumario"><input type=hidden name=zfr value=0><input name=rreferencia type=checkbox onClick="seleccionar()"></td><td class=azultituloni><img src=http://www.ucm.es/bucm/compludoc/botones/versumariosinmarco.gif onclick="ejecuta_versumario()" alt="Ver sumarios de números seleccionados" title="Ver sumarios de números seleccionados"></td><td class="azultitulon">' + t + '</td></tr>');
} else {
   document.write('<tr><td class="azultitulos">' + n + '</td></tr>');
}
document.write('</table><table cellpadding=0 cellspacing=0 marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 border=0 width="100%">');
document.write('<tr><td class="negro"><img src="http://www.ucm.es/bucm/images/p_trans.gif"></td></tr>');
document.write('<tr><td class="acceso"><img src="http://www.ucm.es/bucm/images/p_trans.gif" width=1 height=4></td></tr>');
document.write('<tr><td class=acceso>');
document.write('<div id="idtextocompleto"><img src="http://www.ucm.es/bucm/compludoc/imagenes/tr.gif"><A class="acceso" target="_top" HREF="javascript:abrir_textocompleto(\'' + i + '\')">Texto completo de la revista <img border=0 src="http://www.ucm.es/bucm/images/reducmpeqt.gif"></a></div> ');

document.write('<img src="http://www.ucm.es/bucm/compludoc/imagenes/tr.gif"><A class="acceso" target="cisne" HREF="http://cisne.sim.ucm.es/search*spi/i?SEARCH=' + i + '">Fondos de esta revista en CISNE, Catálogo de la Biblioteca de la Universidad Complutense</a><br><img src="http://www.ucm.es/bucm/images/p_trans.gif" width=1 height=5><br>');
if (!vacio(n)) 
   document.write('<img src="http://www.ucm.es/bucm/compludoc/imagenes/tr.gif"><A class="acceso" HREF="/BUCM/compludoc/S/S/' + i + '.htm">Otros sumarios de '+ t + '</A><br><img src="http://www.ucm.es/bucm/images/p_trans.gif" width=1 height=5><br>');
document.write('</td></tr>');
document.write('<tr><td class="acceso"><img src="http://www.ucm.es/bucm/images/p_trans.gif" width=1 height=4></td></tr>');
document.write('<tr><td class="negro"><img src="http://www.ucm.es/bucm/images/p_trans.gif"></td></tr>');
document.write('</table>');
http = zXmlHttp.createRequest();
if(http) {
    var sBody="textocompleto=" + i;
//    alert(sBody);
    mensajes = document.getElementById('idtextocompleto');
//    mensajes.innerHTML = "http://www.ucm.es/bucm/compludoc/textocompleto.php?textocompleto="+i;
//    return;
    http.open("get","http://www.ucm.es/bucm/compludoc/textocompleto.php?textocompleto="+i,true);
    http.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    http.onreadystatechange = function () {
        if (http.readyState == 4) { 
           if(http.status == 200) { 
                 respuesta = http.responseText;
                 if(respuesta.indexOf('http') != -1) {
                    mensajes.innerHTML = '<img src="http://www.ucm.es/bucm/compludoc/imagenes/tr.gif"><A class="acceso" target="_top" HREF="'+respuesta+'">Texto completo de la revista</a>';
                 }else if(respuesta == '2') {
                    mensajes.innerHTML = '<img src="http://www.ucm.es/bucm/compludoc/imagenes/tr.gif"><A class="acceso" target="_top" HREF="http://revistas.ucm.es/portal/modulos.php?name=Revistasissn&col=1&issn=' + i + '">Texto completo de la revista</a>';
                 } else if(respuesta == '1') {
                 } else {
                    mensajes.style.display = "none"; 
                 }
//           } else { 
//              mensajes.innerHTML = '<b>ERROR:</b>No he podido conectar con el servidor para buscar elementos índice: ' + http.statusText; 
           } 
        } 
    };
    http.send(null);
}
}

function EscribirLinkAccesosC (t,i,n) {
var tit = vacio(n) ? t : n;
document.write('<table cellpadding=0 cellspacing=0 marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 border=0 width="100%">');
if (vacio(n)) {
   document.write('<tr><td class=azultituloni width=22><input name=rreferencia type=checkbox onClick="seleccionar()"></td><td class=azultituloni><img src=http://www.ucm.es/bucm/compludoc/botones/versumariosinmarco.gif onclick="ejecuta_versumario()" alt="Ver sumarios de números seleccionados" title="Ver sumarios de números seleccionados"></td><td class="azultitulon">' + t + '</td></tr>');
} else {
   document.write('<tr><td class="azultitulos">' + n + '</td></tr>');
}
var cab = '<html><head><LINK REL=stylesheet HREF="http://www.ucm.es/bucm/compludoc/css/estilos1.css" TYPE="text/css"><title></title></head><body class=BarraBotones><table cellpadding=0 cellspacing=0 marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 border=0 width="100%"><tr><td bgcolor=#840000><img src="http://www.ucm.es/bucm/images/p_trans.gif"></td></tr><tr><td bgcolor=#ffffff><img src="http://www.ucm.es/bucm/images/p_trans.gif"></td></tr><tr><td>   <table width="100%"><tr><td><table cellpadding=0 cellspacing=0 marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 border=0><tr><td><img src=http://www.ucm.es/bucm/compludoc/botones/volver.gif border=0 title="Volver" alt="Volver" onclick="top.cbuscado.document.forms[1].form.value=1;top.cbuscado.document.forms[1].submit();"><img src=http://www.ucm.es/bucm/compludoc/botones/tcompleto.gif border=0 alt="Texto completo de la revista" title="Texto completo de la revista" onclick="top.cbuscado.ejecuta_versumario();"><img src=http://www.ucm.es/bucm/compludoc/botones/fondos.gif border=0 alt="="Fondos de esta revista en CISNE, Catálogo de la Biblioteva de la Universidad Complutense" title="Fondos de esta revista en CISNE, Catálogo de la Biblioteva de la Universidad Complutense" onclick="top.cbuscado.ejecuta_versumario();"></td></tr><tr><td bgcolor=#000000><img src="http://www.ucm.es/bucm/images/p_trans.gif"></td></tr><tr><td bgcolor=#ffffff><img src="http://www.ucm.es/bucm/images/p_trans.gif"></td></tr></table></body></html>';
parent.cbotones.document.write(cab);
parent.cbotones.document.close(cab);
}

function EscribirLinkAccesosCM (t,i,n) {
var tit = vacio(n) ? t : n;
document.write('<table cellpadding=0 cellspacing=0 marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 border=0 width="100%">');
if (vacio(n)) {
   document.write('<tr><td class=azultituloni width=22><FORM name=numeros method="POST" action="http://europa.sim.ucm.es/compludoc/GetSumario"><input type=hidden name=zfr value=0><input name=rreferencia type=checkbox onClick="seleccionar()"></td><td class=azultituloni><img src=http://www.ucm.es/bucm/compludoc/botones/versumariosinmarco.gif onclick="ejecuta_versumario()" alt="Ver sumarios de números seleccionados" title="Ver sumarios de números seleccionados"></td><td class="azultitulon">' + i + '</td></tr>');
} else {
   document.write('<tr><td class="azultitulos">' + n + '</td></tr>');
}
}


// funciones para 'iluminar' filas
 function mOvr(src,clrOver) {
    if (!src.contains(event.fromElement)) {
	 src.style.cursor = 'hand';
	 src.bgColor = clrOver;
	}
 }
 function mOut(src,clrIn) {
	if (!src.contains(event.toElement)) {
	 src.style.cursor = 'default';
	 src.bgColor = clrIn;
	}
 }
 function mClk(src) {
    if(event.srcElement.tagName=='TD')
	 src.children.tags('A')[0].click();
 }
var marked_row = new Array;

function setPointer(theRow, theRowNum, theAction, theDefaultColor, thePointerColor, theMarkColor)
{
    var theCells = null;

    // 1. Pointer and mark feature are disabled or the browser can't get the
    //    row -> exits
    if ((thePointerColor == '' && theMarkColor == '')
        || typeof(theRow.style) == 'undefined') {
        return false;
    }

    // 2. Gets the current row and exits if the browser can't get it
    if (typeof(document.getElementsByTagName) != 'undefined') {
        theCells = theRow.getElementsByTagName('td');
    }
    else if (typeof(theRow.cells) != 'undefined') {
        theCells = theRow.cells;
    }
    else {
        return false;
    }

    // 3. Gets the current color...
    var rowCellsCnt  = theCells.length;
    var domDetect    = null;
    var currentColor = null;
    var newColor     = null;
    // 3.1 ... with DOM compatible browsers except Opera that does not return
    //         valid values with "getAttribute"
    if (typeof(window.opera) == 'undefined'
        && typeof(theCells[0].getAttribute) != 'undefined') {
        currentColor = theCells[0].getAttribute('bgcolor');
        domDetect    = true;
    }
    // 3.2 ... with other browsers
    else {
        currentColor = theCells[0].style.backgroundColor;
        domDetect    = false;
    } // end 3

    // 4. Defines the new color
    // 4.1 Current color is the default one

    if (currentColor == ''
        || currentColor.toLowerCase() == theDefaultColor.toLowerCase()) {
        if (theAction == 'over' && thePointerColor != '') {
            newColor              = thePointerColor;
        }
        else if (theAction == 'click' && theMarkColor != '') {
            newColor              = theMarkColor;
            marked_row[theRowNum] = true;
        }
    }
    // 4.1.2 Current color is the pointer one
    else if (currentColor.toLowerCase() == thePointerColor.toLowerCase()
             && (typeof(marked_row[theRowNum]) == 'undefined' || !marked_row[theRowNum])) {
        if (theAction == 'out') {
            newColor              = theDefaultColor;
        }
        else if (theAction == 'click' && theMarkColor != '') {
            newColor              = theMarkColor;
            marked_row[theRowNum] = true;
        }
    }
    // 4.1.3 Current color is the marker one
    else if (currentColor.toLowerCase() == theMarkColor.toLowerCase()) {
        if (theAction == 'click') {
            newColor              = (thePointerColor != '')
                                  ? thePointerColor
                                  : theDefaultColor;
            marked_row[theRowNum] = (typeof(marked_row[theRowNum]) == 'undefined' || !marked_row[theRowNum])
                                  ? true
                                  : null;
        }
    } // end 4

    // 5. Sets the new color...
    if (newColor) {
        var c = null;
        // 5.1 ... with DOM compatible browsers except Opera
        if (domDetect) {
            for (c = 0; c < rowCellsCnt; c++) {
                theCells[c].setAttribute('bgcolor', newColor, 0);
            } // end for
        }
        // 5.2 ... with other browsers
        else {
            for (c = 0; c < rowCellsCnt; c++) {
                theCells[c].style.backgroundColor = newColor;
            }
        }
    } // end 5

    return true;
} // end of the 'setPointer()' function