// ----------------------------------------------------------------------------
// Proyecto: RED FORUM UNESCO "Universidad y Patrimonio"
// Fecha   : mayo de 2003
// Equipo  : Jos&eacute; Joaquín Lorente García
//           Irene Fornes Moros
//           Guadalupe Navarro Montón
//
// Copyright: 2003, Universidad Polit&eacute;cnica de Valencia
//
// Fichero     : fu-HTML.js
// Descripción: Módulos para trabajar con el Modelo de Objeto
//              de Documento (DOM) de HTML y Hojas de Estilos (CSS)
//
// Dependencias:
//
// URL:      http://www.forumunesco.upv.es
//           http://www.forumunesco.org
//           http://www.forumunesco.net
//           http://www.forumunesco.com
// ----------------------------------------------------------------------------


// ========================================================
// DOMINIOS
// ========================================================

// Idiomas
K_ESPANYOL=0;
K_INGLES=1;
K_FRANCES=2;


// Dias de la semana en ESPAÑOL, INGLES, FRANCES
dias=[ ["Domingo", "Lunes", "Martes", "Mi&eacute;rcoles", "Jueves", "Viernes", "S&aacute;bado"],
       ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"],
       ["Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"] ];

// Meses del año en ESPAÑOL, INGLES, FRANCES
meses=[ ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre" ],
        ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ],
        ["Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Ao&ucirc;t", "Septembre", "Octobre", "Novembre", "Decembre" ] ];

P_ARGELIA=0;
P_ARGENTINA=1;
P_AUSTRALIA=2;
P_BRASIL=3;
P_CANADA=4;
P_CHILE=5;
P_COLOMBIA=6;
P_COSTA_DE_MARFIL=7;
P_CUBA=8;
P_ESPANYA=9;
P_FRANCIA=10;
P_IRAN=11;
P_ITALIA=12;
P_JORDANIA=13;
P_LIBANO=14;
P_MEXICO=15;
P_ONG=16;
P_PAKISTAN=17;
P_PALESTINA=18;
P_PERU=19;
P_POLONIA=20;
P_PORTUGAL=21;
P_PUERTO_RICO=22;
P_REINO_UNIDO=23;
P_RUSIA=24;
P_TURQUIA=25;
P_USA=26;
P_SAFRICA=27;
P_URUGUAY=28;
P_AFRICA=29;
P_INDIA=30;
P_SUECIA=31;
P_ARMENIA=32;

paises=[["Argelia", "Algeria", "Alg&eacute;rie"],    //P_ARGELIA=0
        ["Argentina", "Argentina", "Argentine"],     // P_ARGENTINA=1
        ["Australia", "Australia", "Australie"],     // P_AUSTRALIA=2
        ["Brasil", "Brazil", "Br&eacute;sil"],     // P_BRASIL=3
        ["Canad&aacute;", "Canada", "Canada"],     //P_CANADA=4
        ["Chile", "Chile", "Chili"],     // P_CHILE=5
        ["Colombia", "Colombia", "Colombie"],     // P_COLOMBIA=6
        ["Costa de Marfil", "Ivory Coast", "Cote d'Ivoire"],    //P_COSTA_DE_MARFIL=7
        ["Cuba", "Cuba", "Cuba"],     // P_CUBA=8
        ["Espa&ntilde;a", "Spain", "Espagne"],     // P_ESPANYA=9
        ["Francia", "France", "France"],    //P_FRANCIA=10
        ["Iran", "Iran", "Iran"],     // P_IRAN=11
        ["Italia", "Italy", "Italie"],     // P_ITALIA=12
        ["Jordania", "Jordan", "Jordanie"],     // P_JORDANIA=13
        ["L&iacute;bano", "Lebanon", "Liban"],     // P_LIBANO=14
        ["M&eacute;xico", "Mexico", "Mexique"],     // P_MEXICO=15
        ["ONG", "NGO", "ONG"],     // P_ONG=16
        ["Pakist&aacute;n", "Pakistan", "Pakistan"],    // P_PAKISTAN=17
        ["Palestina", "Palestine", "Palestine"],     // P_PALESTINA=18
        ["Per&uacute;", "Peru", "P&eacute;rou"],     // P_PERU=19
        ["Polonia", "Poland", "Pologne"],     // P_POLONIA=20
        ["Portugal", "Portugal", "Portugal"],     // P_PORTUGAL=21
        ["Puerto Rico", "Puerto Rico", "Porto Rico"],    // P_PUERTO_RICO=22
        ["Reino Unido", "United Kingdom", "Royaume Uni"],    // P_REINO_UNIDO=23
        ["Rusia", "Russia", "Russie"],     // P_RUSIA=24
        ["Turquia", "Turkey", "Turquie"],     // P_TURQUIA=25
        ["Estados Unidos", "United States", "&Eacute;tats Unis"],    // P_USA=26
        ["Sud&aacute;frica", "South Africa", "Sudafrique"],    // P_SAFRICA=27
        ["Uruguay", "Uruguay", "Uruguay"],    // P_URUGUAY=28
	    ["&Aacute;frica", "Africa", "Afrique"],    // P_AFRICA=29
	    ["India", "India", "L'Inde"],    // P_INDIA=30
        ["Suecia", "Sweden", "La Su&egrave;de"],	// P_SUECIA=31
        ["Armenia", "Armenia", "Armenia"],	// P_ARMENIA=32
		];

// ========================================================
// FIN DOMINIOS
// ========================================================


// ========================================================
// FECHA, HORA
// ========================================================

// --------------------------------------------------------
function FechaHora_Print(marco,idioma)
// Muestra la fecha y hora actual del cliente
// NOTA: el formato de fecha depende del idioma
{
  var t = new Date();

  // t.getYear(),
  // t.getMonth(),
  // t.getDate(),
  // t.getDay(),
  // t.getHours(),
  // t.getMinutes(),
  // t.getSeconds()

  Fecha_Print(marco,idioma);
  Hora_Print(marco,idioma);

} // Fin FechaHora_Print
// --------------------------------------------------------


// --------------------------------------------------------
function Fecha_Print(marco, idioma)
// Muestra la fecha actual del cliente
// NOTA: el formato de fecha depende del idioma
{
  var t = new Date();

  // t.getYear(),
  // t.getMonth(),
  // t.getDate(),
  // t.getDay(),
  // t.getHours(),
  // t.getMinutes(),
  // t.getSeconds()

  if (idioma==K_ESPANYOL)
  {
   marco.document.write(dias[K_ESPANYOL][t.getDay()]+" "+t.getDate()+" "+meses[K_ESPANYOL][t.getMonth()]+" ");
   if (t.getYear()<1900)
   {
      marco.document.write((t.getYear()+1900)+" ");
   }
   else
   {
      marco.document.write(t.getYear()+" ");
   } // Fsi
  }
  else if (idioma==K_FRANCES)
  {
   marco.document.write(dias[K_FRANCES][t.getDay()]+", "+t.getDate()+" "+meses[K_FRANCES][t.getMonth()]+" ");
   if (t.getYear()<1900)
   {
      marco.document.write((t.getYear()+1900)+" ");
   }
   else
   {
      marco.document.write(t.getYear()+" ");
   } // Fsi
  }
  else
  {
   marco.document.write(dias[K_INGLES][t.getDay()]+", "+meses[K_INGLES][t.getMonth()]+" "+t.getDate()+" ");
   if (t.getYear()<1900)
   {
      marco.document.write((t.getYear()+1900)+" ");
   }
   else
   {
      marco.document.write(t.getYear()+" ");
   } // Fsi
  }

} // Ffuncion
// --------------------------------------------------------


