var IMG_BASE_DIR='koltec/img/';

var form_value_red=-1;
var form_value_perim=0;
var form_value_numhilos=0;
var form_value_animal='';
var form_value_estaca='';
var form_value_separacion=0;
var form_value_hilo='';
var form_value_pastor='';
var form_value_pila='';
var form_value_aisl='';
var form_value_esquinas=0;
var form_value_aislesq='';

function set_separacion(num) {
  form_value_separacion=document.serie.separ.options[num].value;
}

function set_tipo_pila(num) {
  form_value_pila=document.serie.pila.options[num].value;
  switch(form_value_pila)
  {
    case 'BCOCHE':
      document.img_pila.src=IMG_BASE_DIR+'shim.gif';
      break;
    case 'PSOLAR':
      document.img_pila.src=IMG_BASE_DIR+'pko19.jpg';
      break;
    case 'SALCAL':
      document.img_pila.src=IMG_BASE_DIR+'pvat12.jpg';
      break;
    case 'P75V90AH':
      document.img_pila.src=IMG_BASE_DIR+'psuperpila.jpg';
      break;
    case 'P9V55AH':
      document.img_pila.src=IMG_BASE_DIR+'pvat9v55.jpg';
      break;
    case 'P9V75AH':
      document.img_pila.src=IMG_BASE_DIR+'pvat9v75.jpg';
      break;
    case 'P9V120AH':
      document.img_pila.src=IMG_BASE_DIR+'pvat9.jpg';
      break;
    case 'P9V130AH':
      document.img_pila.src=IMG_BASE_DIR+'pvat9-130.jpg';
      break;
    case 'P9V150AH':
      document.img_pila.src=IMG_BASE_DIR+'pvat9-130.jpg';
      break;
    case 'NO':   // no aplicable
      document.img_pila.src=IMG_BASE_DIR+'shim.gif';
      break;
    case '':   // no seleccionado
    default:
      document.img_pila.src=IMG_BASE_DIR+'shim.gif';
  }
}

function set_tipo_pastor(num) {
  form_value_pastor=document.serie.pastor.options[num].value;
  var pnum=0; // bateria
  var theForm = document.serie;
  var NumState = theForm.pila.options.length; // borra lista
  while(NumState > 0) {
    NumState--;
    theForm.pila.options[NumState] = null;
  }
  switch(form_value_pastor)
  {
    case 'SE250':
      document.img_pastor.src=IMG_BASE_DIR+'pvulcan.jpg';
      break;
    case 'SE350':
      document.img_pastor.src=IMG_BASE_DIR+'pvulcan.jpg';
      break;
    case 'SE450':
      document.img_pastor.src=IMG_BASE_DIR+'pvulcan.jpg';
      break;
    case 'CSIKOS':
      document.img_pastor.src=IMG_BASE_DIR+'pcsikos.jpg';
      break;
    case 'ES20':
      document.img_pastor.src=IMG_BASE_DIR+'pes20.jpg';
      break;
    case 'DRAGON12':
      document.img_pastor.src=IMG_BASE_DIR+'pdragon12.jpg';
        theForm.pila.options[pnum++] = new Option("Super Alcalina 12V 60Ah", "SALCAL");
        theForm.pila.options[pnum++] = new Option("Batería de Coche (aportado por Vd.)", "BCOCHE");
        theForm.pila.options[pnum++] = new Option("Panel Solar", "PSOLAR");
      break;
    case 'ST':
      document.img_pastor.src=IMG_BASE_DIR+'pst.jpg';
        theForm.pila.options[pnum++] = new Option("Pila 7.5V 90Ah", "P75V90AH");
      break;
    case 'EC1000':
    case 'EC1500':
      document.img_pastor.src=IMG_BASE_DIR+'pec1000.jpg';
        theForm.pila.options[pnum++] = new Option("Pila 9V 55Ah", "P9V55AH");
        theForm.pila.options[pnum++] = new Option("Pila 9V 75Ah", "P9V75AH");
        theForm.pila.options[pnum++] = new Option("Pila 9V 120Ah", "P9V120AH");
      break;
    case 'EC2100':
      document.img_pastor.src=IMG_BASE_DIR+'pec2100.jpg';
        theForm.pila.options[pnum++] = new Option("Pila 9V 120Ah", "P9V120AH");
        theForm.pila.options[pnum++] = new Option("Pila 9V 130Ah", "P9V130AH");
        theForm.pila.options[pnum++] = new Option("Pila 9V 150Ah", "P9V150AH");
        theForm.pila.options[pnum++] = new Option("Super Alcalina 12V 60Ah", "SALCAL");
        theForm.pila.options[pnum++] = new Option("Batería de Coche", "BCOCHE");
        theForm.pila.options[pnum++] = new Option("Panel Solar", "PSOLAR");
      break;
    case 'EC2100S':
      document.img_pastor.src=IMG_BASE_DIR+'pec2100solar.jpg';
      break;
    case 'EB10':
      document.img_pastor.src=IMG_BASE_DIR+'pminiking.jpg';
        theForm.pila.options[pnum++] = new Option("Pila 9V 55Ah", "P9V55AH");
        theForm.pila.options[pnum++] = new Option("Pila 9V 75Ah", "P9V75AH");
      break;
    case '':   // no seleccionado
    default:
      document.img_pastor.src=IMG_BASE_DIR+'shim.gif';
  }
  if (!pnum)
    theForm.pila.options[pnum++] = new Option("--- No Aplicable ---", "NO");
  theForm.pila.size = pnum;
  theForm.pila.selectedIndex = 0;
  set_tipo_pila(0);
}

