// Hulpfuncties bij BIDOCWS HTML-bestanden.
// Copyright (C) 2000-2005 Lieven Forrez.

// Definieer globaal, en wijzig eventueel in 'opties.js'
lenerinfo = 0
bws = "/bws/"
bwscss = "/bws/bidocws.css"
bwsexe = "/cgi-bin/bidocws.exe"
talen = [0]

function bidocws_get_mess(nr) {
  return bwsmess[nr];
}

function powered(num)
 {
  var st = "";
  if ( adres.length > 0 )
   {
    st += "<TABLE BORDER=0 WIDTH=100%><TR><TD ALIGN=center>"
    st += "<FONT class='medv' class='vet'>"
    st += adres[0]
    st += "</FONT>"
   }
  if ( adres.length > 1 )
   {
    st += "<FONT class='med'>"
    st += adres[1]
    st += "</FONT>"
   }
  if ( adres.length > 0 )
   {
    st += "</TD>"
    if ( num == 1 ) st += "</TR><TR>"
    st += "<TD ALIGN=right>"
   }
  if ( num > 0 )
   {
    st += "<img src=\"" + bws + "bidoc.png\" border=0 align=right "
    st += "alt=\"BIDOC Bibliotheekautomatisering\n "
    st += " &copy 2000-2005 Lieven Forrez\">"
   }
  if ( adres.length > 0 )
   {
    st += "</TD></TR></TABLE>"
   }
  return st;
 }

// Laat deze functie ongewijzigd staan
function optie(act,naam,naam1,naam2) {
  this.act=act
  this.naam=naam
  if ( bwstaal == 1 ) this.naam=naam1;
  if ( bwstaal == 2 ) this.naam=naam2;
}

function bwscsscode()
 {
   var st;
   st = "<LINK href=\"" + bwscss + "\" rel=\"stylesheet\" type=\"text/css\">"
   return st;
 }

function bwscode(type,tekst)
 {
   var st = "";
   if ( type == "trg" )
    {
     st += "<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%>"
     st += "<TR><TD ALIGN=LEFT><A HREF=\"javascript:history.back()\""
     st += "onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(17)+"')\""
     st += "onMouseOut=\"return parent.setStatus('')\">"
     st += "<IMG BORDER=0 SRC=\"" + bws + "tpijl.gif\" ALT=\""+bidocws_get_mess(17)+"\"></A></TD>"
     st += "<TD VALIGN=MIDDLE ALIGN=CENTER><strong>"
     if ( tekst.length > 0 )
      {
       st += tekst
      }
     else
      {
       st += bidocws_get_mess(18)
      }
     st += "</strong></TD>"
     st += "</TR></TABLE>"
    }
   if ( type == "trg2" )
    {
     st += "<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%>"
     st += "<TR><TD ALIGN=LEFT><A HREF=\"javascript:history.go(-2)\""
     st += "onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(17)+"')\""
     st += "onMouseOut=\"return parent.setStatus('')\">"
     st += "<IMG BORDER=0 SRC=\"" + bws + "tpijl.gif\" ALT=\""+bidocws_get_mess(17)+"\"></A></TD></TR>"
    }
   if ( type == "det" )
    {
     st += "<A TARGET=FR2 HREF=\""+tekst+"\" onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(19)+"')\""
     st += " onMouseOut=\"return parent.setStatus('')\">"
     st += "<IMG SRC=\""+bws+"detail.gif\" BORDER=0 ALT=\""+bidocws_get_mess(19)+"\"></A>"
    }
   if ( type == "gnnm" )
    {
     st += bidocws_get_mess(25)
     if ( tekst.length > 0 ) st += ": " + tekst
    }
   if ( type == "gnti" )
    {
     st += bidocws_get_mess(26)
     if ( tekst.length > 0 ) st += " " + tekst
    }
   if ( type == "kies" )
    {
     st += bidocws_get_mess(27)
     if ( tekst.length > 0 ) st += " " + tekst
    }
   if ( type == "ltrg" )
    {
     st += "<A TARGET=_parent HREF=\"javascript:history.back(); javascript:window.location='lener.htm';\""
     st += " onMouseOver=\"return parent.setStatus('Keer terug naar het vorige scherm')\""
     st += " onMouseOut=\"return parent.setStatus('')\">"
     st += "<CENTER><IMG BORDER=0 SRC=\"" + bws + "lpijl.gif\"><BR>Keer terug</CENTER></A>"
    }
   if ( type == "ltrgc" )
    {
     st += "<A TARGET=_parent HREF=\"javascript:history.back()\">"
     st += "<CENTER><IMG BORDER=0 SRC=\"" + bws + "lpijl.gif\"><BR>Keer terug</CENTER></A>"
    }
   if ( type == "knop" )
    {
     if ( tekst.length > 0 ) st += "<IMG SRC=\""+bws+tekst+".gif\" BORDER=0>"
    }
   return st;
 }