// --------------------------------------------------------
function Hora_Print(marco, idioma)
// Muestra la hora actual del cliente
// NOTA: el formato de hora depende del idioma
{
  var t = new Date();

  // t.getYear(),
  // t.getMonth(),
  // t.getDate(),
  // t.getDay(),
  // t.getHours(),
  // t.getMinutes(),
  // t.getSeconds()

  if (idioma==K_ESPANYOL)
  {
   if (t.getHours()<10)
   {
     marco.document.write("0"+t.getHours()+"h ");
   }
   else
   {
     marco.document.write(t.getHours()+"h ");
   }

   if (t.getMinutes()<10)
   {
     marco.document.write("0"+t.getMinutes()+" ");
   }
   else
   {
     marco.document.write(t.getMinutes()+" ");
   }

  }
  else if (idioma==K_FRANCES)
  {
   if (t.getHours()<10)
   {
     marco.document.write("0"+t.getHours()+"h ");
   }
   else
   {
     marco.document.write(t.getHours()+"h ");
   }

   if (t.getMinutes()<10)
   {
     marco.document.write("0"+t.getMinutes()+" ");
   }
   else
   {
     marco.document.write(t.getMinutes()+" ");
   }
  }
  else
  {
   if (t.getHours()<10)
   {
     marco.document.write("0"+t.getHours()+"h ");
   }
   else
   {
     marco.document.write(t.getHours()+"h ");
   }

   if (t.getMinutes()<10)
   {
     marco.document.write("0"+t.getMinutes()+" ");
   }
   else
   {
     marco.document.write(t.getMinutes()+" ");
   }

  }

} // Fin Hora_Print
// --------------------------------------------------------

// ========================================================
// FIN FECHA, HORA
// ========================================================




// ========================================================
// DOM
// ========================================================

// ------------------------------------------------------------

function CLIENTE(navegador, version, release, sistema)
{
   this.navegador=navegador;
   this.version=version;
   this.release=release;   
   this.sistema=sistema;
   return this;
}


function HTMLGet_Browser()
// Obtiene la versión del navegador en funcion del modelo DOM del mismo
{

   var strAgente=navigator.userAgent.toLowerCase();
   var strVersion=navigator.appVersion.toLowerCase();
   var ie_start=strVersion.indexOf("msie");
   
   var strSistema;  
   var navegador, version, release, sistema;

   // Determinamos versión del Navegador 
   version=parseInt(strVersion);
   release=parseFloat(strVersion);
   
   if (ie_start!=-1)
   {
     version=parseInt(strVersion.substring(ie_start+5));
     release=parseFloat(strVersion.substring(ie_start+5));
   }
   
   // Determinador aplicación del Navegador
   if (strAgente.indexOf("opera")!=-1)
   {
      navegador="opera";
   }
   else if (strAgente.indexOf("webtv")!=-1)
   {
      navegador="webtv";
   }
   else if (strAgente.indexOf("msie")!=-1)
   {
      navegador="msie";
   }
   else if (strAgente.indexOf("mozilla")!=-1)
   {
     if ( (strAgente.indexOf("compatible") == -1) &&
          (strAgente.indexOf("spoofer") == -1) && 
		  (strAgente.indexOf("hotjava") == -1)
	    )
	 {
	    navegador="ns";
	 }
	 else 
	 {
	   navegador="compatible";
	 }
   }
   else 
   {
      navegador="desconocido";
   }


   // Determinador sistema operativo del Navegador
   // Windows 3.1
   if ( (strAgente.indexOf("windows 3.1")!=-1) ||
        (strAgente.indexOf("win16")!=-1) ||
		(strAgente.indexOf("16bit")!=-1) ||
		(strAgente.indexOf("16-bit")!=-1)
      )
   {
      sistema="Windows 3.1";
   }
   // Windows 95
   else  if ( (strAgente.indexOf("windows 95")!=-1) ||
              (strAgente.indexOf("win95")!=-1) 
            ) 
   {
      sistema="Windows 95";
   }
   // Windows ME
   else  if ( (strAgente.indexOf("windows 9x 4.90")!=-1) 
            ) 
   {
      sistema="Windows Me";
   }
   // Windows 98
   else  if ( (strAgente.indexOf("windows 98")!=-1) ||
              (strAgente.indexOf("win98")!=-1) 
            ) 
   {
      sistema="Windows 98";
   }
   // Windows XP
   else  if ( (strAgente.indexOf("windows nt 5.1")!=-1) ||
              (strAgente.indexOf("winnt 5.1")!=-1) 
            ) 
   {
      sistema="Windows XP";
   }
   // Windows 2000
   else  if ( (strAgente.indexOf("windows nt 5.0")!=-1) ||
              (strAgente.indexOf("winnt 5.0")!=-1) 
            ) 
   {
      sistema="Windows 2000";
   }
   // Windows NT
   else  if ( (strAgente.indexOf("windows nt")!=-1) ||
              (strAgente.indexOf("winnt")!=-1) 
            ) 
   {
      sistema="Windows NT";
   }
   // MAC 680x0
   else  if ( (strAgente.indexOf("mac")!=-1) &&
              ((strAgente.indexOf("68k")!=-1) || (strAgente.indexOf("68000")!=-1) )
            ) 
   {
      sistema="Mac 68k";
   }
   // MAC 680x0
   else  if ( (strAgente.indexOf("mac")!=-1) &&
              ((strAgente.indexOf("ppc")!=-1) || (strAgente.indexOf("powerpc")!=-1) )
            ) 
   {
      sistema="Mac PowerPC";
   }
   // Linux
   else  if ( (strAgente.indexOf("linux")!=-1) 
            ) 
   {
      sistema="Linux";
   }
   // Unix
   else  if ( (strAgente.indexOf("unix")!=-1) 
            ) 
   {
      sistema="Unix";
   }
   else
   {
      sistema="desconocido";
   }

   return (new CLIENTE(navegador, version, release, sistema));

} // Fin HTMLGet_Browser()
// ------------------------------------------------------------

// ------------------------------------------------------------
function HTMLGet_Objeto(marco_str, id)
// Devuelve una referencia de objeto con ID='id' o NAME='id'
// Dependiente del DOM del navegador
// NOTA: Para compatibilidad con diferentes modelos DOM y Hojas
//       de Estilo CSS, cada objeto se identificará por un nombre
//       que se asignará a los atributos ID y NAME
//
{

  if (document.getElementById)
  // W3C DOM
  {
        if ( eval(marco_str+'.document.getElementById("'+id+'")') )
        {
            return ( marco_str+'.document.getElementById("'+id+'")' );
        }
        else
        {
            alert('W3C DOM Referencia a objeto no encontrada en '+marco_str+' - '+id);
            return ('');
        }

  }
  else if (document.all)
  // DHTML DOM: Internet Explorer 4
  {
     if ( eval(marco_str+'.document.all.'+id) )
     {
        return ( marco_str+'.document.all.'+id );
     }
     else
     {
        alert('DHTML DOM Referencia a objeto no encontrada '+marco_str+' - '+id);
        return ('');
     }
  }
  else if (document.layers)
  // LDOM: Netscape 4
  {
     if ( eval(marco_str+'.document.'+id) )
     {
        return ( marco_str+'.document.'+id );
     }
     else
     {
        alert('LDOM Referencia a objeto no encontrada '+id);
        return ('');
     }
  }

} // Fin HTMLGet_Objeto
// ------------------------------------------------------------