function get_aisl_image(name) {
  switch(name)
  {
    case 'KO33':
      return IMG_BASE_DIR+'pko33.jpg';
      break;
    case 'KO33/1':
      return IMG_BASE_DIR+'pko33-1.jpg';
      break;
    case 'KO33/2':
      return IMG_BASE_DIR+'pko33-2.jpg';
      break;
    case 'KO41':
      return IMG_BASE_DIR+'pko41.jpg';
      break;
    case 'KO42':
      return IMG_BASE_DIR+'pko42.jpg';
      break;
    case 'KO43':
      return IMG_BASE_DIR+'shim.gif';
      break;
    case 'KO44':
      return IMG_BASE_DIR+'shim.gif';
      break;
    case 'KO45':
      return IMG_BASE_DIR+'pko45.jpg';
      break;
    case 'KO45B':
      return IMG_BASE_DIR+'pko45b.jpg';
      break;
    case 'KO46':
      return IMG_BASE_DIR+'pko46.jpg';
      break;
    case 'KO46B':
      return IMG_BASE_DIR+'pko46b.jpg';
      break;
    case 'KO47':
      return IMG_BASE_DIR+'shim.gif';
      break;
    case 'KO49':
      return IMG_BASE_DIR+'pko49.jpg';
      break;
    case 'KO50A':
      return IMG_BASE_DIR+'pko50a.jpg';
      break;
    case 'KO52A':
      return IMG_BASE_DIR+'pko52a.jpg';
      break;
    case 'KO54':
      return IMG_BASE_DIR+'shim.gif';
      break;
    case 'KO55':
      return IMG_BASE_DIR+'shim.gif';
      break;
    case 'KO60':
      return IMG_BASE_DIR+'pko60.jpg';
      break;
    case 'KO68':
      return IMG_BASE_DIR+'pko68.jpg';
      break;
    case 'KO72':
      return IMG_BASE_DIR+'pko72.jpg';
      break;
    case 'KO73':
      return IMG_BASE_DIR+'pko73.jpg';
      break;
    case 'KO74':
      return IMG_BASE_DIR+'pko74.jpg';
      break;
    case 'KO76':
      return IMG_BASE_DIR+'pko76.jpg';
      break;
    case 'AMPUNT':
      return IMG_BASE_DIR+'p80041.jpg';
      break;
    case 'NO':
      return IMG_BASE_DIR+'shim.gif';
      break;
    case '':   // no seleccionado
    default:
      return IMG_BASE_DIR+'shim.gif';
  }
}

function set_tipo_aisl(num) {
  form_value_aisl=document.serie.aisl.options[num].value;
  document.img_aisl.src=get_aisl_image(form_value_aisl);
}

