// JScript File

function vis_navn(index)
{
  document.all.risiko_2_valgt_lokalitet.innerText = index;
  //document.all.risiko_2_valgte_lokaliteter.rows[index].cells[2].object[0].value;
}


function vaelg_kildestyrker(lok_id) 
{             
  table = document.all.risiko_2_valgte_lokaliteter;
  var rows = table.getElementsByTagName("tr");
  for (x = 1;x<rows.length;x++)
  { 
    if (table.rows[x].cells[1].innerText == lok_id)    
    {
      table.rows[x].style.fontWeight = 'bold';
    } else {
      table.rows[x].style.fontWeight = 'normal';
    }  
  }
  document.all.risiko_2_kildestyrker.style.display = 'block'; 
  document.all.risiko_2_sub_kildestyrker.style.display = 'block';
  document.all.risiko_2_arkiv.style.display = 'none';
  document.all.risiko_2_historikID.innerHTML = "";
  document.all.risiko_2_historikDetaljer.innerHTML = "";
  document.all.risiko_2_historikNavn.value = "";
  //hent pesticiddata for lokaliteten: gv, spild, jord, defaults
  startwait();
  CallServer('202¤' + lok_id);
}


function vaelg_sidste_kildestyrke(kildestyrke_id,lok_id,lok)
{
  document.all.risiko_2_fyr_kildesaet_af.innerHTML = "504¤" + lok_id + "¤" + kildestyrke_id;
  //hent lokalitetens forureningshistorik ()
  vaelg_kildestyrker(lok_id);
  vis_navn(lok);
}


function hent_ops(lok_id,lok_navn) 
{
  document.all.risiko_2_arkiv.style.display = 'block';
  document.all.risiko_2_kildestyrker.style.display = 'none';
  document.all.risiko_2_sub_kildestyrker.style.display = 'none';
  document.all.risiko_2_valgt_arkiv_lokalitet.innerHTML = lok_navn;
  document.all.risiko_2_valgt_arkiv_lokalitet_id.innerHTML = lok_id;

  // Hent id,navn,dato,bruger for alle historikker for lokaliteten  
  CallServer('503¤' + lok_id)
}


function gem_ops(lok_id) 
{
  document.all.risiko_2_kildestyrker.style.display = 'block';
  document.all.risiko_2_sub_kildestyrker.style.display = 'block';
  document.all.risiko_2_arkiv.style.display = 'none';  
}


function set_valgt(tal,raekke,ftype,areal,niveau)
{
  var fortype = "ukendt";
  switch (ftype)
  {
  case 1:
  {
    fortype = "GV";
    break;
  }
  case 2:
  {
    fortype = "SPILD";
    break;
  }
  case 3:
  {
    fortype = "JORD";
    break;
  }
  case 4:
  {
    fortype = "DEF";
    break;
  }
  }

  switch (niveau)
  {
  case 1:
  {
    niveau = "min";
    break;
  }
  case 2:
  {
    niveau = "middel";
    break;
  }
  case 3:
  {
    niveau = "max";
    break;
  }
  }

  tal_id="risiko_2_sub_tal" + raekke;
  fortype_id="risiko_2_sub_fortype" + raekke;
  niveau_id="risiko_2_sub_niveau" + raekke;
  areal_id="risiko_2_sub_areal" + raekke;
  document.all.risiko_2_sub_kildestyrker.rows[raekke].cells[14].innerHTML = "<input id=" + tal_id + " type='text'   onchange='this.value = testNummer(this.value);fed(" + raekke + ");'  class=tekst value=" + tal + " />";
  document.all.risiko_2_sub_kildestyrker.rows[raekke].cells[15].innerHTML = "<input id=" + fortype_id + " type='text' class=tekst value='" + fortype + "' />";
  document.all.risiko_2_sub_kildestyrker.rows[raekke].cells[16].innerHTML = "<input id=" + niveau_id + " type='text' class=tekst value=" + niveau + " />";
  document.all.risiko_2_sub_kildestyrker.rows[raekke].cells[17].innerHTML = "<input id=" + areal_id + " type='text'   onchange='this.value = testNummer(this.value);fed(" + raekke + ");'  class=tekst value=" + areal + " />";
}


function hjaelp_jordtype()
{
  alert("Såfremt der ikke findes data for jordens tekstur, kan der vælges mellem tre jordarter fra rullemenuen. På gårdsplads eller andre befæstede arealer uden rodzone bør det organiske indhold reduceres.");
}

function angiv_i_pct()
{
 alert("Angiv teksturfraktionen i pct.")
}


function fed(raekke)
{
  document.all.risiko_2_sub_kildestyrker.rows[raekke].style.fontWeight = 'bold';
} 