// ------------------------------------------------------------
// ------------------------------------------------------------
function HTMLSet_BodyMargin(marco_str, id)
// Establece margen izquierdo para una página
// NOTA: Debido a las diferencias entre navegadores de la
//       interpretación o implementación del atributo de CSS 'padding'
//       debemos asignar diferentes valores para el mismo en función
//       del navegador.
{
   var browser = HTMLGet_Browser();
   
   // alert(browser.navegador+"\n"+browser.version+"\n"+browser.release);

   if (browser.navegador=='ns')
   {
      // ADVERTENCIA
      if(browser.version<5)
	  {
	    alert("AVISO: este sitio web requiere de un navegador más moderno. Por favor, actualícelo\n"+
		      "ADVISE: this website needs a modern browser. Please, update it\n"+
 		      "AVIS: ce site web a besoin d'un browser plus modern. S'il vous plaît, misez-le à jour\n");
	  }
      // CSSSet_MarginLeft(marco_str,id,"15px");
      // CSSSet_PaddingLeft(marco_str,id,"0");
      // CSSSet_PaddingTop(marco_str,id,"0");
   }
   else if (browser.navegador=="msie")
   {
      // ADVERTENCIA
      if(browser.version<4)
	  {
	    alert("AVISO: este sitio web requiere de un navegador más moderno. Por favor, actualícelo\n"+
		      "ADVISE: this website needs a modern browser. Please, update it\n"+
 		      "AVIS: ce site web a besoin d'un browser plus modern. S'il vous plaît, mis-le à jour\n");
	  }
      
      if (browser.version>5)
	  {
        CSSSet_MarginLeft(marco_str,id,"16px");
	  }
	  else
	  {
        CSSSet_MarginLeft(marco_str,id,"35px");	  
	  }
      // CSSSet_PaddingLeft(marco_str,id,"0");
      // CSSSet_PaddingTop(marco_str,id,"0");
   }
   else if (browser.navegador=="opera")
   {

      
   } 
   else if (browser.navegador=="webtv")
   {

      
   } 
   else if (browser.navegador=="opera")
   {

      
   } 
   else if (browser.navegador=="compatible")
   {

      
   } // Fsi
   


} // Fn HTMLSet_BodyMargin
// ------------------------------------------------------------


// ------------------------------------------------------------
function HTMLSet_Atributo(marco_str,id,atributo,valor)
// Establece el valor para el atributo de un objeto
{
   var objeto=HTMLGet_Objeto(marco_str,id);

   if (objeto.length>0)
   {
       eval(objeto+'.'+atributo+'="'+valor+'"');
   }
} // Fin HTMLSet_Atributo
// ------------------------------------------------------------
// ------------------------------------------------------------
function HTMLGet_Atributo(marco_str, id,atributo)
// Devuelve el valor de un atributo de un objeto
{
   var objeto=HTMLGet_Objeto(marco_str,id);

   if (objeto.length>0)
   {
      return ( eval(objeto+'.'+atributo) );
   }
   return ('');
} // Fin HTMLGet_Atributo
// ------------------------------------------------------------


// ------------------------------------------------------------
function HTMLSet_HTML(marco_str,id,html)
// Establece el contenido HTML de un objeto
{
   var objeto=HTMLGet_Objeto(marco_str, id);

   if (objeto.length>0)
   {
       if (!(document.layers))
       // W3C DOM ó DHTML DOM
       {
          eval(objeto+'.'+innerHTML+'="'+html+'"');
       }
       else
       // LDOM
       {
          eval( objeto+'.document.open()' );
          eval( objeto+'.document.write("'+html+'")' );
          eval( objeto+'.document.close()' );
       }
   }
} // Fin HTMLSet_HTML
// ------------------------------------------------------------


// ========================================================
// FIN DOM
// ========================================================




// ==================================================================
// CSS
// ==================================================================
// Nota: Esta interfaz esta diseñada para aquellas etiquetas HTML
//       que admitan Hojas de Estilo CSS a trav&eacute;s del atributo CLASS
//       o STYLE. No obstante, para la programación dinámica sólo es
//       posible trabajar con el atributo STYLE.
//
//
//       La implementación de CSS es muy dependiente del modelo DOM
//       del navegador. Por este motivo, se ha implementado una función
//       para cada propiedad posible de la especificación CSS.
//
//       Por otro lado, la opción más compatible para  trabajar con
//       posicionamiento o capas es utilizando la etiqueta
//       <DIV> y el atributo STYLE="..."
//       con posicionamiento 'absolute', por ejemplo:
//       <DIV ID="nombre" NAME="nombre" STYLE="position:absolute; ...">
//         ...
//       </DIV>
//       Además, para garantizar la compatibilidad de los scripts, no se
//       permitirán capas anidadas.
//
// Comentario: Esta interfaz pretende implementar todas las propiedades
//             de la especificación CSS2 pero para garantizar la compatibilidad
//             en los diferentes navegadores, comenzaremos por las propiedades
//             de la CSS1 y aquellas, relativas al posicionamiento, de
//             la CSS2 ampliamente aceptadas.
//
// ------------------------------------------------------------------------

function CSSGet_Objeto(marco_str, id)
// Devuelve una referencia de estilo para el objeto con ID='id' o NAME='id'
// Dependiente del DOM del navegador
// NOTA: Para compatibilidad con diferentes modelos DOM y Hojas
//       de Estilo CSS, cada objeto se identificará por un nombre
//       que se asignará a los atributos ID y NAME
//
{

  if (document.getElementById)
  // W3C DOM
  {
        if ( eval(marco_str+'.document.getElementById("'+id+'")') )
        {
            return ( marco_str+'.document.getElementById("'+id+'").style' );
        }
        else
        {
            alert('W3C DOM Referencia a objeto no encontrada '+id);
            return ('');
        }

  }
  else if (document.all)
  // DHTML DOM: Internet Explorer 4
  {
      if ( eval(marco_str+'.document.all.'+id) )
       {
           return ( marco_str+'.document.all.'+id+'.style' );
       }
       else
       {
           alert('DHTML DOM Referencia a objeto no encontrada '+id);
           return ('');
       }
  }
  else if (document.layers)
  // LDOM: Netscape 4
  {
      if ( eval(marco_str+'.document.layers.'+id) )
       {
           return ( marco_str+'.document.layers.'+id );
       }
       else
       {
           if ( eval(marco_str+'.document.'+id) )
           {
              return ( marco_str+'.document.'+id+'.style' );
           }
           else
           {
               alert('LDOM Referencia a objeto no encontrada '+id);
               return ('');
           }
       }
  }

} // Fin CSSGet_Objeto
// ------------------------------------------------------------



// *************************************************************************
// Propiedades de Color y Fondo
// *************************************************************************


// ----------------------------------------------------------------------------
function CSSSet_BackgroundColor(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> background-color: <color>
// JS sintaxis  --> backgroundColor
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval( objeto_css+'.backgroundColor="'+valor+'"' );
   }
} // Fin CSSSet_BackgroundColor
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSGet_BackgroundColor(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval( objeto_css+'.backgroundColor' ) );
   }
   return ('');
} // Fin CSSGet_BackgroundColor
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_BackgroundImage(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> background-image: url(< URI | none>)
// JS sintaxis  --> backgroundImage
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval( objeto_css+'.backgroundImage="url ('+valor+')"' );
   }
} // Fin CSSSet_BackgroundColor
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BackgroundImage(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval( objeto_css+'.backgroundImage' ) );
   }
   return ('');
} // Fin CSSGet_BackgroundImage
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Color(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> color: <color>
// JS sintaxis  --> color
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval( objeto_css+'.color="'+valor+'"' );
   }
} // Fin CSSSet_Color
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Color(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval( objeto_css+'.color' ) );
   }
   return ('');
} // Fin CSSGet_Color
// ----------------------------------------------------------------------------


// *************************************************************************
// Fin Propiedades de Color y Fondo
// *************************************************************************


// *************************************************************************
// Propiedades de Caja
// *************************************************************************