function set_tipo_aislesq(num) {
  form_value_aislesq=document.serie.aislesq.options[num].value;
  document.img_aislesq.src=get_aisl_image(form_value_aislesq);
}

function pon_separaciones(tipo) {
  var theForm = document.serie;

  var NumState = theForm.aisl.options.length; // borra lista de aisladores
  while(NumState > 0) {
    NumState--;
    theForm.aisl.options[NumState] = null;
  }
  var num=0;

  switch(tipo)
  {
    case "3-4":
      theForm.separ.options[num++] = new Option('3.0 m','30');
      theForm.separ.options[num++] = new Option('3.5 m','35');
      theForm.separ.options[num++] = new Option('4.0 m','40');
      break;
    case "4-5":
      theForm.separ.options[num++] = new Option('4.0 m','40');
      theForm.separ.options[num++] = new Option('4.5 m','45');
      theForm.separ.options[num++] = new Option('5.0 m','50');
      break;
    default:
      return IMG_BASE_DIR+'shim.gif';
  }

  theForm.separ.size = num;
  pos = Math.round(num/2-0.5);
  theForm.separ.selectedIndex = pos;
  set_separacion(pos);
}

function pon_tipos_aisl() {
  if (form_value_estaca=='' || form_value_hilo=='') return;

  var theForm = document.serie;

  var NumState = theForm.aisl.options.length; // borra lista de aisladores
  while(NumState > 0) {
    NumState--;
    theForm.aisl.options[NumState] = null;
  }
  var num=0;

  var NumState = theForm.aislesq.options.length; // borra lista de aisladores de esquinas
  while(NumState > 0) {
    NumState--;
    theForm.aislesq.options[NumState] = null;
  }
  var xnum=0;

  var e=form_value_estaca;
  var h=form_value_hilo;
  var h_is_hilo = ( form_value_hilo!='C12MM' && form_value_hilo!='C20MM' &&
                    form_value_hilo!='C40MM' && form_value_hilo!='CT40MM' &&
                    form_value_hilo!='C60MM' && form_value_hilo!='MALLAOV' &&
                    form_value_hilo!='NYL6MM' );
  var h_is_cinta40 = ( form_value_hilo=='C12MM' || form_value_hilo=='C20MM' ||
                       form_value_hilo=='C40MM' || form_value_hilo=='CT40MM' );

  if (form_value_estaca=='MADERA') {
    if (h_is_cinta40) {
      theForm.aisl.options[num++] = new Option("Aisladores KO47", "KO47");
    }
    if (form_value_hilo=='C40MM' || form_value_hilo=='CT40MM' || form_value_hilo=='C60MM') {
      theForm.aisl.options[num++] = new Option("Aisladores KO43", "KO43");
    }
    if (h_is_cinta40 || form_value_hilo=='C60MM') {
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO43 (de plástico)", "KO43");
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO44 (de ganchos de metal)", "KO44");
    }
    if (h_is_hilo || form_value_hilo=='NYL6MM') {
      theForm.aisl.options[num++] = new Option("Aisl. KO45 (de aro)", "KO45");
      theForm.aisl.options[num++] = new Option("Aisl. KO45b (de aro pequeño)", "KO45B");
      theForm.aisl.options[num++] = new Option("Aisl. KO72 (acanalado)", "KO72");
      theForm.aisl.options[num++] = new Option("Aisl. KO74 (acanalado grande)", "KO74");
      theForm.aisl.options[num++] = new Option("Aisl. KO76 (de clavo)", "KO76");
      theForm.aisl.options[num++] = new Option("Aisl. Amarillo de Puntilla", "AMPUNT");

      theForm.aislesq.options[xnum++] = new Option("Aisl. KO41 (de rollo de plástico)", "KO41");
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO49 (de rollo de porcelana)", "KO49");
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO33 (de huevo sin Ganchos)", "KO33");
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO33/1 (de huevo con 1 Gancho)", "KO33/1");
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO33/2 (de huevo con 2 Ganchos)", "KO33/2");
    }
    if (h_is_hilo) {
      theForm.aislesq.options[xnum++] = new Option("Aisl. KO42 (de huevo pequeño)", "KO42");
    }
  }

  if (form_value_estaca=='EMETAL') {
    if (h_is_hilo || form_value_hilo=='NYL6MM') {
      theForm.aisl.options[num++] = new Option("Aisl. KO46 (de aro)", "KO46");
      theForm.aisl.options[num++] = new Option("Aisl. KO46b (de aro pequeño)", "KO46B");
      theForm.aisl.options[num++] = new Option("Aisl. KO73 (acanalado)", "KO73");
    }
  }

  if (form_value_estaca=='VMETAL') {
    if (h_is_hilo) {
      theForm.aisl.options[num++] = new Option("Aisl. KO60 (pequeño)", "KO60");
      theForm.aisl.options[num++] = new Option("Aisl. KO68 (grande)", "KO68");
    }
    if (form_value_hilo=='NYL6MM') {
      theForm.aisl.options[num++] = new Option("Aisladores KO54", "KO54");
    }
    if (form_value_hilo=='C12MM' || form_value_hilo=='C20MM' || form_value_hilo=='C40MM') {
      theForm.aisl.options[num++] = new Option("Aisladores KO55", "KO55");
    }
  }

  if (form_value_estaca=='VACERO') {
      theForm.aisl.options[num++] = new Option("Aisladores KO50a (se incluyen 2 por varilla)", "KO50A");
    if (form_value_hilo=='NYL6MM') {
      theForm.aisl.options[num++] = new Option("Aisladores KO54", "KO54");
    }
    if (h_is_cinta40) {
      theForm.aisl.options[num++] = new Option("Aisladores KO55", "KO55");
    }
  }

  if (form_value_estaca=='FIBR105' || form_value_estaca=='FIBR160') {
      theForm.aisl.options[num++] = new Option("Aisl. KO52a (se incluyen 2 por varilla)", "KO52A");
    if (form_value_hilo=='NYL6MM') {
      theForm.aisl.options[num++] = new Option("Aisladores KO54", "KO54");
    }
    if (h_is_cinta40) {
      theForm.aisl.options[num++] = new Option("Aisladores KO55", "KO55");
    }
  }

  if (form_value_estaca=='PL90' || form_value_estaca=='PL133') {
      theForm.aisl.options[num++] = new Option("--- Incorporados en las estacas ---", "NO");
  }

  if (!num)
    theForm.aisl.options[num++] = new Option("--- No Aplicable ---", "NO");

  if (!xnum)
    theForm.aislesq.options[xnum++] = new Option("--- No Aplicable ---", "NO");

  theForm.aisl.size = num;
  theForm.aisl.selectedIndex = 0;
  theForm.aislesq.size = xnum;
  theForm.aislesq.selectedIndex = 0;
  set_tipo_aisl(0);
  set_tipo_aislesq(0);
}