function bwsbladercode(head,tekst,tot,off,grp)
 {
   var st = "";

   st += "<CENTER>"
   st += "<TABLE BORDER=0 WIDTH=100%><TR><TD ALIGN=center>"

   atot = tot;
   if ( atot < 0 ) atot = -tot;
   mx = off + grp;
   if ( mx > atot ) mx = atot;

   if ( off > 1 )
    {
      st += "<A HREF=\"javascript:parent.blader(window.location,'-'," + grp + ")\""
      st += " onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(20)+"')\""
      st += " onMouseOut=\"return parent.setStatus('')\">"
      st += "<IMG BORDER=0 SRC=\""+bws+"lpijl.gif\" ALT=\""+bidocws_get_mess(20)+"\" ALIGN=TOP></A>"
    }

   st += "</TD><TD ALIGN=center><B>"

   if ( head == 1 )
    {
      st += bidocws_get_mess(22)
      if ( tekst.length > 0 ) st += " "+tekst
      st += " ("+bidocws_get_mess(23)+": "
      if ( tot < 0 ) st += ">"
      st += atot
      if ( off > 1 || mx < atot ) st += ", "+bidocws_get_mess(24)+": "+off+" - "+mx
      st += ")"
    }
   st += "</B></TD><TD ALIGN=center>"

   if ( mx < atot )
    {
      st += "<A HREF=\"javascript:parent.blader(window.location,'+'," + grp + ")\""
      st += " onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(21)+"')\""
      st += " onMouseOut=\"return parent.setStatus('')\">"
      st += "<IMG BORDER=0 SRC=\""+bws+"rpijl.gif\" ALT=\""+bidocws_get_mess(21)+"\" ALIGN=TOP></A>"
    }

   st += "</TD></TR></TABLE>"
   st += "</CENTER>"
   // alert("tot=" + tot + "; off=" + off + "; grp=" + grp + "; mx=" + mx + "; st=" + st);
   return st;
 }

function bwsnlbladercode(off,nog,grp)
 {
   var st = "";

   if ( off == 0 && nog == 0 ) return st;

   st += "<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=0><TR><TD>"

   // Linkse knop: om terug naar begin van de lijst te gaan
   if ( off > 0 )
    {
      st += "<TD><A HREF=\"javascript:parent.blader(window.location,'=',0)\""
      st += " onMouseOver=\"return parent.setStatus('Begin van de lijst')\""
      st += " onMouseOut=\"return parent.setStatus('')\">"
      st += "<IMG BORDER=0 SRC=\""+bws+"tpijl.gif\" ALT=\"Begin van de lijst\" ALIGN=TOP></A></TD>"
    }
   // Linkse knop: om terug te bladeren in de lijst
   if ( off > 0 )
    {
      st += "<TD><A HREF=\"javascript:parent.blader(window.location,'-'," + grp + ")\""
      st += " onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(20)+"')\""
      st += " onMouseOut=\"return parent.setStatus('')\">"
      st += "<IMG BORDER=0 SRC=\""+bws+"lpijl.gif\" ALT=\""+bidocws_get_mess(20)+"\" ALIGN=TOP></A></TD>"
    }
   // Rechtse knop: om verder te bladeren in de lijst
   if ( nog > 0 )
    {
      st += "<TD><A HREF=\"javascript:parent.blader(window.location,'+'," + grp + ")\""
      st += " onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(21)+"')\""
      st += " onMouseOut=\"return parent.setStatus('')\">"
      st += "<IMG BORDER=0 SRC=\""+bws+"rpijl.gif\" ALT=\""+bidocws_get_mess(21)+"\" ALIGN=TOP></A></TD>"
    }

   st += "</TR></TABLE>"
   return st;
 }

