<!--//
/**
 *Celestino, Roberto - utilidades js
 *[2003/08/05] - creacion
 */
 
/**
 *PREGENERADOS
 */
 function f_Pregen_Select(pform,pfield,pid){
    var i;
    if(document.forms[pform]){
       if(document.forms[pform].elements[pfield]){
          switch(document.forms[pform].elements[pfield].type){
	     case "select-multiple":
                if(document.forms[pform].elements[pfield].options.length&&document.forms[pform].elements[pfield].options[document.forms[pform].elements[pfield].selectedIndex].value!=pid){
                   for(i=0;i<document.forms[pform].elements[pfield].options.length;i++){
                      if(document.forms[pform].elements[pfield].options[i].value==pid){
                         document.forms[pform].elements[pfield].options[i].selected=!document.forms[pform].elements[pfield].options[i].selected;
                      }
                   }
                }
                break;
             case "select-one":
                document.forms[pform].elements[pfield].selectedIndex=0;
                if(document.forms[pform].elements[pfield].options.length&&document.forms[pform].elements[pfield].options[document.forms[pform].elements[pfield].selectedIndex].value!=pid){
                   for(i=0;i<document.forms[pform].elements[pfield].options.length;i++){
                      if(document.forms[pform].elements[pfield].options[i].value==pid){
                         document.forms[pform].elements[pfield].selectedIndex=i;
                         break;
                      }
                   }
                }
                break;
             case "text":
             case "button":
             case "submit":
             break;
             default:
                if(document.forms[pform].elements[pfield].length){
                   switch(document.forms[pform].elements[pfield][0].type){
                      case "checkbox":
                           if(pid.search(",")!=-1){
			      var tmparr,j;
			      tmparr=pid.split(",");
			      for(j=0;j<tmparr.length;j++){
			        pid=tmparr[j];
	                        for(i=0;i<document.forms[pform].elements[pfield].length;i++){
	                           if(document.forms[pform].elements[pfield][i].value==pid){
	                             document.forms[pform].elements[pfield][i].checked=!document.forms[pform].elements[pfield][i].checked;
	                           }
	                         }  			         
			      }
                              break;
                           }                           
                      case "radio":                      
	                   for(i=0;i<document.forms[pform].elements[pfield].length;i++){
	                      if(document.forms[pform].elements[pfield][i].value==pid){
	                         document.forms[pform].elements[pfield][i].checked=!document.forms[pform].elements[pfield][i].checked;
	                      }
	                   }
                   }
                }
          }
        if(document.forms[pform].elements[pfield].onchange){
          document.forms[pform].elements[pfield].onchange();
        }          
       }
    }
 }
 function f_Pregen_IsCualquieraDefault(){
    var valor=(document.location.toString()).toLowerCase();   
    var ret=0;   
    ret=ret||valor.search("buscalibre")!=-1;   
    return ret;
 }
 function f_Pregen_CargaOpciones(pelem,opciones){
    var i;
    var i_delmenosuno=0;
    if(opciones.length){
       pelem.options.length=0;
       for(i=0;i<opciones.length;i++){          
          if(opciones[i].value==-1) i_delmenosuno=i;
          pelem.options[i]=new Option(opciones[i].text,opciones[i].value);
       }
       if(f_Pregen_IsCualquieraDefault()){
       pelem.selectedIndex=i_delmenosuno;
       }else{
       pelem.selectedIndex=0;
       }
    }    
 }
 
  function f_Pregen_FechaNacimiento(pform,pmod){
   var d,m,y,tmp,ret;
   if(pform){
      if(pform.elements[pmod+"[fecha_nacimiento]"]){
         d=parseInt(pform.elements[pmod+"[fecha_d]"].options[pform.elements[pmod+"[fecha_d]"].selectedIndex].value);
         m=parseInt(pform.elements[pmod+"[fecha_m]"].options[pform.elements[pmod+"[fecha_m]"].selectedIndex].value);
         y=parseInt(pform.elements[pmod+"[fecha_y]"].options[pform.elements[pmod+"[fecha_y]"].selectedIndex].value);
         if(d&&m&&y){
            tmp=new Date(y,m-1,d);
            if(tmp.getDate()==d&&
               tmp.getFullYear()==y&&
               (tmp.getMonth()+1)==m){
               ret=true;
            }else{
               d=tmp.getDate();
               m=tmp.getMonth()+1;
               y=tmp.getFullYear();
               f_Pregen_Select(pform.name,pmod+"[fecha_d]",d);
               f_Pregen_Select(pform.name,pmod+"[fecha_m]",m);
               f_Pregen_Select(pform.name,pmod+"[fecha_y]",y);
               ret=false;
            }
            pform.elements[pmod+"[fecha_nacimiento]"].value=((d<10)?"0"+d:d)+"/"+((m<10)?"0"+m:m)+"/"+y;            
            return ret;
         }
      }
   }
 }
 
   function f_Pregen_Alter(pform,pfield,palt_key,palt_txt,palt_bool){
      var ki;             
      if(document){ if(document.forms[pform]){ if(document.forms[pform].elements){ if(document.forms[pform].elements[pfield]){ if(document.forms[pform].elements[pfield].options){
	 if(document.forms[pform].elements[pfield].options.length){
	    for(ki=0;ki<document.forms[pform].elements[pfield].options.length;ki++){
	       if(document.forms[pform].elements[pfield].options[ki].value==palt_key){
		  document.forms[pform].elements[pfield].options[ki].text=palt_txt;
		  break;
	       }
	    }
	 }else{

	 }
	 if(!palt_bool){
	    document.forms[pform].elements[pfield].selectedIndex=ki;
	 }
        if(document.forms[pform].elements[pfield].onchange){
          document.forms[pform].elements[pfield].onchange();
        }          	 
      }}}}}
   }          

//-->