// ----------------------------------------------------------------------------
function CSSSet_BorderColor(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-color: <color>{1,4}
// JS sintaxis  --> borderColor
// Nota: NN4 sólo permite un único valor que se aplica a todas las aristas del
//       del borde.
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval( objeto_css+'.borderColor="'+valor+'"' );
   }
} // Fin CSSSet_BorderColor
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderColor(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return( eval(objeto_css+'.borderColor') );
   }
   return ('');
} // Fin CSSGet_BorderColor
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_BorderStyle(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-style: <double groove inset none outset ridge solid>{1,4}
// JS sintaxis  --> borderStyle
// Nota: NN4 sólo permite un único valor que se aplica a todas las aristas del
//       del borde.
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval( objeto_css+'.borderStyle="'+valor+'"' );
   }
   return ('');
} // Fin CSSSet_BorderStyle
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderStyle(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.borderStyle') );
   }
   return ('');
} // Fin CSSGet_BorderStyle
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_BorderWidth(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-width: <thin medium thick LENGTH>{1,4}
// JS sintaxis  --> borderWidths()
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.borderWidths("'+valor+'")' );
   }
} // Fin CSSSet_BorderWidth
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderWidth(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.borderWidths()' ) );
   }
   return ('');
} // Fin CSSGet_BorderWidth
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_BorderTopWidth(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-top-width: <thin medium thick LENGTH>{1,4}
// JS sintaxis  --> borderTopWidth
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.borderTopWidth="'+valor+'"' );
   }
} // Fin CSSSet_BorderTopWidth
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderTopWidth(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.borderTopWidth' ) );
   }
   return ('');
} // Fin CSSGet_BorderTopWidth
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_BorderRightWidth(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-right-width: <thin medium thick LENGTH>{1,4}
// JS sintaxis  --> borderRightWidth
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.borderRightWidth="'+valor+'"' );
   }
} // Fin CSSSet_BorderRightWidth
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderRightWidth(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.borderRightWidth' ) );
   }
   return ('');
} // Fin CSSGet_BorderRightWidth
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_BorderBottomWidth(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-bottom-width: <thin medium thick LENGTH>{1,4}
// JS sintaxis  --> borderBottomWidth
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.borderBottomWidth="'+valor+'"' );
   }
} // Fin CSSSet_BorderBottomWidth
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderBottomWidth(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.borderBottomWidth' ) );
   }
   return ('');
} // Fin CSSGet_BorderBottomWidth
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_BorderLeftWidth(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> boder-left-width: <thin medium thick LENGTH>{1,4}
// JS sintaxis  --> borderLeftWidth
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.borderLeftWidth="'+valor+'"' );
   }
} // Fin CSSSet_BorderLeftWidth
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_BorderLeftWidth(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.borderLeftWidth' ) );
   }
   return ('');
} // Fin CSSGet_BorderLeftWidth
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Margin(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> margin: <marginThickness auto>{1,4}
// JS sintaxis  --> margins()
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.margins("'+valor+'")' );
   }
} // Fin CSSSet_Margin
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Margin(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.margins()' ) );
   }
   return ('');
} // Fin CSSGet_Margin
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_MarginTop(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> margin-top: <marginThickness auto>
// JS sintaxis  --> marginTop
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.marginTop="'+valor+'"' );
   }
} // Fin CSSSet_MarginTop
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_MarginTop(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return( eval(objeto_css+'.marginTop' ) );
   }
   return ('');
} // Fin CSSGet_MarginTop
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_MarginRight(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> margin-right: <marginThickness auto>
// JS sintaxis  --> marginRight
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.marginRight="'+valor+'"' );
   }
} // Fin CSSSet_MarginRight
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_MarginRight(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.marginRight' ) );
   }
   return ('');
} // Fin CSSGet_MarginRight
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_MarginBottom(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> margin-bottom: <marginThickness auto>
// JS sintaxis  --> marginBottom
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.marginBottom="'+valor+'"' );
   }
} // Fin CSSSet_MarginBottom
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_MarginBottom(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.marginBottom' ) );
   }
   return ('');
} // Fin CSSGet_MarginBottom
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_MarginLeft(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> margin-left: <marginThickness auto>
// JS sintaxis  --> marginLeft
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.marginLeft="'+valor+'"' );
   }
} // Fin CSSSet_MarginLeft
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_MarginLeft(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.marginLeft' ) );
   }
   return ('');
} // Fin CSSGet_MarginLeft
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Padding(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> padding: <paddingThickness>{1,4}
// JS sintaxis  --> paddings()
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.paddings("'+valor+'")' );
   }
} // Fin CSSSet_Padding
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Padding(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.paddings()' ) );
   }
   return ('');
} // Fin CSSGet_Padding
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_PaddingTop(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> padding-top: <paddingThickness>
// JS sintaxis  --> paddingTop
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.paddingTop="'+valor+'"' );
   }
   return ('');
} // Fin CSSSet_PaddingTop
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_PaddingTop(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.paddingTop' ) );
   }
   return ('');
} // Fin CSSGet_PaddingTop
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_PaddingRight(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> padding-right: <paddingThickness>
// JS sintaxis  --> paddingRight
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.paddingRight="'+valor+'"' );
   }
} // Fin CSSSet_PaddingRight
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_PaddingRight(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.paddingRight' ) );
   }
   return ('');
} // Fin CSSGet_PaddingRight
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_PaddingLeft(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> padding-left: <paddingThickness>
// JS sintaxis  --> paddingLeft
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.paddingLeft="'+valor+'"' );
   }
} // Fin CSSSet_PaddingLeft
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_PaddingLeft(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.paddingLeft' ) );
   }
   return ('');
} // Fin CSSGet_PaddingLeft
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_PaddingBottom(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> padding-bottom: <paddingThickness>
// JS sintaxis  --> paddingBottom
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.paddingBottom="'+valor+'"' );
   }
} // Fin CSSSet_PaddingBottom
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_PaddingBottom(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.paddingBottom' ) );
   }
   return ('');
} // Fin CSSGet_PaddingBottom
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_Width(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> width: <LENGTH | PERCENTAGE | auto>
// JS sintaxis  --> width
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.width="'+valor+'"' );
   }
} // Fin CSSSet_Width
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Width(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.width') );
   }
   return ('');
} // Fin CSSGet_Width
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Height(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> height: <LENGTH | PERCENTAGE | auto>
// JS sintaxis  --> height
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.height="'+valor+'"' );
   }
} // Fin CSSSet_Height
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Height(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.height') );
   }
   return ('');
} // Fin CSSGet_Height
// ----------------------------------------------------------------------------

// *************************************************************************
// Fin Propiedades de Caja
// *************************************************************************



// *************************************************************************
// Propiedades de Clasificación
// *************************************************************************


// ----------------------------------------------------------------------------
function CSSSet_Display(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> display: <none | block | inline | list-item >
// JS sintaxis  --> display
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.display="'+valor+'"' );
   }
} // Fin CSSSet_Display
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Display(marco_str, id,valor)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval( objeto_css+'.display' ) );
   }
   return ('');
} // Fin CSSGet_Display
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSQ_Display(marco_str, id)
{
   if (CSSGet_Display(marco_str,id)!="none")
   {
       return true;
   }
   return false;
} // Fin CSSQ_Display
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_ListStyleType(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> list-style-type: <circle |disc | square > para UL
//                                   <decimal | lower-alpha | lower-roman | upper-alpha | upper-roman > para OL
// JS sintaxis  --> listStyleType
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.listStyleType="'+valor+'"' );
   }
} // Fin CSSSet_ListStyleType
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_ListStyleType(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.listStyleType' ) );
   }
   return ('');
} // Fin CSSGet_ListStyleType
// ----------------------------------------------------------------------------

// *************************************************************************
// Fin Propiedades de Clasificación
// *************************************************************************


// *************************************************************************
// Propiedades de Fuentes
// *************************************************************************