function toggleknop(elm)
 {
  //var st = "";
  var newDisplay = "none";
  var e = elm.nextSibling;
  while (e != null)
   {
    //st += "\ne=" + e + " tag= " + e.tagName;
    if (e.tagName == "UL")
     {
      if (e.style.display == "none")
       {
        newDisplay = "block";
       }
      break;
     }
    e = e.nextSibling;
   }
  while (e != null)
   {
    //st += "\nvervolg=" + e + " tag= " + e.tagName;
    if (e.tagName == "UL")
     {
      e.style.display = newDisplay;
     }
    else break;
    e = e.nextSibling;
   }
  //alert("toggleknop\n"+st);
 }

function allesdicht(doc)
 {
  var lists = doc.getElementsByTagName('UL');
  for (var j = 0; j < lists.length; j++)
    lists[j].style.display = "none";
  var e = doc.getElementById("root");
  e.style.display = "block";
 }

function linktaal(num)
 {
  var st = "";
  l = talen.length;
  if ( l > 1 )
   {
//    st += "<TR><TD ALIGN=LEFT VALIGN=TOP>"
    for (i=0; i<l; i++)
     {
      m = talen[i];
      if ( bwstaal == m ) continue;
      st += " <A TARGET=_parent HREF=\"bidoc"
      if ( m == 1 ) st += "f"
      if ( m == 2 ) st += "e"
      st += num+".htm\"><font class=small><B>"
      if ( m == 0 ) st += "nl"
      if ( m == 1 ) st += "fr"
      if ( m == 2 ) st += "en"
      st += "</B></font></A> "
     }
//    st += "</TD></TR>"
   }
  return st;
 }

function confchanged(num)
 {
   // alert("Configuratie gewijzigd bij niveau "+num);
  if ( num == 1 ) {
    FR1.location="start.htm"
  }
 }