function hjaelp_vertikal()
{
 alert("Vertikal transport beregnes med en 'metamodel', MACRO 5.0, udviklet af Sveriges Lantbruksuniversitet, Uppsala. Modellen anvender teksturdata angivet for den øvre (0-30cm) og nedre (30-100cm) horisont af jorden. Data angiver sandindhold (kornstørrelse 50-2000μm) og lerindhold (kornstørrelse <2μm) i procent for de to horisonter samt indhold af organisk stof i procent for den øvre horisont. Eksempel på teksturdata er præsenteret for moræneler, morænesand og smeltevandssand, alle med en øvre A-horisont (rodzone).")
}


function gem_kildestyrkesaet()
{
  //tæl antal rækker
  var table = document.getElementById('risiko_2_sub_kildestyrker');
  var rows = table.getElementsByTagName("tr");
  var send_streng = "";
  var test_eks_kildestyrker = 0;
  for (x = 1;x<rows.length-2;x++)
  {
    //test for hver række om den er fed, dvs. indeholder valgte kildestyrker
    if(table.rows[x].style.fontWeight == 'bold')
    {     
      test_eks_kildestyrker++;
      tal_id="risiko_2_sub_tal" + x;
      fortype_id="risiko_2_sub_fortype" + x;
      niveau_id="risiko_2_sub_niveau" + x;
      areal_id="risiko_2_sub_areal" + x; 
      //saml 4 oplysninger om kildestyrken: koncentration, forureningstype, niveau, areal
      //tilføj til 'Ajax streng'   
      
      send_streng+= '£' + table.rows[x].cells[0].innerHTML; 
      send_streng+= '¤' + document.all(tal_id).value;
      send_streng+= '¤' + document.all(fortype_id).value;
      send_streng+= '¤' + document.all(niveau_id).value;
      send_streng+= '¤' + document.all(areal_id).value;        
    }
  }  
  table1 = document.all.risiko_2_valgte_lokaliteter;
  var rows1 = table1.getElementsByTagName("tr");
  for (x = 1;x<rows1.length;x++){
    if (table1.rows[x].style.fontWeight == 'bold')
    {
      lok_id = table1.rows[x].cells[1].innerText;
    }
  }
  //se på elementet risiko_2_historikID om der er tale om eksisterende eller ny kildestyrkeopsætning
  //tilføj dette kriterie til Ajax strengen og i givet fald historikID'et.
  if (test_eks_kildestyrker > 0)
  {
    send_streng += "§" + lok_id + "¤" + document.all.risiko_2_historikID.innerHTML + "¤" + document.all.risiko_2_historikNavn.value;
    CallServer('502¤' + send_streng  + "¤" + document.all.hfBruger.value);
  } else {
    alert("Der er ingen kildestyrker i sættet. 'Gem' blev ikke udført.");
  }
}


function byg_forureningstabel(arg)
{
  var saet = arg.split("¤");
  var table = document.getElementById('risiko_2_grundvandsforurening');   
  var rows = table.getElementsByTagName("tr");
  for (x = rows.length-1;x>0;x--)   
  {
    table.deleteRow(x);
  }
  for (x = 1;x< saet.length;x++)
  {
    var nycelle=table.insertRow(x);
    elementer = saet[x].split("§");
    var a=nycelle.insertCell(0);
    var b=nycelle.insertCell(1);
    var c=nycelle.insertCell(2);
    var d=nycelle.insertCell(3);
    var e=nycelle.insertCell(4);
    var f=nycelle.insertCell(5);
    var g=nycelle.insertCell(6);
    var h=nycelle.insertCell(7);
    var i=nycelle.insertCell(8);
    a.className = "tdknap";
    a.onclick = new Function("rediger_forurenings_historie('" + x + "')");
    a.innerText = elementer[0];
    document.all.lokalitet_2_hfOpdater.value = elementer[0];
    b.innerText = elementer[1];
    c.innerText = elementer[2];
    d.innerText = elementer[3];
    e.innerText = elementer[4];
    f.innerText = elementer[5];
    g.innerText = elementer[6];
    h.innerText = elementer[7];
    i.innerText = elementer[8];
  }
}


function saetnavn()
{
  alert("Hvis sætnavnet ændres, gemmes et nyt sæt i databasen.");
}


