function fechasBusquedaCorto()
    {
		var finicio;
		var htdigWords;
		if(document.busquedaArticulosC.fechainicio)
		{
		   finicio= document.busquedaArticulosC.fechainicio.value;
		   htdigWords=" and ("+finicio+" 05fria2002) ";	  
		           document.busquedaArticulosC.words.value+=htdigWords;
		}
		else
		{
		   htdigWords=" and (05fria2002) ";		  
           document.busquedaArticulosC.words.value+=htdigWords;
        }
     }  
    function fechasBusqueda(forma)
    {

		var finicio = document.forms[forma].fechainicio.options[document.forms[forma].fechainicio.selectedIndex].value;
		var ffinal = document.forms[forma].fechafin.options[document.forms[forma].fechafin.selectedIndex].value;
		var fechaInicial, fechaFinal;
		var unaFecha = /(\d+)-(\d+)-(\d+)/;
		var mes = new Array();
		var fechasBusq= new Array();
		var htdigWords;
		var cuantas=0;
		var fecha_fria= "05fria2002";
		
		if(finicio < ffinal)
		{
			alert("La fecha inicial de búsqueda debe ser menor o igual que la fecha final.");
			return 0;
		}
        //Adicionar las fechas
    with(document.forms[forma])
	{ 
        //Buscar todos los hidden llamados "SectionDate", para obtener la fecha codificada en el
        //estandar de las fechas de los tag Meta generados con el CMS
        //ejemplo: "08mayo2002"
		for(i=0; i< elements.length; i ++)
		{
			if(elements[i].name=="SectionDate" && elements[i].type == "hidden")
			{
				
			    //Armar la cadena lógica, para la busqueda
				if(ffinal<=cuantas && cuantas<=finicio)
				{
				
				    if (finicio==ffinal)
				    {
					    htdigWords=" and (";
				        htdigWords+=elements[i].value + " or ";			    
     				    htdigWords+=fecha_fria + ") ";
				    }      
				    else if(cuantas==ffinal)
				    {
				        htdigWords=" and (";
				        htdigWords+=elements[i].value + " or ";
				        htdigWords+=fecha_fria + " ";
				    }
				    else if(finicio==cuantas)
				    {
				        htdigWords+=" or "+elements[i].value + " ";
				        htdigWords+=" )";
				    }
				    else 
				        htdigWords+=" or "+elements[i].value;
				        
				    //alert(ffinal+"<="+cuantas+">="+finicio+" htdigW="+htdigWords+" cuantas="+cuantas);
				        
				}
				cuantas++;
			}
		}
      }

        //Adicionar la cadena lógica de fechas a la variable "words", parametro de htdig        
        document.forms[forma].words.value+=htdigWords;
        

    }

	function buscarArticulos(forma)
	{
	    forma="busquedaArticulosL";
	    //alert(forma+" " +document.forms[forma]);
		if(document.forms[forma].user_words.value == "")
			alert("Por favor, escriba la (s) palabra (s) clave de su búsqueda");
		else
		{
		    //Armar la cadena lógica de las palabras ingresada por el usuario y las
		    //subsecciones a buscar
		    palabrasBusqueda(forma);
		    //Adicionar la cadena lógica de las fechas sobre las cuales se debe buscar
		    fechasBusqueda(forma);
		    //alert(document.forma.words.value);
		    document.forms[forma].action="http://63.166.50.211/cgi-bin/htsearch";
		    document.forms[forma].submit();
	    }
	}
	function buscarArticulosCorto(forma)	
	{
	    //alert(forma+" " +document.forms[forma]);
		if(document.forms[forma].user_words.value == "")
			alert("Por favor, escriba la (s) palabra (s) clave de su búsqueda");
		else
		{
		    //Armar la cadena lógica de las palabras ingresada por el usuario y las
		    //subsecciones a buscar
		    palabrasBusqueda(forma);
		    //Adicionar la cadena lógica de las fechas sobre las cuales se debe buscar
		    fechasBusquedaCorto();
		    //alert(document.forms[forma].words.value);
		    document.forms[forma].action="http://63.166.50.211/cgi-bin/htsearch";
		    document.forms[forma].submit();
	    }
	}

	function palabrasBusqueda(forma)
	{
		var palabras =new String(document.forms[forma].user_words.value);
		var palabrasArray;
		var htdigWords;
		var cuantas=0;
		var espacios=/\s+/g;
		var espacios_iniciales=/^\s*/g;
		var espacios_final =/\s*$/;
		var comilla=/\"/g;
		var comita=/\'/g;
		var mas=/\+/g;


       //Eliminar los espacios repetidos entre palabrasde y todos los del inicio y los del final
        palabras = palabras.replace(comilla ,"");
        palabras = palabras.replace(comita ,"");
        palabras = palabras.replace(mas ,"");
        palabras = palabras.replace(espacios_iniciales,"");
		palabras = palabras.replace(espacios," ");        
        palabras = palabras.replace(espacios_final ,"");
        //alert(palabras);
    
    	
		with(document.forms[forma])
		{
		  //Formar la cadena lógica de las palabras y las opciones seleccionadas por el usuario
		  palabrasArray =palabras.split(" ");
		  htdigWords="( ";
		  		
		  for(i=0;i<palabrasArray.length;i++)
		  {
		    if(i==0)
		        htdigWords+=palabrasArray[i];
		    else if(! espacios.test(palabrasArray[i]))
		    {
                  if(forma == "busquedaArticulosL")
                  {
                        htdigWords+=" "+user_method.options[user_method.selectedIndex].value+" "+palabrasArray[i];
                  }
                  else
                  {
                        htdigWords+=" and "+palabrasArray[i];

                   }
             }
		       
		     
		        
		  }
		  htdigWords+=") ";

          //Adicionar las palabras clave especiales que me determinan las secciones a buscar
		  for(i=0; i< elements.length; i ++)
		  {
			if(elements[i].name=="seccion" && elements[i].type == "checkbox" && elements[i].checked==true)
			{
				cuantas++;
				if(cuantas==1)
				{
				    htdigWords+=" and (";
				    htdigWords+=""+elements[i].value + " ";
				}
				else
				{
				
				    htdigWords+="or "+elements[i].value + " ";
				}
			}
		  }
		  
		  if(cuantas>0)
		      htdigWords+=") "; 
		  
	      words.value=htdigWords;
		}
	
	}
	
	function escribir(palabras_buscadas)
{
	re = /\(\s(\s|\w+)+\)/g;
	ands = /\sand\s/g;
	ors  = /\sor\s/g;
	esp  = /\(\s/g;
	
	palabras = palabras_buscadas.match(re);
	if (palabras)
	{
		pal_reales = palabras[0].replace(ands,", ");
		pal_reales = pal_reales.replace(ors,", ");
		pal_reales = pal_reales.replace(esp,'"');
		pal_reales = pal_reales.replace(")",'"');	
	
		return pal_reales;
	}
}