function maakForm(num)
 {
  var t = 0
  var n = 0
  var act = 0
  var naam = ""
  var st = "";
  var gBibSel = unescape(document.cookie.substring(4,document.cookie.length))

  if ( num == 99 )
   {
    st += "<FORM name=VRAAG METHOD=POST TARGET=FR1 ACTION=\""+bwsexe+"\">"
    st += "<input type=hidden name='#C' value=" + conf[0] + ">"
    return st;
   }

  if ( num == 1 ) {
    st += "<FORM name=VRAAG METHOD=GET TARGET=FR1 ACTION=\""+bwsexe+"\" onSubmit=\"return parent.checkForm(document.VRAAG)\">"
  }
  else {
    st += "<FORM name=VRAAG METHOD=POST TARGET=FR2 ACTION=\""+bwsexe+"\">"
  }
  st += "<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%>"

  st += "<TR><TD ALIGN=LEFT VALIGN=TOP>"
  for (m=0; m<niveau.length; m++)
   {
    if ( niveau[m].length == 0 ) continue;
    t=m+1;
    st += "<A TARGET=_parent HREF=\""+bwsstart+t+".htm\">"
    st += "<IMG BORDER=0 SRC=\""+bws+"b"
    if ( num == t ) st += "h"
    st += t+".gif\" "
    st += "ALT=\""+niveau[m]+"\"></A>"
   }
  st += linktaal(num);
  st += "<BR><font class=small>"+bidocws_get_mess(0)+"</font>"
  st += "</TD><TD ALIGN=LEFT VALIGN=TOP>"
  if ( bwstaal == 0 )
   {
    if ( lenerinfo > 0 )
     {
      st += "<A TARGET=_parent HREF=\"lener.htm\">"
      st += "<IMG BORDER=0 SRC=\""+bws+"linfo.gif\""
      st += "ALT=\"Lenersgegevens opvragen\"></A>"
     }
   }

  if ( num == 1 )
   {
    st += "</TD><TD ALIGN=LEFT>"
    if ( conf.length == 1 )
     {
      st += "<input type=hidden name='#C' value=" + conf[0] + ">"
     }
    else
     {
      st += "<strong>"+bidocws_get_mess(1)+"</strong>"
      st += "<select name='#C' size=1 onChange='parent.confchanged(1)'>"
      for (m=0; m<conf.length; m=m+2)
       {
        st += "<option "
        if ( conf[m] == gBibSel ) st += "SELECTED "
        st += "value=" + conf[m] + ">" + conf[m+1]
       }
      st += "</select>"
     }
    st += "</TD>"
    st += "<TD ALIGN=CENTER>"
    st += "<strong>"+bidocws_get_mess(2)+"</strong>"
    st += "<input type=hidden name='#O' value=0>"
    st += "<select name='#NT0' size=1>"
    for (m=0; m<trap1.length; m++)
     {
      n=trap1[m]
      st += "<option value=" + opties[n].act + ">" + opties[n].naam
     }
    st += "</select>"
    st += "<input type=text size='15em' max=250 name='#NV0'>"
    st += "<input type=hidden name='#F1' value=''>"
    st += "<input type=hidden name='#V1' value=''>"
    st += "<input type=submit value=\'"+bidocws_get_mess(10)+"\'>"
    st += "</TD></TR>"
    st += "</TABLE>"
    st += "</FORM>"
   }
  if ( num != 1 )
   {
    st += "</TD></TR>"
    st += "<TR><TD COLSPAN=2><HR></TD></TR>"

    st += "<TR><TD COLSPAN=2 ALIGN=CENTER><strong>"+niveau[num-1]+"</strong></TD></TR>"
    if ( conf.length == 1 )
     {
      st += "<input type=hidden name='#C' value=" + conf[0] + ">"
     }
    else
     {
      st += "<TR><TD COLSPAN=2 ALIGN=CENTER>"
      st += "<select name='#C' size=1 onChange='parent.confchanged(2)'>"
      for (m=0; m<conf.length; m=m+2)
       {
        st += "<option "
        if ( conf[m] == gBibSel ) st += "SELECTED "
        st += "value=" + conf[m] + ">" + conf[m+1]
       }
      st += "</select>"
      st += "</TD></TR>"
     }
    st += "<INPUT TYPE=hidden name='#O' VALUE=0>"
    st += "<INPUT TYPE=hidden name='#A' VALUE=''>"
    st += "<TR><TD COLSPAN=2 ALIGN=CENTER>"
    st += "<P>"+bidocws_get_mess(3)+bwsuitleg+num+bidocws_get_mess(4)+"</P>"
    st += "</TD></TR>"
    st += "</TABLE>"
    st += "<BR>"
    st += "<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>"
   }
  if ( num == 2 )
   {
    for (lijn=1; lijn<=trap2.length; lijn++)
     {
      n    = trap2[lijn-1]
      act  = opties[n].act
      naam = opties[n].naam

      if ( act != 0 )
       {
      st += "<TR>"
      st += "<TD><input type=hidden name=\"#F"+lijn+"\" value="+act+"></TD>"
      st += "<TD ALIGN=RIGHT>"+naam+":</TD>"
      st += "<TD><input type=text size='15em' max=250 name=\"#V"+lijn+"\"></TD>"
      if ( testkey(act,1) ) st += "<TD><A HREF=\"javascript:parent.submit(document.VRAAG,"+lijn+")\" onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(5)+"')\" onMouseOut=\"return parent.setStatus('')\"><IMG SRC=\""+bws+"rpijl.gif\" BORDER=0 ALT=\""+bidocws_get_mess(5)+"\"></A></TD>"
      st += "</TR>"
       }
     }
    st += "</TABLE>"
   }
  if ( num >= 3 )
   {
    for (t=0; t<trap3volg.length; t++)
     {
      lijn = t+1;
      st += "<TR><TD>"
      st += "<input type=button value=\""+lijn+"\" onClick=\"parent.naarCombi(document.VRAAG," + lijn + ")\">"
      st += "</TD><TD>"
      st += "<select name=\"#F"+lijn+"\" size=1>"
      for (m=0; m<trap3.length; m++)
       {
        n = trap3[m]
        m == trap3volg[t] ? sel = " selected " : sel=""
        st += "<option value="  + opties[n].act + sel +	">" + opties[n].naam
       }
      st += "</select>"
      st += "</TD><TD>"
      st += "<input type=text size='15em' max=250 name=\"#V"+lijn+"\">"
      st += "</TD><TD>"
      st += "<A HREF=\"javascript:parent.submit(document.VRAAG,"+lijn+")\" onMouseOver=\"return parent.setStatus('"+bidocws_get_mess(5)+"')\" onMouseOut=\"return parent.setStatus('')\"><IMG SRC=\""+bws+"rpijl.gif\" BORDER=0 ALT=\""+bidocws_get_mess(5)+"\"></A>"
      st += "</TD></TR>"
     }
    st += "</TABLE>"
    st += "<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>"
    st += "<TR>"
    st += "<input type=hidden name=\"#F16\" value=1>"
    st += "<TD><strong>"+bidocws_get_mess(6)+"</strong></TD>"
    st += "<TD><input type=text NAME=\"#V16\" size='15em' max=50></TD>"
    st += "<TD><input type=button value=\""+bidocws_get_mess(11)+"\" onClick=\"parent.naarCombi(document.VRAAG,99)\"></TD>"
    st += "</TR>"
    st += "<TR>"
    st += "<TD></TD>"
    st += "<TD COLSPAN=2>"
    st += "<input type=button value=\" ( \" onClick=\"parent.naarCombi(document.VRAAG,\'(\')\">"
    st += "<input type=button value=\" ) \" onClick=\"parent.naarCombi(document.VRAAG,\')\')\">"
    st += "<input type=button value=\""+bidocws_get_mess(7)+"\" onClick=\"parent.naarCombi(document.VRAAG,\'and\')\">"
    st += "<input type=button value=\""+bidocws_get_mess(8)+"\" onClick=\"parent.naarCombi(document.VRAAG,\'or\')\">"
    st += "<input type=button value=\""+bidocws_get_mess(9)+"\" onClick=\"parent.naarCombi(document.VRAAG,\'and not\')\">"
    st += "</TD>"
    st += "</TR>"
    st += "</TABLE>"
   }
//    st += "<TD><A HREF=\"javascript:parent.submit(document.VRAAG,16)\""
//    st += "onMouseOver=\"return parent.setStatus(\'Start zoekactie\')\""
//    st += "onMouseOut=\"return parent.setStatus(\'\')\">"
//    st += "<IMG SRC=\""+bws+"zoek.gif\" BORDER=0 ALT=\"Start zoekactie\"></A></TD>"
//    st += "<TD><A HREF=\"javascript:parent.submit(document.VRAAG,0)\""
//    st += "onMouseOver=\"return parent.setStatus(\'Wis alle zoekvelden\')\""
//    st += "onMouseOut=\"return parent.setStatus(\'\')\">"
//    st += "<IMG SRC=\""+bws+"wiszoek.gif\" BORDER=0 ALT=\"Wis alle zoekvelden\"></A></TD>"
  if ( num != 1 )
   {
    st += "<BR>"
    st += "<TABLE WIDTH=100% BORDER=0>"
    st += "<TR><TD ALIGN=CENTER>"
    st += "<input type=button value=\""+bidocws_get_mess(12)+"\""
    st += " onClick=\"javascript:parent.submit(document.VRAAG,16)\">"
    st += "</TD></TR>"
    st += "<TR><TD ALIGN=CENTER>"
    st += "<input type=button value=\""+bidocws_get_mess(13)+"\""
    st += " onClick=\"javascript:parent.submit(document.VRAAG,0)\">"
    st += "</TD></TR>"
    st += "</TABLE>"
    st += "</FORM>"
   }
  return st;
}