// ----------------------------------------------------------------------------
function CSSSet_FontFamily(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> font-family: < serif | sans-serif | cursive | fantasy | monospace >
// JS sintaxis  --> fontFamily
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.fontFamily="'+valor+'"' );
   }
} // Fin CSSSet_FontFamily
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_FontFamily(marco_str, id)
// CSS1 NN4 IE 4
// CSS sintaxis --> font-family: < serif | sans-serif | cursive | fantasy | monospace >
// JS sintaxis  --> fontFamily
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.fontFamily' ) );
   }
   return ('');
} // Fin CSSSet_FontFamily
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_FontSize(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> font-size: < xx-small | x-small | small | medium | large | x-large | xx-large |
//                               larger | smaller | LENGTH | PERCENTAGE >
// JS sintaxis  --> fontSize
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.fontSize="'+valor+'"' );
   }
} // Fin CSSSet_FontSize
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_FontSize(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.fontSize' ) );
   }
   return ('');
} // Fin CSSGet_FontSize
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_FontStyle(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> font-style: <normal | italic>
// JS sintaxis  --> fontStyle
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.fontStyle="'+valor+'"' );
   }
} // Fin CSSSet_FontStyle
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_FontStyle(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.fontStyle' ) );
   }
   return ('');
} // Fin CSSGet_FontStyle
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_FontWeight(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> font-weight: <bold | bolder | lighter | normal |
//                                100 | 200 | 300 | 400 | 500 | 600 | 700 | 800 | 900>
// JS sintaxis  --> fontWeight
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.fontWeight="'+valor+'"' );
   }
} // Fin CSSSet_FontWeight
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_FontWeight(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.fontWeight' ) );
   }
   return ('');
} // Fin CSSGet_FontWeight
// ----------------------------------------------------------------------------

// *************************************************************************
// Fin Propiedades de Fuentes
// *************************************************************************


// *************************************************************************
// Propiedades de Texto
// *************************************************************************

// ----------------------------------------------------------------------------
function CSSSet_TextAlign(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> text-align: <center | justify | left | right >
// JS sintaxis  --> textAlign
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.textAlign="'+valor+'"' );
   }
} // Fin CSSSet_TextAlign
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_TextAlign(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.textAlign' ) );
   }
   return ('');
} // Fin CSSGet_TextAlign
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_TextDecoration(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> text-decoration: <none | underline | overline | line-through | blink >
// JS sintaxis  --> textDecoration
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.textDecoration="'+valor+'"' );
   }
} // Fin CSSSet_TextDecoration
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_TextDecoration(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.textDecoration' ) );
   }
   return ('');
} // Fin CSSGet_TextDecoration
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSSet_TextTransform(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> text-transform: <none | capitalize | uppercase | lowercase >
// JS sintaxis  --> textTransform
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.textTransform="'+valor+'"' );
   }
} // Fin CSSSet_TextTransform
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_TextTransform(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.textTransform' ) );
   }
   return ('');
} // Fin CSSGet_TextTransform
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_TextIndent(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> text-indent: < LENGTH | PERCENTAGE >
// JS sintaxis  --> textIndent
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.textIndent="'+valor+'"' );
   }
} // Fin CSSSet_TextIndent
// ----------------------------------------------------------------------------

// ----------------------------------------------------------------------------
function CSSGet_TextIndent(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.textIndent="'+valor+'"' ) );
   }
   return ('');
} // Fin CSSGet_TextIndent
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_VerticalAlign(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> vertical-align: <baseline | sub | super | top | text-top |
//                                   middle | bottom | text-bottom | PERCENTAGE >
// JS sintaxis  --> verticalAlign
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.verticalAlign="'+valor+'"' );
   }
} // Fin CSSSet_VerticalAlign
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_VerticalAlign(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.verticalAlign' ) );
   }
   return ('');
} // Fin CSSGet_VerticalAlign
// ----------------------------------------------------------------------------

// *************************************************************************
// Fin Propiedades de Texto
// *************************************************************************


// *************************************************************************
// Propiedades de Posicionamiento
// *************************************************************************
// ----------------------------------------------------------------------------
function CSSSet_Position(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> position: <static | relative | absolute | fixed | inherit>
// JS sintaxis  --> position
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.position="'+valor+'"' );
   }
} // Fin CSSSet_Position
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Position(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.position') );
   }
   return ('');
} // Fin CSSGet_Position
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Top(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> top: <LENGTH | PERCENTAGE | static-position | auto | inherit>
// JS sintaxis  --> top
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.top="'+valor+'"' );
   }
} // Fin CSSSet_Top
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Top(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.top') );
   }
   return ('');
} // Fin CSSGet_Top
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Right(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> right: <LENGTH | PERCENTAGE | static-position | auto | inherit>
// JS sintaxis  --> right
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.right="'+valor+'"' );
   }
} // Fin CSSSet_Right
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Right(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.right') );
   }
   return ('');
} // Fin CSSGet_Right
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Bottom(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> bottom: <LENGTH | PERCENTAGE | static-position | auto | inherit>
// JS sintaxis  --> bottom
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.bottom="'+valor+'"' );
   }
} // Fin CSSSet_Bottom
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Bottom(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.bottom') );
   }
   return ('');
} // Fin CSSGet_Bottom
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_Left(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> left: <LENGTH | PERCENTAGE | static-position | auto | inherit>
// JS sintaxis  --> left
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.left="'+valor+'"' );
   }
} // Fin CSSSet_Left
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Left(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.left') );
   }
   return ('');
} // Fin CSSGet_Left
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSMove_To(marco_str, id,left,top)
{

   CSSSet_Left(marco_str, id,left);
   CSSSet_Top(marco_str, id,top);

} // Fin CSSMove_To
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSMove_By(marco_str, id,delta_left,delta_top)
{
   var left=parseInt(CSSGet_Left(marco_str, id));
   var top=parseInt(CSSGet_Top(marco_str, id));

   CSSSet_Left(marco_str, id,left+parseInt(delta_left)+"px");
   CSSSet_Top(marco_str, id,top+parseInt(delta_top)+"px");

} // Fin CSSMove_By
// ----------------------------------------------------------------------------



// ----------------------------------------------------------------------------
function CSSSet_Visibility(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> visibility: <visible | hidden | inherit>
// JS sintaxis  --> visibility
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.visibility="'+valor+'"' );
   }
} // Fin CSSSet_Visibility
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_Visibility(marco_str, id,valor)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval(objeto_css+'.visibility' ) );
   }
   return ('');
} // Fin CSSGet_Visibility
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSQ_Visibility(marco_str, id)
{
   if (CSSGet_Visibility(marco_str, id)=="visible")
   {
       return true;
   }
   return false;
} // Fin CSSQ_Visibility
// ----------------------------------------------------------------------------


// ----------------------------------------------------------------------------
function CSSSet_ZIndex(marco_str, id,valor)
// CSS1 NN4 IE 4
// CSS sintaxis --> z-index: <INTEGER | auto>
// JS sintaxis  --> zIndex
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      eval(objeto_css+'.zIndex="'+valor+'"' );
   }
} // Fin CSSSet_ZIndex
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
function CSSGet_ZIndex(marco_str, id)
{
   var objeto_css=CSSGet_Objeto(marco_str, id);

   if (objeto_css.length>0)
   {
      return ( eval( objeto_css+'.zIndex' ) );
   }
   return ('');
} // Fin CSSGet_ZIndex
// ----------------------------------------------------------------------------

// *************************************************************************
// Fin Propiedades de Posicionamiento
// *************************************************************************


// ========================================================
// FIN CSS
// ========================================================



// ==============================================
// BITACORA
// ==============================================
// Uso: En cada página deberá figurar el siguiente código
//      para el evento Load de BODY
//
//      <BODY  onLoad="top.Bitacora_Log(document.title, document.location ó document.url)" >
//

// Base de datos para registro o log de Bitacora
// Esquema: [ [ANYO, MES, DIAMES, DIASEMANA, HORA, MINUTO, SEGUNDO, TITULO, URL], ... ]
bitacora=new Array();

// Indices para esquema relacional
B_ANYO=0;
B_MES=1;
B_DIAMES=2;
B_DIASEMANA=3;
B_HORA=4;
B_MINUTO=5;
B_SEGUNDO=6;
B_TITULO=7;
B_URL=8;

function Bitacora_Log(titulo, url)
// Registra un apunte en la bitacora con el título de la página y url visitada
{
  var t = new Date();

  // bitacora.push(new Array(t.getYear(), t.getMonth(), t.getDate(), t.getDay(), t.getHours(), t.getMinutes(), t.getSeconds(), titulo, url));
  bitacora[bitacora.length]= new Array(t.getYear(), t.getMonth(), t.getDate(), t.getDay(), t.getHours(), t.getMinutes(), t.getSeconds(), titulo, url);

}