function set_tipo_estaca(num) {
  var estaca=document.serie.estaca.options[num].value;
  if (form_value_animal=="OV"  && (form_value_estaca=='' || form_value_estaca=='MALLAOV' || estaca=='MALLAOV'))
  {
    var theForm = document.serie;
    var NumState = theForm.hilo.options.length; // borra lista de hilos
    while(NumState > 0) {
      NumState--;
      theForm.hilo.options[NumState] = null;
    }
    var hnum=0; // hilo
    if (estaca=="MALLAOV")
    {
      theForm.hilo.options[hnum++] = new Option("Malla de oveja", "MALLAOV");
    }
    else
    {
      theForm.hilo.options[hnum++] = new Option("Hilo de plástico de 6 conductores", "PL6C");
      theForm.hilo.options[hnum++] = new Option("Hilo de Aluminio de 1,6 mm", "AL16MM");
    }
    theForm.hilo.size = hnum;
    theForm.hilo.selectedIndex = 0;
    set_tipo_hilo(0);
  }
  form_value_estaca=estaca;

  switch(form_value_estaca)
  {
    case 'VACERO':
      document.img_estaca.src=IMG_BASE_DIR+'pko50.jpg';
      break;
    case 'EMETAL':
      document.img_estaca.src=IMG_BASE_DIR+'shim.gif';
      break;
    case 'VMETAL':
      document.img_estaca.src=IMG_BASE_DIR+'shim.gif';
      break;
    case 'MADERA':
      document.img_estaca.src=IMG_BASE_DIR+'shim.gif';
      break;
    case 'FIBR105':
      document.img_estaca.src=IMG_BASE_DIR+'pko52.jpg';
      break;
    case 'FIBR160':
      document.img_estaca.src=IMG_BASE_DIR+'pko52.jpg';
      break;
    case 'PL90':
      document.img_estaca.src=IMG_BASE_DIR+'pko53.jpg';
      break;
    case 'PL133':
      document.img_estaca.src=IMG_BASE_DIR+'pko53.jpg';
      break;
    case 'MALLAOV':
      document.img_estaca.src=IMG_BASE_DIR+'pmalla.jpg';
      break;
    case '':   // no seleccionado
    default:
      document.img_estaca.src=IMG_BASE_DIR+'shim.gif';
  }
  pon_tipos_aisl();
}

