var mainArray = new Array();
var helperArray = new Array();
var mainArrayBegin = new Array();
var mainArrayEnd = new Array();
var nextSiblings = new Array();
var myHelpString = new String();
var ChildArray = new Array();
var LastParent = new Number();
var GotoElement = new String();
var yPos = new Number();
var yPosMain = new Number();
var v_element = new String();
var indexOpenNodes = 0;
var openNodesArray = new Array();
var lastRecord;
var ApplPath = new String();
var DaBa = new Number();
var BrowseLev = new Number();
var pick_rn = new Number();
var FullTree = 1;
// Vars for manipulatings descs in tree
var MouseSel = new Number(0);
var Arc_Picked_Desc = new Number(0);
ParentLev = 0;
var TreeSel = new Number(0);
var TreeCut = new Number(0);
// Vars for values browsing OPAC-URL
v_lan  = new String();
v_seop  = new Number();
v_sele  = new Number();
v_sepa  = new Number();
v_sest  = new String();
v_senu  = 0;
v_dbnu  = new Number();
v_rqdb  = new String();
function nodeDataArray(recnumm, description, nodeType, indexVal, numChildren, lev, m773w) {
	this.recnumm = recnumm
	this.description = description
	this.nodeType = nodeType
	this.indexVal = indexVal
	this.numChildren = numChildren
      this.lev = lev
      this.m773w = m773w;
}
// f_geticon gives the right icon, given the type (FO, DO, ST, etc) and the state (0: closed, 1: open)
//
function f_geticon(type, state) {
var icon = new String()
    if (state==0)
    {
if (type=='GR'){
icon ='groupC.gif';
        }
else if (type =='DO'){
icon ='fileC.gif';
        }
else if (type=='SE'){
icon ='seriesC.gif';
        }
else if (type =='FO'){
icon ='fondsC.gif';
        }
else if (type=='ST'){
icon ='item.gif';
        }
else{
icon ='item.gif';
        }
    }
else if (state==1)
    {
if (type=='GR'){
icon ='groupO.gif';
        }
else if (type =='DO'){
icon ='fileO.gif';
        }
else if (type=='SE'){
icon ='seriesO.gif';
        }
else if (type =='FO'){
icon ='fondsO.gif';
        }
else if (type=='ST'){
icon ='item.gif';
        }
else{
icon ='item.gif';
        }
    }
icon ='http://pallas.cegesoma.be/images/'+ icon;
return icon;
}
function getChildren(id, i){
// --------METHOD-------:
// Slice the mainArray in two sub-arrays, namely: mainArrayBegin and mainArrayEnd. The cut point is the index that has been clicked
// Destroy mainArray, helperArray
// Call the server, and get the new helperArray, that contains the children of the id corresponding to this index that has been clicked
// Slice the mainArray into two sub-arrays.
helperArray = new Array();
mainArrayBegin = new Array();
mainArrayEnd = new Array();
yPos = window.frames["leftFrame"].document.body.scrollTop;
// openNodesArray for storing this open node
//	if (helperArray.length > 0) // if it has been filled, a node at least has been open
openNodesArray[openNodesArray.length] = id;
//	else // this should not happen. Database to be corrected!
//	  alert ('Error: node is marked as having children in the DB, but has no children! Please reload the page!')
for (var j = 0; j < i+1; j++) {
	mainArrayBegin[j] = mainArray[j];
}
for (var k = i+1; k < mainArray.length; k++) {
	mainArrayEnd[k - i -1] = mainArray[k];
}
// mainArray can now be safely destroyed
mainArray=new Array();
// Here goes the UPDATED helperArray
// Use "anotherFrame" to get the new data in it, method will also call "addChildren"
if (document.DBData.db.value != "0")
{
  window.frames["anotherFrame"].location.href = "http://pallas.cegesoma.be/pls/" + ApplPath + "/arctree.jsdatachild?p_lan=N&p_ID=" + id + "&p_i=" + i + "&p_db=" + document.DBData.db.value;
}
else
{
  window.frames["anotherFrame"].location.href = "http://pallas.cegesoma.be/pls/" + ApplPath + "/arctree.jsdatachild?p_lan=N&p_ID=" + id + "&p_i=" + i;
}
}
function addChildren(id, i){ // id = recnumm, i= index in mainArray
// --------METHOD-------:
// Called from script generated on server
// Concatenate the three arrays: mainArrayBegin, helperArray, mainArrayEnd into mainArray
// Write the new data in the leftFrame.
	for (var i = 0; i < mainArrayBegin.length; i++) {
		mainArray[i]=mainArrayBegin[i];
  	}
	for (var i = mainArrayBegin.length ; i < (mainArrayBegin.length + helperArray.length); i++) {
		mainArray[i]= helperArray[i -mainArrayBegin.length];
  	}
	for (var i = (mainArrayBegin.length + helperArray.length); i < (mainArrayBegin.length + helperArray.length + mainArrayEnd.length); i++) {
		mainArray[i]=mainArrayEnd[i - mainArrayBegin.length - helperArray.length];
	}
}
// Note: the <STYLE> for class="pallas" is defined in the Tree_iframe.htm document
function removeChildren(vInd)
{ // vInd = index parent in mainArray
var aCounter = -1;
var vLevel = new Number();
var IsToSkip = 0;
yPos = window.frames["leftFrame"].document.body.scrollTop;
// Copy data from mainArray to helperArray, except (sub)children of clicked node
helperArray = new Array()
for (i = 0; i < mainArray.length; i++)
{
  if (IsToSkip == 0)
  {
    if (i == vInd)
    {
      vLevel = mainArray[i].lev;
      IsToSkip = 1;
      // Remove node from openNodesArray
      removeFromOpenNodes(mainArray[vInd].recnumm);
    }
    aCounter = aCounter + 1;
    helperArray[aCounter] = mainArray[i];
  }
  else
  {
    if (mainArray[i].lev <= vLevel)
    {
      IsToSkip = 0;
      aCounter = aCounter + 1;
      helperArray[aCounter] = mainArray[i];
    }
    else
    {
      if (IsOpenNode(i)) //mainArray[i].recnumm)
      {
        // Remove node from openNodesArray
        removeFromOpenNodes(mainArray[i].recnumm);
      }
    }
  }
}
// Destroy mainArray, fill it with data from helperArray
mainArray = new Array();
for (var i = 0; i < helperArray.length; i++)
{
  mainArray[i] = helperArray[i];
}
}
function removeTheChildren(vInd) {
  window.frames["anotherFrame"].location.href = "http://pallas.cegesoma.be/pls/" + ApplPath + "/arctree.erasechildren?TreeI=" + vInd ;
}
function writeData() 
{
  var vDoc = window.frames["leftFrame"].document;
  var vStr = new String();
  var vState = new Number();
  var vURL = new String();
  var vLev = new Number();
  parent.parent.window.status='';
  if (ApplPath == "opac")
  {
    BrowseLev = BrowseLev - 1;
  }
  if (BrowseLev < 1)
  {
    ParentLev = 0;
    vDoc.location.href = "http://pallas.cegesoma.be/pls/" + ApplPath + "/opac.search?lan=N&rqdb=" + v_rqdb;    
  }
  else 
  {
  vDoc.write('<html>');
  vDoc.write('<head>');
  if (ApplPath == "catalo")
  {
    vDoc.write('<link rel="stylesheet" type="text/css" href="http://pallas.cegesoma.be/jss/substyles.css" />');
  }
  else
  {
    vDoc.write('<link rel="stylesheet" type="text/css" href="http://pallas.cegesoma.be/jss/sdb' + v_rqdb + '.css" />');
  }
  vDoc.write('</head>');
  vDoc.write('<body style="margin: 0cm 0cm 0cm 0cm">');
  if (ApplPath == "opac")
  {
    switch (v_rqdb)
    {
    case "7":
      vDoc.write('<img src="http://pallas.cegesoma.be/caic/logobarL_ULB.jpg">');
      break;
    case "33":
      vDoc.write('<img src="http://pallas.cegesoma.be/caic/logobarL_ULB.jpg">');
      break;
    case "13":
      vDoc.write('<img src="http://pallas.cegesoma.be/caic/logobarihoes.gif">');
      break;
    case "20":
      vDoc.write('<img src="http://pallas.cegesoma.be/caic/logobarSaic.jpg">');
      break;
    default:
      vDoc.write('<img src="http://pallas.cegesoma.be/caic/logobarL.jpg">');
    }
    if (v_rqdb=="20")
    {
      d = screen.width - 95;
      vDoc.write('<img src="http://pallas.cegesoma.be/caic/pallsaicom.jpg" style="position: absolute; top: 0px; left: ' + d + 'px"></td>');
    }
    else
    {
      vDoc.write('<table border="0" width="100%" cellpadding="2" cellspacing="0" style="position: absolute; top: 0px; left: 0px">');
      vDoc.write('  <tr>');
      vDoc.write('    <td width="100%" align="right">');
      vDoc.write('    <img src="http://pallas.cegesoma.be/images/logos/I_Logo_' + v_rqdb + '.gif"></td>');
      vDoc.write('  </tr>');
      vDoc.write('</table>');
    }
    vDoc.write('<div align="center">');
    vDoc.write('<table border="0" cellpadding="0" cellspacing="0">');
    vDoc.write('  <tr>');
    vDoc.write('    <td><a href="opac.search?lan=N&rqdb=' + v_rqdb + '"><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnnewse.gif" border="0" alt="Herbeginnen"></a></td>');
    vDoc.write('<td width="20"></td>');
    vDoc.write('    <td><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnarlid.gif" border="0"></td>');
    vDoc.write('    <td><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnpicviewd.gif" border="0"></td>');
    vDoc.write('<td width="20"></td>');
    vDoc.write('    <td><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnfirstd.gif" border="0"></td>');
    vDoc.write('    <td><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnprevd.gif" border="0"></td>');
    vDoc.write('    <td><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnnextd.gif" border="0"></td>');
    vDoc.write('    <td><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnlastd.gif" border="0"></td>');
    vDoc.write('<td width="20"></td>');
    vDoc.write('    <td><a href="javascript:parent.myvoid()"><img src="http://pallas.cegesoma.be/images/buttons/db' + document.DBData.db.value + '/btnquest.gif" border="0" alt="Help" onClick=parent.openWindow(700,500,"../../help/doctypesN.htm","helpWin")></a></td>');
    vDoc.write('  </tr>');
    vDoc.write('</table>');
    vDoc.write('</div>');
  }
////////////////////
  if (ApplPath == "catalo")
  {
    vDoc.write('<script language="JavaScript1.2" src="http://pallas.cegesoma.be/pls/catalo/plsp.getplsdoc?lan=N&htdoc=general/popmenu.js"></script>');
    vDoc.write('<script type="text/javascript" language="JavaScript">');
    vDoc.write('document.onkeydown = parent.ListKeyHandler;');
    vDoc.write('</script>');
//    vDoc.write('<form name="desclistform">');
  }
  for(i=0; i<mainArray.length; i++) 
  {
   vDoc.write('<table border="0" cellpadding="0" cellspacing="0">');
   v_element ='elem_'+ mainArray[i].recnumm;
   vDoc.write('<tr>');
   // Determine if desc has siblings on same level
   nextSiblings[mainArray[i].lev - ParentLev]= HasNextSibling(i);
   // Write icons before ISAD(G)-level
   for (y = 0; y<=mainArray[i].lev - ParentLev;  y++) 
    {
      if (y == mainArray[i].lev - ParentLev) // +/- icon
      {
        vDoc.write('<td width="16">' + GetPlusMinusIcon(i,y) + '</td>');
      }
      else // "Empty" - icon
      {
        vDoc.write('<td width="16">' + GetEmptyIcon(y) + '</td>');
      }
    }
  // Write level-icon + description
    if (IsOpenNode(i)) //mainArray[i].recnumm
    {
      vState = 1;
    }
    else
    {
      vState = 0;
    }
    if (v_sele == 1) {
      vLev = 0; 
    }
    else
    {
      vLev = mainArray[i].lev;
    }
    vStr = '<td width="16" onClick="parent.AddBrowseClick();';
    if (v_sele == 0) // General Tree
    {
      if (mainArray[i].numChildren != 0)
      {
        vStr = vStr + 
              'parent.GetTree(' + mainArray[i].recnumm + ',' + vLev + ');"' + 
              ' style="cursor: pointer">' + 
              '<img src="' + f_geticon(mainArray[i].nodeType, vState) + '" border="0" alt="Ikoon klikken om apart te bekijken">' +
              '</td>';
      }
      else
      {
        vStr = vStr + 
              '"><img src="' + f_geticon(mainArray[i].nodeType, vState) + '" border="0"></td>';
      }
    }
    else // Isolated tree
    {
      if (i == 0) 
      {
        vStr = vStr + 
              'parent.GetTree(' + mainArray[i].recnumm + ',' + vLev + ');"' + 
              ' style="cursor: pointer">' + 
              '<img src="' + f_geticon(mainArray[i].nodeType, vState) + '" border="0" alt="Terug naar overzicht">' +
              '</td>';
      }
      else
      {
        vStr = vStr + 
              '"><img src="' + f_geticon(mainArray[i].nodeType, vState) + '" border="0"></td>';
      }
    }
    vDoc.write(vStr);
    // URL
    if (ApplPath == "opac")
    {
      vURL = "http://pallas.cegesoma.be/pls/opac/opac.search?lan=N&seop=7&sele=1000&sepa=3&doty=&sest=&chna=&senu=" + mainArray[i].recnumm + "&rqdb=" + v_rqdb + "&dbnu=" + v_rqdb;
    vDoc.write('<td title="' + mainArray[i].description + '" id="'+ v_element + '"' + 
                 ' class="pallas" nowrap onClick="parent.AddBrowseClick();">' +
                 '&nbsp;&nbsp;' + ' <a href="' + vURL + '">' + mainArray[i].description + '</a></td>');
    }
    else
    {
//      vDoc.write('<td nowrap align="left"><input type="radio" name="sel" value="' + mainArray[i].recnumm + '" onclick="parent.TreeSel = this.value;"></td>');
      vStr = '<td title="' + mainArray[i].description + '" id="'+ v_element + '"' + 
             ' class="pallas" style="cursor: pointer" nowrap' + 
             ' onClick="parent.AddBrowseClick();' + 
             'parent.Adapt_Line_Display(' + mainArray[i].recnumm + ');' +
             'parent.TreeSel = ' + mainArray[i].recnumm + ';"' + 
             ' onDblClick="parent.parent.redir_desc(' + mainArray[i].recnumm + ',\'' + mainArray[i].indexVal + '\');' + 
             'parent.TreeSel = ' + mainArray[i].recnumm + ';' +
             'document.selection.empty();"' + 
             ' onmouseover="parent.Arc_Picked_Desc = ' + mainArray[i].recnumm + ';"' + 
             ' onmouseout="parent.Arc_Picked_Desc = 0;">' +
             '&nbsp;&nbsp;' + mainArray[i].description + '</td>'
      vDoc.write(vStr);
    }
    vDoc.write('</tr>'); 
    vDoc.write('</table>');
  }
  if (ApplPath == "opac")
  {
    vDoc.write('<br>');
    vDoc.write('<table border="0" width="100%" cellpadding="0" cellspacing="0">');
    vDoc.write('  <tr>');
    vDoc.write('    <td width="100%" bgcolor="#6294c5" height="3"><img src="http://pallas.cegesoma.be/images/spix.gif" width="1" height="3"></td>');
    vDoc.write('  </tr>');
    vDoc.write('  <tr>');
    vDoc.write('    <td width="100%" bgcolor="#000000" height="3"><img src="http://pallas.cegesoma.be/images/spix.gif" width="1" height="3"></td>');
    vDoc.write('  </tr>');
    vDoc.write('</table>');
  }
  else
  {
//    vDoc.write('</form>');
    if (TreeSel != 0)
    {
      if (GetIndexFromNum(TreeSel) != -1)
      {
        // Desc is (still) visible
        Adapt_Line_Display(TreeSel)
      }
      else
      {
        TreeSel = 0;
        MouseSel = 0;
      }
    }
    if (TreeCut != 0 )
    {
      if (GetIndexFromNum(TreeCut) != -1)
      {
        eval('window.frames["leftFrame"].elem_' + TreeCut + '.style.background="#FAFDD5";');
        eval('window.frames["leftFrame"].elem_' + TreeCut + '.style.color="#C0C0C0";');
      }
      else
      {
        TreeCut = 0;
      }
    }
  }
////////////////
  vDoc.write('</body>');
  vDoc.write('</html>');
  document.close();
}
}
function HasNextSibling(vIndex) {
  var vParent = new Number();
  var RetVal = new Number();
  RetVal = 0;
//  try {
  vParent = mainArray[vIndex].m773w;
  if (mainArray[vIndex].recnumm != LastParent)
  {
    for(z = vIndex + 1; z < mainArray.length; z++) 
    {
      if (mainArray[z].m773w == vParent)
      {
        RetVal = 1;
        break;
      }
    }
  }
  return RetVal;
//  }
//  catch(er) {alert(mainArray[vIndex].m773w + " ; " + mainArray[vIndex].recnumm + " ; and counter is " + z);} 
}
function GetEmptyIcon(vLevel) {
  var RetVal = new String();
  if (nextSiblings[vLevel] == 1)
  {
    RetVal = '<img src="http://pallas.cegesoma.be/images/aline_mid_empty.gif">';
  }
  else
  {
    RetVal = '<img src="http://pallas.cegesoma.be/images/dummy.gif">';
  }
  return RetVal;
}
// DescIndex = i;
function GetPlusMinusIcon(DescIndex,PaintLevel) {
  var RetVal = new String();
  // Only nodes containing children are to be active
  if (DescIndex == 0) // Very first line
  {
    if (mainArray[DescIndex].numChildren != 0)
    {
      if (IsOpenNode(DescIndex)) //mainArray[DescIndex].recnumm
      {
        if (nextSiblings[PaintLevel] == 1) // There is a next sibling on this level
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_top_min.gif" onClick="parent.AddBrowseClick();parent.removeTheChildren(' + DescIndex + ');">'; //mainArray[DescIndex].recnumm
        }
        else // first line = last line
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_min_empty.gif" onClick="parent.AddBrowseClick();parent.removeTheChildren(' + DescIndex + ');">'; //mainArray[DescIndex].recnumm
        }
      }
      else
      {
        if (nextSiblings[PaintLevel] == 1) // There is a next sibling on this level
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_top_plus.gif" onClick="parent.AddBrowseClick();parent.getChildren(' + mainArray[DescIndex].recnumm + ', ' +  DescIndex + ');">';
        }
        else // first line = last line
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_plus_empty.gif" onClick="parent.AddBrowseClick();parent.getChildren(' + mainArray[DescIndex].recnumm + ', ' +  DescIndex + ');">';
        }
      }
    }
    else
    {
      RetVal = '<img src="http://pallas.cegesoma.be/images/aline_top_empty.gif">';
    }
  }
  else
  {
    if (mainArray[DescIndex].numChildren != 0)
    {
      if (nextSiblings[PaintLevel] == 1) // There is a next sibling on this level
      {
        if (IsOpenNode(DescIndex)) //mainArray[DescIndex].recnumm
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_mid_min.gif" onClick="parent.AddBrowseClick();parent.removeTheChildren(' + DescIndex + ');">'; //mainArray[DescIndex].recnumm
        }
        else
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_mid_plus.gif" onClick="parent.AddBrowseClick();parent.getChildren(' + mainArray[DescIndex].recnumm + ', ' +  DescIndex + ');">';
        }
      }
      else // Last sibling on this level has been printed
      {
        if (IsOpenNode(DescIndex)) //mainArray[DescIndex].recnumm
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_bottom_min.gif" onClick="parent.AddBrowseClick();parent.removeTheChildren(' + DescIndex + ');">'; //mainArray[DescIndex].recnumm
        }
        else
        {
          RetVal = '<img src="http://pallas.cegesoma.be/images/aline_bottom_plus.gif" onClick="parent.AddBrowseClick();parent.getChildren(' + mainArray[DescIndex].recnumm + ', ' +  DescIndex + ');">';
        }
      }
    }
    else
    {
      if (nextSiblings[PaintLevel] == 1) // There is a next sibling on this level
      {
        RetVal = '<img src="http://pallas.cegesoma.be/images/aline_mid_empty_left.gif">';
      }
      else // Last sibling on this level has been printed
      {
        RetVal = '<img src="http://pallas.cegesoma.be/images/aline_bottom_empty.gif">';
      }
    }
  }
 return RetVal;
}
function IsOpenNode(vInd)
{
  var RetVal = false;  
//  for(z = 0; z < openNodesArray.length; z++) 
//    {
//      if (openNodesArray[z] == id)
//      {
//        RetVal = true;
//        break;
//      }
//    }
if (vInd < mainArray.length - 1)
{
  if (mainArray[vInd + 1].lev > mainArray[vInd].lev)
  {
    RetVal = true;
  }
}
return RetVal
}
function removeFromOpenNodes(rn)
{
tempArray = new Array();
aCounter = -1;
for (var i = 0; i < openNodesArray.length; i++)
{
  if (openNodesArray[i] != rn)
  {
    aCounter = aCounter + 1;
    tempArray[aCounter] = openNodesArray[i];
  }
}
openNodesArray = new Array();
for (var i = 0; i < tempArray.length; i++)
{
  openNodesArray[i] = tempArray[i];
}
}
function redir (vURL)
{
  if (ApplPath == "opac")
  {
    document.location.href = vURL;
  }
}
function myvoid() {}
function openWindow(width,height,url,windowName)
{
  x = (640 - width)/2, y = (480 - height)/2;
  if (screen)
  {
     y = (screen.availHeight - height)/2;
     x = (screen.availWidth - width)/2;
  }
w1 = window.open(url,windowName,'scrollbars=yes,width='+width+',height='+height+',screenX='+x+',screenY='+y+',top='+y+',left='+x);w1.focus();
}
function AddBrowseClick() {
BrowseLev = 2;
}
function setdescnum(rn) {
v_senu = rn;
}
function OpenPartialTree(FP,PL) {
vURL = new String();
vURL = window.location.href;
window.open(vURL,"PartTree");
//PartTree.GetTree(FP,PL);
}
function GetTree(FirstParent,PLev) {
vURL = new String();
ParentLev = PLev;
BrowseLev = 2;
var NewSele = new Number();
if (v_sele == 0) {
NewSele = 1;
yPosMain = yPos;
}
else
{
NewSele = 0;
yPos = yPosMain;
yPosMain = 0;
}
vURL = "http://pallas.cegesoma.be/pls/" + ApplPath + "/opac.search?" +
       "lan=N" + 
       "&seop=7" + 
       "&sele=" + NewSele + 
       "&sepa=" + v_sepa +
       "&doty=" +
       "&sest=" + v_sest +
       "&chna=" +
       "&senu=" + FirstParent + 
       "&rqdb=" + v_rqdb + 
       "&dbnu=" + v_dbnu;
window.frames["leftFrame"].location.href = vURL;
}
function KillChild(vInd) {
vTotal = new Number();
vLevel = mainArray[vInd].lev;
yPos = window.frames["leftFrame"].document.body.scrollTop;
// Update parent string on the right
if (mainArray[vInd].recnumm == document.frames["rightFrame"].PAL_rn)
{
  document.frames["rightFrame"].PAL_M773W = "";
}
// Update server
KillArcChildOnServer(vInd);
// Count the number of lines, to be removed from display
vTotal = 1;
for(z = vInd + 1; z < mainArray.length; z++)
{
  if (mainArray[z].lev > vLevel)
  // (Sub)Child of child to be removed
  {
    vTotal = vTotal + 1;
  }
  else
  {
    break;
  }
}
// Move the lines [vTotal] lines after the child [vTotal] lines up
for(z = vInd + vTotal; z < mainArray.length; z++) 
{
  mainArray[z - vTotal] = mainArray[z];
}
// Shorten mainArray [vTotal] lines
mainArray.length = mainArray.length - vTotal;
// Remove all selections
TreeSel = 0;
MouseSel = 0;}
function KillArcChildOnServer(vInd) {
// Kills the data on the server
document.frames["anotherFrame"].location.href = "http://pallas.cegesoma.be/pls/catalo/arctree.kill_arcchild?" +
                 "parent=" + mainArray[vInd].m773w + "&child=" +
                 mainArray[vInd].recnumm;
}
function Get_Modu_Val() {
RV = new String();
switch (parent.gendata.modu.value)
{
case "arc":
  RV = "AA";
  break;
case "manu":
  RV = "AB";
  break;
case "bib":
  RV = "BA";
  break;
case "pho":
  RV = "CA";
  break;
default:
  RV = "AA";
}
return RV;
}
function JumpTree() {
window.frames["leftFrame"].scrollBy(0,0);
window.frames["leftFrame"].scrollBy(0,yPos);
}
function writeNewChild() {
writeData();
document.frames["anotherFrame"].location.href = "javascript:parent.JumpTree()";
}
function GetIndexFromNum(id) {
vRetVal = new Number(-1)
for(z = 0; z < mainArray.length; z++) 
  {
    if (mainArray[z].recnumm == id)
    {
      vRetVal = z;
      break;
    }
  }
return vRetVal;
}
function NullParVal(rn) {
var PIndex = new Number();
PIndex = GetIndexFromNum(rn);
if (PIndex != -1)
// Desc is visible
{
mainArray[PIndex].numChildren = 0;
}
}
function Adapt_Line_Display(Num) {
if (Num != 0)
{
  if (MouseSel != 0)
  {
    if (MouseSel != TreeCut)
    {
      eval('window.frames["leftFrame"].elem_' + MouseSel + '.style.background="#FAFDD5";');
      eval('window.frames["leftFrame"].elem_' + MouseSel + '.style.color="#000000";');
    }
  }
  MouseSel = Num;
  eval('window.frames["leftFrame"].elem_' + MouseSel + '.style.background="#00008B";');
  eval('window.frames["leftFrame"].elem_' + MouseSel + '.style.color="#FFFFFF";');
}
}
function ListKeyHandler() {
if (TreeSel == 0) 
{
TreeSel = mainArray[0].recnumm;
}
if (window.frames["leftFrame"].event)
{
  if (window.frames["leftFrame"].event.keyCode == 38)
  {
    // KeyUp pressed
    vIndex = GetIndexFromNum(TreeSel);
    if (vIndex != 0)
    {
      vIndex = vIndex - 1;
    }
    Adapt_Line_Display(mainArray[vIndex].recnumm)
    TreeSel = mainArray[vIndex].recnumm; 
    // If needed, move the screen
    if (((vIndex + 2) * 18) - (window.frames["leftFrame"].document.body.scrollTop) <= 18)
    {
      if (window.frames["leftFrame"].document.body.scrollTop - 18 < 17)
      {
        window.frames["leftFrame"].document.body.scrollTop = 0;
      }
      else
      {
        window.frames["leftFrame"].document.body.scrollTop = window.frames["leftFrame"].document.body.scrollTop - 18;
      }
      yPos = window.frames["leftFrame"].document.body.scrollTop;
    }
  }
  if (window.frames["leftFrame"].event.keyCode == 40)
  {
    // KeyDown pressed
    vIndex = GetIndexFromNum(TreeSel);
    if (vIndex < mainArray.length - 1)
    {
      vIndex = vIndex + 1;
    }
    Adapt_Line_Display(mainArray[vIndex].recnumm)
    TreeSel = mainArray[vIndex].recnumm; 
    if (((vIndex + 2) * 18) - (window.frames["leftFrame"].document.body.scrollTop) >= 390)
    {
      window.frames["leftFrame"].document.body.scrollTop = window.frames["leftFrame"].document.body.scrollTop + 18;
      yPos = window.frames["leftFrame"].document.body.scrollTop;
    }
  }
window.frames["leftFrame"].event.cancelBubble = true;
window.frames["leftFrame"].event.returnValue = false;
  return false;
}
}
function GetLastChild(vParent) {
if (vParent != 0)
{
  if (IsOpenNode(GetIndexFromNum(vParent)))
  {
    vLev = mainArray[GetIndexFromNum(vParent)].lev;
    vPos = new Number(0);
    for(z = GetIndexFromNum(vParent) + 1; z < mainArray.length; z++) 
    {
      if (mainArray[z].lev <= vLev)
      {
        break;
      }
      else
      {
        vPos = vPos + 1;
      }
    }
  }
  else
  {
    vPos = -1;
  }
  return vPos;
}
}
function GetDescPosition(Desc) {
vPos = new Number(0);
PIndex = new Number(0);
PIndex = GetIndexFromNum(Desc);
vLev = mainArray[PIndex].lev;
for(z = PIndex; z >= 0; z--) 
  {
    if (mainArray[z].lev >= vLev)
    {
      if (mainArray[z].lev == vLev)
      {
        vPos = vPos + 1;
      }
    }
    else
    {
      break;
    }
  }
if (vPos == 0)
{
  vPos = 1;
}
return vPos;
}
function AddNewChild(LinkAction) {
var vParNum = new Number(TreeSel);
var vParIndex = new Number(GetIndexFromNum(TreeSel));
var vParentType = new String();
var vChildNum = new Number();
var vChildIndex = new Number();
var vChildType = new String();
var vChildCount = new Number();
var OldPLev = new Number();
var NewPLev = new Number();
var OldCLev = new Number();
var NewCLev = new Number();
var LevDiff = new Number();
yPos = window.frames["leftFrame"].document.body.scrollTop;
// Update parent string on the right
if (LinkAction == 0)
{
  document.frames["rightFrame"].PAL_M773W = "_" + vParNum;
  vChildNum = document.frames["rightFrame"].PAL_rn;
}
else
{
  vChildNum = TreeCut;
  if (vChildNum == document.frames["rightFrame"].PAL_rn)
  {
    document.frames["rightFrame"].PAL_M773W = "_" + vParNum;
  }
}
// Update server
document.frames["anotherFrame"].location.href = "http://pallas.cegesoma.be/pls/catalo/arctree.add_newchild?" +
                 "parent=" + vParNum + "&child=" + vChildNum + "&position=0";
ChildArray = new Array();
vChildCount = 1;
vChildIndex = GetIndexFromNum(vChildNum);
NewPLev = mainArray[vParIndex].lev;
if (vChildIndex != -1)
// Child is visible on tree
{
  OldCLev = mainArray[vChildIndex].lev;
  NewCLev = NewPLev + 1;
  LevDiff = NewCLev - OldCLev;
  // Load data New child + its children into temp array
  ChildArray[0] = mainArray[vChildIndex];
  ChildArray[0].lev =  NewCLev;
  ChildArray[0].m773w = vParNum;
  for(z = vChildIndex + 1; z < mainArray.length; z++) 
  {
    if (mainArray[z].lev > OldCLev)
    {
      vChildCount = vChildCount + 1;
      ChildArray[vChildCount - 1] = mainArray[z];
      ChildArray[vChildCount - 1].lev = ChildArray[vChildCount - 1].lev + LevDiff;
    }
    else
    {
      break;
    }
  }
  //Remove the child + its children from tree on display
  for(z = vChildIndex; z < mainArray.length; z++) 
  {
    mainArray[z] = mainArray[z + vChildCount];
  }
  // Shorten mainArray with vChildCount
  mainArray.length = mainArray.length - vChildCount;
}
else // Child is not visible
{
  if (vChildNum == document.frames["rightFrame"].PAL_rn)
  {
        ChildArray[0] = new nodeDataArray(document.frames["rightFrame"].PAL_rn,
                                     document.frames["rightFrame"].PAL_Desc,
                                     document.frames["rightFrame"].PAL_M351C,
                                     Get_Modu_Val(),
                                     document.frames["rightFrame"].PAL_ArcPar,
                                     mainArray[vParIndex].lev + 1,
                                     mainArray[vParIndex].recnumm);
  }
}
vParIndex = GetIndexFromNum(vParNum);
if (IsOpenNode(vParIndex))
// New parent is open
{
  // Get (new) index child
  vChildIndex = vParIndex + GetLastChild(vParNum) + 1;
  // Add line(s) for child(ren) to mainArray
  mainArray.length = mainArray.length + vChildCount;
  // Make room for child(ren) in tree display
  for(z = mainArray.length - 1; z >= vChildIndex; z--) 
  {
    mainArray[z] = mainArray[z - vChildCount];
  }
  // Put data new line(s) in right position
  for(z = 0; z < vChildCount; z++) 
  {
    mainArray[vChildIndex + z] = ChildArray[z];
  }
}
TreeCut = 0;
}
function AddNewSibling(LinkAction) {
var vDescNumm = new Number();
var vDescIndex = new Number();
var vDescType = new String();
var vSiblingNum = new Number();
var vSiblingIndex = new Number();
var vParent = new Number();
var vChildCount = new Number();
var OldPLev = new Number();
var NewPLev = new Number();
var OldCLev = new Number();
var NewCLev = new Number();
var LevDiff = new Number();
yPos = window.frames["leftFrame"].document.body.scrollTop;
if (LinkAction == 0)
{
  vDescNum = window.frames["rightFrame"].PAL_rn;
  vDescIndex = GetIndexFromNum(vDescNum);
  vDescType = window.frames["rightFrame"].PAL_M351C;
  vSiblingNum = TreeSel;
  vSiblingIndex = GetIndexFromNum(vSiblingNum);
  vParent = mainArray[vSiblingIndex].m773w;
  // Update parent string on the right
  document.frames["rightFrame"].PAL_M773W = "_" + vParent;
}
else
{
  vDescNum = TreeCut;
  vDescIndex = GetIndexFromNum(vDescNum);
  vDescType = mainArray[vDescIndex].nodeType;
  vSiblingNum = TreeSel;
  vSiblingIndex = GetIndexFromNum(vSiblingNum);
  vParent = mainArray[vSiblingIndex].m773w;
  // Update parent string on the right
  if (vDescNum == document.frames["rightFrame"].PAL_rn)
  {
    document.frames["rightFrame"].PAL_M773W = "_" + vParent;
  }
}
ChildArray = new Array();
vChildCount = 1;
NewPLev = mainArray[vSiblingIndex].lev;
if (vDescIndex != -1)
// Desc is visible on tree
{
  OldCLev = mainArray[vDescIndex].lev;
  NewCLev = NewPLev;
  LevDiff = NewCLev - OldCLev;
  // Load data New child + its children into temp array
  ChildArray[0] = mainArray[vDescIndex];
  ChildArray[0].lev =  NewCLev;
  ChildArray[0].m773w = vParent;
  for(z = vDescIndex + 1; z < mainArray.length; z++) 
  {
    if (mainArray[z].lev > OldCLev)
    {
      vChildCount = vChildCount + 1;
      ChildArray[vChildCount - 1] = mainArray[z];
      ChildArray[vChildCount - 1].lev = ChildArray[vChildCount - 1].lev + LevDiff;
    }
    else
    {
      break;
    }
  }
  //Remove the desc + its children from tree on display
  for(z = vDescIndex; z < mainArray.length; z++) 
  {
    mainArray[z] = mainArray[z + vChildCount];
  }
  // Shorten mainArray with vChildCount
  mainArray.length = mainArray.length - vChildCount;
}
else // Child is not visible
{
  ChildArray[0] = new nodeDataArray(document.frames["rightFrame"].PAL_rn,
                                   document.frames["rightFrame"].PAL_Desc,
                                   document.frames["rightFrame"].PAL_M351C,
                                   Get_Modu_Val(),
                                   document.frames["rightFrame"].PAL_ArcPar,
                                   mainArray[vSiblingIndex].lev,
                                   mainArray[vSiblingIndex].m773w);
}
// Update server
document.frames["anotherFrame"].location.href = "http://pallas.cegesoma.be/pls/catalo/arctree.add_newchild?" +
                 "parent=" + vParent + "&child=" + vDescNum + "&position=" + GetDescPosition(vSiblingNum);
// Add line(s) for child(ren) to mainArray
mainArray.length = mainArray.length + vChildCount;
// Get (new) index Desc
vDescIndex = GetIndexFromNum(vSiblingNum);
// Make room for child(ren) in tree display
for(z = mainArray.length - 1; z >= vDescIndex; z--) 
{
  mainArray[z] = mainArray[z - vChildCount];
}
// Put data new line(s) in right position
for(z = 0; z < vChildCount; z++) 
{
  mainArray[vDescIndex + z] = ChildArray[z];
}
TreeCut = 0;
}
function CutSelection() {
if (TreeSel != 0)
{
  if (TreeCut != 0)
  {
    eval('window.frames["leftFrame"].elem_' + TreeCut + '.style.background="#FAFDD5";');
    eval('window.frames["leftFrame"].elem_' + TreeCut + '.style.color="#000000";');
  }
  TreeCut = TreeSel;
  eval('window.frames["leftFrame"].elem_' + TreeCut + '.style.background="#FAFDD5";');
  eval('window.frames["leftFrame"].elem_' + TreeCut + '.style.color="#707070";');
}
}