function Bitacora_Print(marco, idioma)
// Visualiza los apuntes de la bitacora:
// HORA:MINUTO:SEGUNDO     Titulo página con vínculo a dicha página
{

   marco.document.write('<TABLE WIDTH="100%" BORDER="1" CELLSPACING="0"  BORDERCOLOR="#999999" >');
   marco.document.write(' <TR VALIGN="top"  >');

   marco.document.write('      <TD WIDTH="20%" BACKGROUND="../../img/GRAFICOS/bgTopGray.gif" >');
   marco.document.write('        <P >');
   marco.document.write('        <FONT COLOR="#000066" SIZE="1" FACE="Verdana,Arial,Helvetica, sans-serif"><STRONG>');
   if (idioma==K_ESPANYOL)
   {
     marco.document.write('        HORA');
   }
   else if (idioma==K_FRANCES)
   {
     marco.document.write('        HEURE');
   }
   else
   {
     marco.document.write('        HOUR');
   }
   marco.document.write('        <\/STRONG><\/FONT>');
   marco.document.write('        <\/P>');
   marco.document.write('      <\/TD>');

   marco.document.write('      <TD WIDTH="80%" BACKGROUND="../../img/GRAFICOS/bgTopGray.gif" >');
   marco.document.write('        <P >');
   marco.document.write('        <FONT COLOR="#000066" SIZE="1" FACE="Verdana,Arial,Helvetica, sans-serif"><STRONG>');
   if (idioma==K_ESPANYOL)
   {
     marco.document.write('        T&Iacute;TULO');
   }
   else if (idioma==K_FRANCES)
   {
     marco.document.write('        T&Icirc;TRE');
   }
   else
   {
     marco.document.write('        TITLE');
   }
   marco.document.write('        <\/STRONG><\/FONT>');
   marco.document.write('        <\/P>');
   marco.document.write('      <\/TD>');


   marco.document.write(' <\/TR>');

   marco.document.write(' <TR>');
   marco.document.write('      <TD HEIGHT="15" BACKGROUND="../../img/GRAFICOS/bgTopAzul.gif" >');
   marco.document.write('      <BR>');
   marco.document.write('      <\/TD>');
   marco.document.write('      <TD BACKGROUND="../../img/GRAFICOS/bgTopAzul.gif">');
   marco.document.write('      <BR>');
   marco.document.write('      <\/TD>');
   marco.document.write(' <\/TR>');

   for (var i=0; i<bitacora.length; i++)
   {
     // alert("Apunte "+bitacora[i][B_HORA]+" "+bitacora[i][B_MINUTO]+" "+bitacora[i][B_SEGUNDO]+"\n "+bitacora[i][B_TITULO]+"\n"+bitacora[i][B_URL]+" ");
     if ((i%2)==0)
     {   marco.document.write('   <TR ALIGN="left" VALIGN="top"   >'); }
     else
     {   marco.document.write('   <TR ALIGN="left" VALIGN="top"   >');     }

     marco.document.write('      <TD HEIGHT="15" BACKGROUND="../../img/GRAFICOS/bgTopAzul.gif" >');
     marco.document.write('        <P >');
     marco.document.write('        <FONT COLOR="#FFFFFF" SIZE="1" FACE="Verdana,Arial,Helvetica, sans-serif"><STRONG>');


     if (bitacora[i][B_HORA]<10)
     {
       marco.document.write('       0'+bitacora[i][B_HORA]+':');
     }
     else
     {
       marco.document.write('        '+bitacora[i][B_HORA]+':');
     }

     if (bitacora[i][B_MINUTO]<10)
     {
       marco.document.write('       0'+bitacora[i][B_MINUTO]+':');
     }
     else
     {
       marco.document.write('        '+bitacora[i][B_MINUTO]+':');
     }

     if (bitacora[i][B_SEGUNDO]<10)
     {
       marco.document.write('       0'+bitacora[i][B_SEGUNDO]);
     }
     else
     {
       marco.document.write('        '+bitacora[i][B_SEGUNDO]);
     }

     marco.document.write('        <\/STRONG><\/FONT>');
     marco.document.write('        <\/P>');
     marco.document.write('      <\/TD>');

     marco.document.write('      <TD  BACKGROUND="../../img/GRAFICOS/bgTopAzul.gif" >');
     marco.document.write('        <P >');
     marco.document.write('        <FONT COLOR="#FFFFFF" SIZE="1" FACE="Verdana,Arial,Helvetica, sans-serif"><STRONG>');
     marco.document.write('        <A HREF="'+bitacora[i][B_URL]+'" CLASS="blanca"  >');
     marco.document.write( '         <IMG SRC="../../img/ICONOS/refrescar.gif" WIDTH="16" HEIGTH="16" ALIGN="absmiddle" BORDER="0"  HSPACE="10"> ' );
     marco.document.write('        '+bitacora[i][B_TITULO]);
     marco.document.write('        <\/A>');
     marco.document.write('        <\/STRONG><\/FONT>');
     marco.document.write('        <\/P>');
     marco.document.write('      <\/TD>');

     marco.document.write('   <\/TR>');
   } // fpara

   marco.document.write(' <TR>');
   marco.document.write('      <TD HEIGHT="15" BACKGROUND="../../img/GRAFICOS/bgTopAzul.gif" >');
   marco.document.write('      <BR>');
   marco.document.write('      <\/TD>');
   marco.document.write('      <TD BACKGROUND="../../img/GRAFICOS/bgTopAzul.gif">');
   marco.document.write('      <BR>');
   marco.document.write('      <\/TD>');
   marco.document.write(' <\/TR>');


   marco.document.write('<\/TABLE>');

}
// ==============================================
// FIN BITACORA
// ==============================================




// ==============================================
// NOTICIAS
// ==============================================
// Diseño: Las noticias se presentarán mediante una
//         estructura de directorio o árbol de dos
//         niveles:
//         <+ | -> <MES> <AÑO>
//             <Dia semana> , <día mes>: <título noticia>
//             ....
//             <Dia semana> , <día mes>: <título noticia>
//         ...
//         ...
//         ...
//         <+ | -> <MES> <AÑO>
//             <Dia semana> , <día mes>: <título noticia>
//             ....
//             <Dia semana> , <día mes>: <título noticia>
//
//         donde el usuario decidirá qu&eacute; niveles visualizar.
//
// Implementación: La t&eacute;cnica de implementación se basará en Javascript
//                 y Estilos:
//                 Una función JS escribirá todo el código HTML del directorio
//                 de noticias, ordenadas por año, mes y dia de celebración,
//                 considerando que cada bloque de actividades de cada mes estará
//                 inicialmente 'oculto' (STYLE="display:none | block")
//                 y mediante el control de eventos onClick sobre el icono <+ | ->
//                 se invertirá la visibilidad de las mismas.
//

// Base de datos para Directorio de noticias
// Esquema: [ [ANYO, MES, DIAMES, [TITULO NOTICIA ESPAÑOL, TITULO NOTICIA INGLES, TITULO NOTICIA FRANCES], URL, PAIS], ... ]
// Ejemplo: [ [2003, 5, 29, ["Título noticia español","Título noticia ingles","Título noticia frances"], "./ejemplo/index.html"], paises[P_ESPANYA][top.portada.idioma] ]
//
// NOTA: La URL normalmente es relativa a la página web que presenta el directorio y corresponde
//       con un resumen o breve descripción de la noticia.
//


noticias=new Array();

// Indices para esquema relacional
N_ANYO=0;
N_MES=1;
N_DIAMES=2;
N_TITULO=3;
N_URL=4;
N_PAIS=5;