function set_tipo_hilo(num) {
  form_value_hilo=document.serie.hilo.options[num].value;
  switch(form_value_hilo)
  {
    case 'MALLAOV':
      document.img_hilo.src=IMG_BASE_DIR+'pmalla.jpg';
      break;
    case 'C12MM':
      document.img_hilo.src=IMG_BASE_DIR+'p39036.jpg';
      break;
    case 'C20MM':
      document.img_hilo.src=IMG_BASE_DIR+'p39072.jpg';
      break;
    case 'C40MM':
      document.img_hilo.src=IMG_BASE_DIR+'p39074.jpg';
      break;
    case 'CT40MM':
      document.img_hilo.src=IMG_BASE_DIR+'p39075.jpg';
      break;
    case 'AL16MM':
      document.img_hilo.src=IMG_BASE_DIR+'pbayshock.jpg';
      break;
    case 'CGALV':
      document.img_hilo.src=IMG_BASE_DIR+'pcablegal.jpg';
      break;
    case 'NYL6MM':
      document.img_hilo.src=IMG_BASE_DIR+'pko22.jpg';
      break;
    case 'PL6C':
      document.img_hilo.src=IMG_BASE_DIR+'p39034.jpg';
      break;
    case 'NAR6C':
      document.img_hilo.src=IMG_BASE_DIR+'p39034.jpg';
      break;
    case 'NAR3C':
      document.img_hilo.src=IMG_BASE_DIR+'p39038.jpg';
      break;
    case '':   // no seleccionado
    default:
      document.img_hilo.src=IMG_BASE_DIR+'shim.gif';
  }
  pon_tipos_aisl();
}