function checkForm(formobj) {
  var veld=formobj.elements["#C"].value;
  if ( veld.length <= 1 ) {
    alert(bidocws_get_mess(14))
    return false
  }
  document.cookie = "bib=" + veld.substring(0,veld.length);
  formobj.target="FR1"
  var sel=formobj.elements["#NT0"].selectedIndex;
  var key=formobj.elements["#NT0"].options[sel].value;
  if ( testkey(key,0) == 0 ) {
    var veld=formobj.elements["#NV0"].value;
    if ( veld.length == 0 ) {
      alert(bidocws_get_mess(15))
      return false
    }
    else {
      // alert("key=" + key + "; veld=" + veld + ";");

      if ( key == 0 ) formobj.elements["#F1"].value=3270;
      else            formobj.elements["#F1"].value=key;
      formobj.elements["#V1"].value=formobj.elements["#NV0"].value;
      formobj.target="FR2";
    }
  }
  return true
}

function testkey(ike,def) {
  if ( parseInt(ike) == 0 ) return 0; // oude situatie

  var ifi = parseInt(ike)%1000
  var ity = (ifi-ifi%100)/100

  // alert("key=" + ike + "; field=" + ifi + "; type=" + ity + "; def=" + def);

  if ( ity == 0 )
   {
    var i = parseInt(ike) - ifi;
    if ( i == 1000 ) return 1;   // item
    if ( i == 6000 ) return 1;   // item
    // alert("i=" + i);
    return 0;
   }
  if ( ity == 1 ) return 1;   // keuze
  if ( ity == 4 ) return def; // datum
  return 0;
}