// Base de datos de noticias
// NOTA: Para añadir una noticia, copie y pegue un nuevo registro 'noticia' y modifique sus campos
//       Para eliminar una noticia, simplemente borre el registro 'noticia' correspondiente
// noticias.push(              new Array(2003,5,29,
//                                      new Array ("Título noticia español",
//                                                 "Título noticia ingles",
//                                                 "Título noticia frances" ),
//                                      "./ejemplo/index.html",
//                                      P_ESPANYA)
//               );

M_ENERO=0;
M_FEBRERO=1;
M_MARZO=2;
M_ABRIL=3;
M_MAYO=4;
M_JUNIO=5;
M_JULIO=6;
M_AGOSTO=7;
M_SEPTIEMBRE=8;
M_OCTUBRE=9;
M_NOVIEMBRE=10;
M_DICIEMBRE=11;									 									 
									 
									 
									 
noticias[noticias.length]= new Array(2005,M_AGOSTO,18,
                                     new Array (" Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA  ; ",
                                                " Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA  ; ",
                                                " Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA ; " ),
                                     "../noticias/Seminario_abierto/seminario_abierto.html",
                                     P_ARGENTINA);
									 
noticias[noticias.length]= new Array(2005,M_SEPTIEMBRE,15,
                                     new Array (" Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA  ; ",
                                                " Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA  ; ",
                                                " Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA ; " ),
                                     "../noticias/Seminario_abierto/seminario_abierto.html",
                                     P_ARGENTINA);
									 
noticias[noticias.length]= new Array(2005,M_OCTUBRE,20,
                                     new Array (" Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA  ; ",
                                                " Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA  ; ",
                                                " Seminario de Historia y Cultura de la Arquitectura y la Ciudad. UNIVERSIDAD TORCUATO DI TELLA ; " ),
                                     "../noticias/Seminario_abierto/seminario_abierto.html",
                                     P_ARGENTINA);									 									 

noticias[noticias.length]= new Array(2005,M_JUNIO,20,
                                     new Array (" TRAINING WORKSHOP: MEMORIES AND HISTORY: USING MATERIAL CULTURE AND ARCHAEOLOGICAL SIURCES AS ALTERNATIVE HISTORY ",
                                                " TRAINING WORKSHOP: MEMORIES AND HISTORY: USING MATERIAL CULTURE AND ARCHAEOLOGICAL SIURCES AS ALTERNATIVE HISTORY ",
                                                " TRAINING WORKSHOP: MEMORIES AND HISTORY: USING MATERIAL CULTURE AND ARCHAEOLOGICAL SIURCES AS ALTERNATIVE HISTORY " ),
                                     "../noticias/CODESRIA&SEPHIS/Codesria&sephis.html",
                                     P_AFRICA);
									 
noticias[noticias.length]= new Array(2005,M_JULIO,11,
                                     new Array (" CURSO EXPERIMENTAL: &quot;Summer School: Conservacion, gestion y valorizacion del patrimonio arqueologico-naturalistico del area mediteranea&quot; ",
                                                " EXPERIMENTAL COURSE: &quot;Summer school: in Conservation, Management and Evaluation of the archaeological heritage of the Prefecture of Lucca (Tuscany, Italy) and the Mediterranean area&quot; ",
                                                " EXPERIMENTAL COURSE: &quot;Summer school: in Conservation, Management and Evaluation of the archaeological heritage of the Prefecture of Lucca (Tuscany, Italy) and the Mediterranean area&quot; " ),
                                     "../noticias/SummerSchool_Lucca-05/summerschool.html",
                                     P_ITALIA);
									 
noticias[noticias.length]= new Array(2005,M_SEPTIEMBRE,15,
                                     new Array (" CFP: Mythical landscapes, September 15-17, Yerevan, Armenia. ; ",
                                                " CFP: Mythical landscapes, September 15-17, Yerevan, Armenia. ; ",
                                                " CFP: Mythical landscapes, September 15-17, Yerevan, Armenia. ; " ),
                                     "../../doc/CFP.Yerevan.doc",
                                     P_ARMENIA);									 
									 
noticias[noticias.length]= new Array(2005,M_JUNIO,25,
                                     new Array (" Exposici&oacute;n: <em>&quot;Ser arquitecto&quot;</em> Homenaje a Andr&eacute; Wogenscky. Del 14 de abril al 25 de junio de 2005 ; ",
                                                " Exposure: <em>&quot;Be architect&quot;</em> Homage to Andr&eacute; Wogenscky. from 14 April to 25 June 2005 ; ",
                                                " Exposition :<em>&quot;&ecirc;tre  architecte&quot;</em> Hommage &agrave; Andr&eacute; Wogenscky. 14 avril - 25 juin 2005 ; " ),
                                     "../noticias/Lecorbusier/lecorbusier",
                                     P_FRANCIA);
									 
noticias[noticias.length]= new Array(2005,M_OCTUBRE,01,
                                     new Array (" BECA DE POSTGRADO EN TURISMO CULTURAL + MASTER EN GESTION CULTURAL ; ",
                                                " POSTGRADUATE COURS IN CULTURAL TOURISM + MASTER IN CULTURAL MANAGEMENT ; ",
                                                " POSTGRADUATE COURS IN CULTURAL TOURISM + MASTER IN CULTURAL MANAGEMENT ; " ),
                                     "../noticias/TURESPANA/turespana.html",
                                     P_ESPANYA);
									 
noticias[noticias.length]= new Array(2005,M_SEPTIEMBRE,26,
                                     new Array (" UNIVERSIDAD EUROPEA DE VERANO. Mission Val de Loire. Del 26 al 30 septiembre 2005.; ",
                                                " EUROPEAN SUMMER SCHOOL. Mission Val de Loire. 26 to 30 September 2005.; ",
                                                " UNIVERSIT&Eacute; EUROP&Eacute;ENNE D'&Eacute;T&Eacute;. Mission Val de Loire. 26 au 30 septembre 2005.; " ),
                                     "../noticias/Valdeloire/Valdeloire2005.html",
                                     P_FRANCIA);
									 
noticias[noticias.length]= new Array(2005,M_SEPTIEMBRE,21,
                                     new Array (" I SIMPOSIO INTERNACIONAL DE CULTURA POPULAR Y CARNAVAL ; ",
                                                " I SIMPOSIO INTERNACIONAL DE CULTURA POPULAR Y CARNAVAL ; ",
                                                " I SIMPOSIO INTERNACIONAL DE CULTURA POPULAR Y CARNAVAL ; " ),
                                     "../noticias/ISimposio_Carnaval/ISimposio.html",
                                     P_COLOMBIA);
									 									 
function Noticias_Sort(a,b)

// Criterio de Ordenación cronológica de noticias
// a delante b --> return <0
// a igual b   --> return 0
// a despues b --> return >0
{

  if ( a[N_ANYO]> b[N_ANYO] )
  {   return -1;  }
  else if ( a[N_ANYO]< b[N_ANYO] )
  {   return 1;   }
  else if ( a[N_ANYO]== b[N_ANYO] )
  {
      if ( a[N_MES] > b[N_MES] )
      {  return -1;    }
      else if ( a[N_MES] < b[N_MES] )
      {  return 1;     }
      else if ( a[N_MES] == b[N_MES] )
      {
           if ( a[N_DIAMES] > b[N_DIAMES] )
           {   return -1;   }
           else if ( a[N_DIAMES] < b[N_DIAMES] )
           {   return 1;    }
           else
           {   return 0;    }

      }
  }
} // Ffuncion Noticias_Sort


// Ordenamos noticias
noticias.sort(Noticias_Sort);

function Noticias_SwapDisplay(marco_str, idimg, iddiv)
// Intercambio iconos y visibilidad bloque [mes noticias]
{

   if (CSSQ_Display(marco_str, iddiv))
   {
       CSSSet_Display(marco_str, iddiv,"none");
   }
   else
   {
       CSSSet_Display(marco_str, iddiv,"block");
   } // Fsi

} // Ffuncion