function form_ver_series() {
  if (form_value_red<0) { alert("Por favor, introduzca si su finca dispone de red eléctrica o no"); return; }
  if (form_value_animal=='') { alert("Por favor, introduzca el tipo de animal"); return; }
  var perim=document.caract.perim.value;
  perim=perim.replace(',','.');

  form_value_perim = 0;

  if (!isFloat(perim) || perim <=0)
  { //document.img_perim.src=IMG_BASE_DIR+'shim.gif';
    alert("Por favor, introduzca un perímetro correcto"); return;
  }
  form_value_perim = perim;

  var theForm = document.serie;

  // ---------------------------------------------
  // - tipo de pastor
  var NumState = theForm.pastor.options.length;

  while(NumState > 0) {
    NumState--;
    theForm.pastor.options[NumState] = null;
  }
  var num=0;
  if (!form_value_red) // red electrica
  {
    if (form_value_animal=='CA' && perim<=25) {
      theForm.pastor.options[num++] = new Option("Csikos Euro 10", "CSIKOS");
    } else {
      if (perim>25 && perim<=45)
        theForm.pastor.options[num++] = new Option("Vulcan SE250", "SE250");
      if (perim>45 && perim<=200)
        theForm.pastor.options[num++] = new Option("Vulcan SE350", "SE350");
      if (perim>200 && perim<=300)
        theForm.pastor.options[num++] = new Option("Vulcan SE450", "SE450");
      if (perim<=25)
        theForm.pastor.options[num++] = new Option("es 20", "ES20");
    }
  } else {
    if (perim<=5)
      theForm.pastor.options[num++] = new Option("Pastor mecánico ST", "ST");
    if (perim<=8)
      theForm.pastor.options[num++] = new Option("EC 1000", "EC1000");
    if (perim<=8)
      theForm.pastor.options[num++] = new Option("Miniking EB 10", "EB10");
    if (perim>8 && perim<=13)
      theForm.pastor.options[num++] = new Option("EC 1500", "EC1500");
    if (perim>13 && perim<=17)
      theForm.pastor.options[num++] = new Option("EC 2100", "EC2100");
    if (perim>13 && perim<=17)
      theForm.pastor.options[num++] = new Option("EC 2100 Solar", "EC2100S");
    if (perim>17 && perim<=45)
      theForm.pastor.options[num++] = new Option("Dragon Euro 12", "DRAGON12");
  }
//  if (num!=0)
//      document.img_perim.src=IMG_BASE_DIR+'shim.gif';
//  else
//      document.img_perim.src=IMG_BASE_DIR+'shim.gif';

  theForm.pastor.size = num;
  theForm.pastor.selectedIndex = 0;
  set_tipo_pastor(theForm.pastor.selectedIndex);

  // ---------------------------------------------
  // - tipo de estaca y de hilo

  var NumState = theForm.estaca.options.length; // borra lista de estacas
  while(NumState > 0) {
    NumState--;
    theForm.estaca.options[NumState] = null;
  }

  var NumState = theForm.hilo.options.length; // borra lista de hilos
  while(NumState > 0) {
    NumState--;
    theForm.hilo.options[NumState] = null;
  }

  var hnum=0; // hilo
  var snum=0; // estaca

  var alturamin=0;
  var alturamax=0;
  form_value_numhilos=2;
  switch(form_value_animal)
  {
    case "CA": // caballos
      theForm.hilo.options[hnum++] = new Option("Cinta de 20 mm", "C20MM");
      theForm.hilo.options[hnum++] = new Option("Cinta de 40 mm", "C40MM");
      theForm.hilo.options[hnum++] = new Option("Cinta Turbo de 40 mm", "CT40MM");
      alturamin=100;
      alturamax=200;
      pon_separaciones('4-5');
      break;
    case "VA": // vacas
      theForm.hilo.options[hnum++] = new Option("Cinta de 12 mm", "C12MM");
      theForm.hilo.options[hnum++] = new Option("Hilo de Aluminio de 1,6 mm", "AL16MM");
      theForm.hilo.options[hnum++] = new Option("Cable Galvanizado", "CGALV");
      theForm.hilo.options[hnum++] = new Option("Cordón de Nylon de 6 mm", "NYL6MM");
      alturamin=85;
      alturamax=100;
      pon_separaciones('4-5');
      break;
    case "TO": // toros
      theForm.hilo.options[hnum++] = new Option("Hilo de plástico de 6 conductores", "PL6C");
      theForm.hilo.options[hnum++] = new Option("Hilo de Aluminio de 1,6 mm", "AL16MM");
      theForm.hilo.options[hnum++] = new Option("Cable Galvanizado", "CGALV");
      theForm.hilo.options[hnum++] = new Option("Cordón de Nylon de 6 mm", "NYL6MM");
      alturamin=85;
      alturamax=100;
      pon_separaciones('4-5');
      break;
    case "CB": // cabras
      theForm.hilo.options[hnum++] = new Option("Hilo de plástico de 6 conductores", "PL6C");
      theForm.hilo.options[hnum++] = new Option("Hilo de Aluminio de 1,6 mm", "AL16MM");
      alturamin=55;
      alturamax=90;
      pon_separaciones('3-4');
      break;
    case "OV": // ovejas
      //theForm.hilo.options[hnum++] = new Option("Hilo de plástico de 6 conductores", "PL6C");
      //theForm.hilo.options[hnum++] = new Option("Hilo de Aluminio de 1,6 mm", "AL16MM");
      theForm.hilo.options[hnum++] = new Option("Malla de oveja", "MALLAOV");
      alturamin=55;
      alturamax=90;
      form_value_numhilos=3;
      pon_separaciones('3-4');
      break;
    case "CE": // cerdos
      theForm.hilo.options[hnum++] = new Option("Hilo de plástico de 6 conductores", "PL6C");
      theForm.hilo.options[hnum++] = new Option("Hilo de Aluminio de 1,6 mm", "AL16MM");
      alturamin=55;
      alturamax=90;
      form_value_numhilos=3;
      pon_separaciones('3-4');
      break;
    case "PG": // perro grande
      theForm.hilo.options[hnum++] = new Option("Hilo naranja de 6 conductores", "NAR6C");
      alturamin=85;
      alturamax=100;
      pon_separaciones('3-4');
      break;
    case "PP": // perro pequeño
      theForm.hilo.options[hnum++] = new Option("Hilo naranja de 3 conductores", "NAR3C");
      alturamin=55;
      alturamax=90;
      pon_separaciones('3-4');
      break;
    case "AV": // avestruz
      theForm.hilo.options[hnum++] = new Option("Malla de Oveja + Hilo", "MALLAHILO");
      theForm.estaca.options[snum++] = new Option("Malla de Oveja + Varilla de acero", "MALLAHILO");
      alturamin=155;
      alturamax=180;
      pon_separaciones('3-4');
      break;
    default:
  }

    form_value_estaca='';

    if (form_value_animal=='OV')
      theForm.estaca.options[snum++] = new Option("Malla de Oveja", "MALLAOV");

    if (form_value_animal!='AV') {

    if (alturamin<=105 && alturamax>=85)
      theForm.estaca.options[snum++] = new Option("Varilla de Acero, 105 cm", "VACERO");
    if (alturamin<=105 && alturamax>=85)
      theForm.estaca.options[snum++] = new Option("Varilla de Fibra, 105 cm", "FIBR105");
    if (alturamin<=160 && alturamax>=160)
      theForm.estaca.options[snum++] = new Option("Varilla de Fibra, 160 cm", "FIBR160");
    if (alturamin<=90 && alturamax>=90)
      theForm.estaca.options[snum++] = new Option("Estaca de Plástico, 90 cm", "PL90");
    if (alturamin<=133 && alturamax>=133)
      theForm.estaca.options[snum++] = new Option("Estaca de Plástico, 133 cm", "PL133");
    theForm.estaca.options[snum++] = new Option("Estaca de Metal (aportado por Vd.)", "EMETAL");
    theForm.estaca.options[snum++] = new Option("Varilla de Metal (aportado por Vd.)", "VMETAL");
    theForm.estaca.options[snum++] = new Option("Estaca de Madera (aportado por Vd.)", "MADERA");
    
    } // avestruces no

  theForm.estaca.size = snum;
  theForm.estaca.selectedIndex = 0;
  theForm.hilo.size = hnum;
  theForm.hilo.selectedIndex = 0;
  set_tipo_hilo(0);
  set_tipo_estaca(0);
}