function blader(loc,arg,num) {
 var url=loc.search;
 if ( url.length == 0 )
  {
   var offset = parseInt(FR1.document.VRAAG.elements['#O'].value);
   if ( arg == '-' )
    {
     offset -= num;
     if ( offset < 0 ) offset = 0;
    }
   if ( arg == '+' )
    {
     offset += num;
    }
   if ( arg == '=' )
    {
     offset = num;
    }
   FR1.document.VRAAG.elements['#O'].value = offset;
   FR1.document.VRAAG.submit();
  }
 else
  {
   url=loc.href;
   zoek="%23O=";
   var p1=url.indexOf(zoek);
   if ( p1 == -1 ) return;
   var s1=url.substring(0,p1);
   var sr=url.substring(p1+zoek.length,p1+url.length);
   var p2=sr.indexOf("&");
   if ( p2 == -1 ) return;
   var offset= parseInt(sr.substring(0,p2));
   var s2=sr.substring(p2,p2+sr.length);
   if ( arg == '-' )
    {
     offset -= num;
     if ( offset < 0 ) offset = 0;
    }
   if ( arg == '+' )
    {
     offset += num;
    }
   if ( arg == '=' )
    {
     offset = num;
    }
   loc.href = s1+zoek+offset+s2;
  }
}

function setStatus(arg) {
 window.status=arg
 return true
}

function setValue(el,naam) {
  FR1.document.VRAAG.elements[el].value=naam
}

function setZoekVeld(lijn,sel,val) {
  var formobj = FR1.document.VRAAG
  var index='#F' + lijn;
  var but = formobj.elements[index];
  var len = but.length;
  if ( len )
   {
    for ( var i = 0; i < len; i++ )
     {
      but.options[i].selected = 0;
      if ( i == sel ) but.options[i].selected = 1;
     }
   }
  var index='#V' + lijn;
  formobj.elements[index].value=val;
}

function setZoekVelden(sel,val,comb) {
  var lijn= 0;
  var len = sel.length;
  if ( len )
   {
    for ( var i = 0; i < len; i++ )
     {
      lijn=i+1;
      setZoekVeld(lijn,sel[i],val[i]);
     }
   }
  setZoekVeld(16,0,comb);
}

function testlijn(formobj,lijn) {
  if ( lijn == 16 ) return 1

  var ike = 0;
  var val = "";
  var index='#F' + lijn;
  var but = formobj.elements[index];
  var len = but.length;
  if ( len ) // situatie van niveau 3
   {
    // alert("index=" + index + "; but=" + but);
    for ( var i = 0; i < len; i++ )
     {
      if ( !but.options[i].selected ) continue;
      ike = but.options[i].value;
      val = but.options[i].text;
      break;
     }
   }
  else // situatie van niveau 2
   {
    ike = but.value;
    index='#V' + lijn
    val = formobj.elements[index].value;
    // alert("index=" + index + "; niveau 2; key=" + ike + "; val=" + val);
   }
  var ifi = parseInt(ike)%1000
  var ity = (ifi-ifi%100)/100

  // alert("index=" + index + "; key=" + ike + "; field=" + ifi + "; type=" + ity);

  if ( ity == 0 ) return 1; // item
  if ( ity == 1 ) return 1; // keuze
  if ( ity == 2 ) return 0; // tekst
  if ( ity == 3 ) return 0; // getal
  if ( ity == 4 )           // datum
   {
    index='#V' + lijn
    show_calendar(index,formobj.elements[index].value,val);
    return 2
   }
  if ( ity == 7 ) return 0; // awnr
  return 0;
}

function submit(formobj,lijn) {
  if ( lijn == 0 )
   {
    var sel = formobj.elements['#C'].value;
    formobj.reset();
    formobj.elements['#C'].value = sel;
   }
  else
   {
    var veld=formobj.elements["#C"].value;
    if ( veld.length <= 1 )
     {
      alert(bidocws_get_mess(14))
     }
    else
     {
      document.cookie = "bib=" +  veld.substring(0,veld.length);
      formobj.elements['#A'].value = lijn;
      formobj.elements['#O'].value = 0;
      var res = testlijn(formobj,lijn);
      if ( res == 0 ) alert(bidocws_get_mess(16))
      if ( res == 1 ) formobj.submit();
     }
   }
}

function naarCombi(formobj,lijn) {
  var combi = formobj.elements['#V16'].value

  if ( combi.length > 0 ) combi = combi + " "

  if ( lijn ==  99 ) combi = ""
  else               combi = combi + lijn

  formobj.elements['#V16'].value = combi
}