function Noticias_Print(marco_str, idioma)
// Muestra todas las noticias en forma de árbol o directorio interactivo
{
    var oldanyo=0;
    var oldmes=0;
    var IDimg, IDdiv;
    var fecha;
    var marco=eval(marco_str);
    var j;

    var i =0;
    while (i<noticias.length)
    {
        oldanyo=noticias[i][N_ANYO];
        oldmes=noticias[i][N_MES];

        // Encabezado Mes

        IDimg='img'+noticias[i][N_ANYO]+'m'+noticias[i][N_MES];
        IDdiv='div'+noticias[i][N_ANYO]+'m'+noticias[i][N_MES];

        marco.document.write( '<P > ');
        marco.document.write( '<A HREF="#" onClick="self.top.Noticias_SwapDisplay(\''+
                                  marco_str+'\',\''+
                                  IDimg+'\',\''+
                                  IDdiv+'\');"  > ');
        marco.document.write( '<IMG ID="'+IDimg+'" NAME="'+IDimg+'" '+' BORDER="0" '+
                             'SRC="../../img/ICONOS/base_datos/gr_maletin.gif" WIDTH="22"  HEIGHT="12" >' );
 
        marco.document.write( '<SPAN CLASS="titulo" >');
        j=noticias[i][N_MES];
        marco.document.write( ' '+meses[idioma][j]+' '+noticias[i][N_ANYO] );
        marco.document.write( '<\/SPAN>');
        marco.document.write( '<\/A>');
        marco.document.write( '<\/P> ');

        marco.document.write( '   <DIV ID="'+IDdiv+'" NAME="'+IDdiv+'" '+
                                 ' '+
                                 'STYLE="display:none; position:relative;" >' );

        // Listado de noticias del mes

        while((i<noticias.length)&&(oldanyo==noticias[i][N_ANYO])&&(oldmes==noticias[i][N_MES]))
        {
           fecha=new Date(noticias[i][N_ANYO], noticias[i][N_MES], noticias[i][N_DIAMES]);

           marco.document.write( '<IMG SRC="../../img/ICONOS/flechita.gif" WIDTH="16" HEIGTH="16" ALIGN="middle" BORDER="0" >' );
           marco.document.write( '<SPAN CLASS="negrita" >');
           marco.document.write( dias[idioma][fecha.getDay()]+' '+noticias[i][N_DIAMES]+', ' );
           marco.document.write( paises[noticias[i][N_PAIS]][idioma] );
           marco.document.write( '   <\/SPAN>');
           marco.document.write( '   <A HREF="#"  onClick="self.top.Noticia_View('+
                                                                           '\''+
                                                                           noticias[i][N_URL]+
                                                                           '\');"  '+
                                                                           ' CLASS="txt-normal" > ');
           marco.document.write( noticias[i][N_TITULO][idioma] );
           marco.document.write( '   <\/A>');
           marco.document.write( '   <BR><BR>');
          // alert("NOTICIAS URL "+noticias[i][N_URL]);
           i++;
        }; // Fmientras

        // alert("CIERRRE DIV "+i);
        marco.document.write( '   <\/DIV>' );

    } // Fmientras

} // Ffuncion Noticias_Print

function Noticia_View(noticia)
// Abre una nueva ventana con la ficha o resumen de una noticia
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=yes,resizable=no,width=620,height=550,screenX=150,screenY=150';
  var nombre = "noticia"
  var url_abs

  var ventana=window.open(noticia,nombre,ops);
  ventana.focus();

}
function Form_View(formulario)
// Abre una nueva ventana con la ficha o resumen de un formulario Miembro
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=yes,resizable=yes,width=780,height=600,screenX=600,screenY=800';
  var nombre = "formulario"

  var ventana=window.open(formulario,nombre,ops);
  ventana.focus();

}

function AEDP_View(form)
// Abre una nueva ventana con la ficha o resumen de un formulario AEDP
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=no,resizable=yes,width=680,height=440,screenX=300,screenY=500';
  var nombre = "formulario"

  var ventana=window.open(form,nombre,ops);
  ventana.focus();

}

function ventana_View(form)
// Abre una nueva ventana sin las herramientad de navegación a un tamaño determinado
{
  var ops='fullscreen=1,scrollbars=no,width=680,height=440';
  var nombre = "ventana";

  var ventana=window.open(form,nombre,ops);
  ventana.focus();

}

function Resolucion_View(form)
// Abre una nueva ventana con la ficha o resumen de una Resolucion
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=yes,resizable=yes,width=680,height=440,screenX=300,screenY=500';
  var nombre = "formulario";

  var ventana=window.open(form,nombre,ops);
  ventana.focus();

}

function Seminario_View(sifu)
// Abre una nueva ventana con la ficha o resumen de un seminario
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=yes,resizable=yes,width=550,height=500,screenX=150,screenY=150';
  var nombre = "seminario";

  var ventana=window.open(sifu,nombre,ops);
  ventana.focus();
  return (false);

}

function Actividad_View(sifu)
// Abre una nueva ventana con la ficha o resumen de una actividad
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=yes,resizable=yes,width=620,height=550,screenX=150,screenY=150';
  var nombre = "actividad";

  var ventana=window.open(sifu,nombre,ops);
  ventana.focus();
  return (false);

}

function irene_View(bar)
// Abre una nueva ventana con la ficha o resumen de una actividad
{
  //var ops='toolbar=no,location=no,status=no,chrome=yes,directories=no,menubar=no,close=no,titlebar=no,scrollbars=no,resizable=no,width=620,height=550,screenX=150,screenY=150';
  var ops='titlebar=no';
  var nombre = "irene"
  var ventana=window.open(bar,nombre,ops);
  ventana.focus();

}

function Seminarios_View(sifu)
// Abre una nueva ventana con la ficha o resumen de los seminarios SIFU
{
  var ops='toolbar=no,location=no,status=no,directories=no,menubar=no,scrollbars=yes,resizable=yes,width=770,height=565,screenX=150,screenY=150';
  var nombre = "acdhesion"

  var ventana=window.open(sifu,nombre,ops);
  ventana.focus();

}
// ==============================================
// FIN NOTICIAS
// ==============================================




function Bloque_SwapDisplay(marco_str, idimg, iddiv)
// Intercambio iconos y visibilidad bloque [mes noticias]
{

   if (CSSQ_Display(marco_str, iddiv))
   {
       CSSSet_Display(marco_str, iddiv,"none");
   }
   else
   {
       CSSSet_Display(marco_str, iddiv,"block");
   } // Fsi

} // Ffuncion


function Span_SwapDisplay(marco_str, idspan)
{

   if (CSSQ_Display(marco_str, idspan))
   {
       CSSSet_Display(marco_str, idspan,"none");
   }
   else
   {
       CSSSet_Display(marco_str, idspan,"inline");
   } // Fsi

} // Ffuncion

// ==============================================
// BIBLIOTECA
// ==============================================
// Diseño: Las referencias bibliográficas se presentarán
//         como lista con viñetas en diferentes páginas.
//         El usuario dispone de un índice de páginas.
//
// Implementación: La t&eacute;cnica de implementación se basará en PHP, junto con
//                 Javascript y Estilos:
//                 Una función JS desarrollará la interacciones con el índice
//                 de páginas, considerando que cada página se incluye en un bloque
//                 con las propiedades STYLE="display:none|block" según corresponda
//                 al evento de usuario realizado.
//

pag_actual='1';
function ShowPagina(marco_str,pagina)
// Oculta página anterior y muestra una nueva página
{
   // Ocultamos página actual
   CSSSet_Display(marco_str,'pag'+pag_actual,'none');
   CSSSet_Color(marco_str,'spag'+pag_actual,'#0000FF');
   CSSSet_Color(marco_str,'ipag'+pag_actual,'#0000FF');

   // Nueva página actual
   pag_actual=pagina;

   // Mostramos página actual
   CSSSet_Display(marco_str,'pag'+pag_actual,'block');
   CSSSet_Color(marco_str,'spag'+pag_actual,'#999999');
   CSSSet_Color(marco_str,'ipag'+pag_actual,'#999999');

} // Ffuncion