function form_tiene_red(val) {
  // alert('tiene red? -> '+val);
  if (val=="red")
  { form_value_red=0;
//    document.img_red.src=IMG_BASE_DIR+'shim.gif';
  }
  else if (val=="pila")
  { form_value_red=1;
//    document.img_red.src=IMG_BASE_DIR+'shim.gif';
  }
  else
  { form_value_red=-1;
//    document.img_red.src=IMG_BASE_DIR+'shim.gif';
  }
  if (!isEmpty(document.caract.perim.value) && document.caract.animal.value!='') form_ver_series();
}
function form_perimetro(item) {
  //alert('perimetro -> '+item.value);
  if (form_value_red>=0 && document.caract.animal.value!='') form_ver_series();
}
function form_tipo_animal(item) {
  form_value_animal=document.caract.animal.options[item.selectedIndex].value;
  // alert('tipo animal -> '+form_value_animal);

  switch(form_value_animal)
  {
    case "CA": // caballos
      document.img_animal.src=IMG_BASE_DIR+'caballo.jpg';
      break;
    case "VA": // vacas
      document.img_animal.src=IMG_BASE_DIR+'vaca.jpg';
      break;
    case "TO": // toros
      document.img_animal.src=IMG_BASE_DIR+'toro.jpg';
      break;
    case "CB": // cabras
      document.img_animal.src=IMG_BASE_DIR+'cabra.jpg';
      break;
    case "OV": // ovejas
      document.img_animal.src=IMG_BASE_DIR+'oveja.jpg';
      break;
    case "CE": // cerdos
      document.img_animal.src=IMG_BASE_DIR+'cerdo.jpg';
      break;
    case "PG": // perro grande
      document.img_animal.src=IMG_BASE_DIR+'perro.jpg';
      break;
    case "PP": // perro pequeño
      document.img_animal.src=IMG_BASE_DIR+'perrin.jpg';
      break;
    case "AV": // avestruz
      document.img_animal.src=IMG_BASE_DIR+'avestruz.jpg';
      break;
    case "":   // no seleccionado
    default:
      document.img_animal.src=IMG_BASE_DIR+'shim.gif';
  }

  if (form_value_red>=0 && !isEmpty(document.caract.perim.value)) form_ver_series();
}