function nyt_stof_til_kildestyrker(stofid,stofnavn)
{
  var l;
  //test om stoffet allerede eksisteret i tabellen
  var table = document.getElementById('risiko_2_sub_kildestyrker');   
  var rows = table.getElementsByTagName("tr");
  l = rows.length - 2;
  var er_med = 0;
  for (x = rows.length-3;x>0;x--)
  {
    if (table.rows[x].cells[0].innerHTML == stofid)
    {er_med++;}
  } 
  table.selectedIndex = 0;
  if (er_med > 0)
  {
    //hvis ja, 
    alert("Stoffet er allerede med i sættet.");
  } else {
    //hvis nej, indsæt
    var nycelle=table.insertRow(l);
    nycelle.style.fontWeight = 'bold';
    var a=nycelle.insertCell(0);
    var b=nycelle.insertCell(1);
    var c=nycelle.insertCell(2);
    var d=nycelle.insertCell(3);
    var e=nycelle.insertCell(4);
    var f=nycelle.insertCell(5);
    var g=nycelle.insertCell(6);
    a.innerHTML = stofid;
    b.innerHTML = stofnavn;
    b.className = 'tdknap';
    b.style.textDecoration = 'none';
    //fjerner ikke rækken, men fjerner 'fed' og kidestyrkedata
    b.onclick = new Function("fjern_raekke('" + l + "','" + stofnavn + "')");
    b.style.paddingLeft = '5px';
    c.colSpan = "12"; 
    tal_id = "risiko_2_sub_tal" + l;
    fortype_id = "risiko_2_sub_fortype" + l;
    niveau_id = "risiko_2_sub_niveau" + l;
    areal_id = "risiko_2_sub_areal" + l;
    d.innerHTML = "<input id=" + tal_id + " onchange='this.value = testNummer(this.value);fed(" + l + ");' type='text' class=tekst />";
    e.innerHTML = "<input id=" + fortype_id + " enabled='false' type='text' class=tekst value='BRUG' />";
    f.innerHTML = "<input id=" + niveau_id + " onchange='this.value = testNiveau(this.value);' type='text' class=tekst />";
    g.innerHTML = "<input id=" + areal_id + " onchange='this.value = testNummer(this.value);' type='text' class=tekst />"; 
  }
document.all.risiko_2_ddlStoftilKildestyrker.selectedIndex = 0; 
}


function testNiveau(værdi)
{
  nothing = "";
  if (værdi!= 'min' && værdi!= 'middel' && værdi!= 'max')
  {
    alert("Gyldige værdier: 'min', 'middel' og 'max'");
    return nothing;
  } else {
    return værdi;
  }
}   


function testNummer(vardi)
{       
  nothing = "";
  if (isNumeric(vardi) != true)
  {
    alert("Skriv kun tal og komma. Brug ikke tusindtalsseparator.");
    return nothing;
  } else {
    return vardi;
  }
}     


function fjern_raekke(l,stof)
{
  var answer = confirm("Skal kildestyrkeinformationen for stoffet " + stof + " nulstilles?");
	if (answer){
	document.all.risiko_2_sub_kildestyrker.rows[l].style.fontWeight = 'normal'; 
    document.all["risiko_2_sub_tal" + l].innerText = "";
    document.all["risiko_2_sub_fortype" + l].innerText = "";
    document.all["risiko_2_sub_niveau" + l].innerText = "";
    document.all["risiko_2_sub_areal" + l].innerText = "";

/*
	document.all.risiko_2_sub_kildestyrker.rows[l].style.fontWeight = 'normal'; 
    document.all.risiko_2_sub_kildestyrker.rows[l].cells[14].innerHTML = "<input type='text' class=tekst  />";
    document.all.risiko_2_sub_kildestyrker.rows[l].cells[15].innerHTML = "<input type='text' class=tekst  />";
    document.all.risiko_2_sub_kildestyrker.rows[l].cells[16].innerHTML = "<input type='text' class=tekst  />";
    document.all.risiko_2_sub_kildestyrker.rows[l].cells[17].innerHTML = "<input type='text' class=tekst  />";
*/


	}
}


function rediger_forurenings_historie(x)
{
var table = document.getElementById('risiko_2_grundvandsforurening');   
var rows = table.getElementsByTagName("tr");
document.all.lokalitet_2_txtGVMin.innerText = rows[x].cells[2].innerHTML; 
document.all.lokalitet_2_txtGVMid.innerText = rows[x].cells[3].innerHTML; 
document.all.lokalitet_2_txtGVMax.innerText = rows[x].cells[4].innerHTML; 
document.all.lokalitet_2_txtGVAreal.innerText = rows[x].cells[7].innerHTML; 
document.all.lokalitet_2_txtGVKommentar.innerText = rows[x].cells[8].innerHTML; 
        
    stofliste =  document.getElementById('lokalitet_2_ddlGVNytStof');
    stofln = stofliste.options.length;
    for (ff = 0;ff<stofln-1;ff++)
    if(rows[x].cells[1].innerHTML == stofliste.options[ff].text)
    {          
    document.getElementById('lokalitet_2_ddlGVNytStof').selectedIndex = ff;
    }        
    
    fraliste =  document.getElementById('lokalitet_2_ddlGVFraAar');
    fraln = fraliste.options.length;
    for (ff = 0;ff<fraln-1;ff++)
    if(rows[x].cells[5].innerHTML == fraliste.options[ff].text)
    {          
    document.getElementById('lokalitet_2_ddlGVFraAar').selectedIndex = ff;
    } 

    tilliste =  document.getElementById('lokalitet_2_ddlGVtilAar');
    tilln = tilliste.options.length;
    for (ff = 0;ff<tilln-1;ff++)
    if(rows[x].cells[6].innerHTML == tilliste.options[ff].text)
    {          
    document.getElementById('lokalitet_2_ddlGVtilAar').selectedIndex = ff;
    } 
}