function form_tipo_pastor(item) {
  set_tipo_pastor(item.selectedIndex);
}

function form_tipo_pila(item) {
  set_tipo_pila(item.selectedIndex);
}

function form_tipo_estaca(item) {
  set_tipo_estaca(item.selectedIndex);
}

function form_separ_estaca(item) {
  set_separacion(item.selectedIndex);
}

function form_tipo_hilo(item) {
  set_tipo_hilo(item.selectedIndex);
}

function form_tipo_aisl(item) {
  set_tipo_aisl(item.selectedIndex);
}

function form_esquinas(val) {
  if (val==0 || val=='')
    form_value_esquinas=0;
  else if (!isFloat(val) || val <=0)
    {
      form_value_esquinas=0;
      alert('Introduzca un número correcto de esquinas, por favor');
    }
  else
    form_value_esquinas=val;
}

function form_tipo_aislesq(item) {
  set_tipo_aislesq(item.selectedIndex);
}

function form_done_series() {
 form_esquinas(document.serie.esquinas.value);
}

function form_done(item) {
  var error = 0;
  var error_message = "¡Hay errores en su formulario!\nPor favor, haga las siguiente correciones:\n\n";

  var arg="";

  if (form_value_animal) { arg += "a=" + form_value_animal; }
  else { error_message = error_message + "Seleccione un tipo de animal\n"; error = 1; }
  if (form_value_red>=0) { arg += "&p=" + (form_value_red?"b":"e"); }
  else { error_message = error_message + "Indique si dispone de conexión a la red eléctrica\n"; error = 1; }
  if (form_value_perim) { arg += "&l=" + form_value_perim; }
  else { error_message = error_message + "Introduzca un perímetro válido\n"; error = 1; }
  if (form_value_pastor) { arg += "&e=" + form_value_pastor; }
  else { error_message = error_message + "Seleccione un electrificador o pastor eléctrico\n"; error = 1; }
  if (form_value_estaca) { arg += "&s=" + form_value_estaca; }
  else { error_message = error_message + "Seleccione un tipo de estaca\n"; error = 1; }
  if (form_value_separacion) { arg += "&d=" + form_value_separacion; }
  else { error_message = error_message + "Indique la separacion entre estacas\n"; error = 1; }
  if (form_value_hilo) { arg += "&t=" + form_value_hilo; }
  else { error_message = error_message + "Seleccione un tipo de hilo\n"; error = 1; }
  arg += "&n=" + form_value_numhilos;
  if (form_value_pila) { arg += "&b=" + form_value_pila; }
  else { error_message = error_message + "Seleccione un tipo de batería o pila\n"; error = 1; }
  if (form_value_aisl) { arg += "&x=" + form_value_aisl; }
  else { error_message = error_message + "Seleccione un tipo de aisladores\n"; error = 1; }
  if (form_value_esquinas) {
    arg += "&q=" + form_value_esquinas;
    if (form_value_aislesq) { arg += "&y=" + form_value_aislesq; }
    else { error_message = error_message + "Seleccione un tipo de aisladores para las esquinas\n"; error = 1; }
  }

  if (error == 1) {
    alert(error_message);
    return;
  } else {
    document.location.href="wizard_results.php?"+arg;
    return;
  }
}